Solved

Math line for a program (Cube Root)

Posted on 1997-10-11
6
677 Views
Last Modified: 2006-11-17
I'm creating a program in D2.  a math Equation is going to be used to figerout the Volum to Surfase Area of of an Object.  The book that I'm using has the following Math.
Surfase Area =[(cube root of volume) squared] x 6

Is there a command in D2 that calculates the cube root or do I have to find an nother way.

If there is no command, please supply code to add.   willing to give the points.

Thanks
PPaul
0
Comment
Question by:PPaul
  • 2
  • 2
  • 2
6 Comments
 
LVL 5

Accepted Solution

by:
ronit051397 earned 200 total points
ID: 1347285
procedure TForm1.Button1Click(Sender: TObject);
function Root(FSurface, FDegree: Real): Real;
begin
  Result:=Exp(1/FDegree*Ln(FSurface));
end;

begin
  ShowMessage(FloattoStr(Root(50,6)));
end;

0
 

Expert Comment

by:AllenC
ID: 1347286
function GetSurfaceArea(Volume: Real): Real;
begin
  Result := Sqr( 1/Exp(3 * Ln(Volume)) ) * 6;
end;
0
 

Author Comment

by:PPaul
ID: 1347287
OK.  I looked at the above code..  The one by ronit lost me.  I'm trying to fuger out what's with the two varables.  they just shoot me for a loop. :)

The code by AllenC, I tryed in the program and the results are nowere close to the the one from the Gaming book I'm making this program for :)

Is the above code using CUBE ROOT or did you make the same mastake I did ,  SQUARE ROOT.

The book I have, has a chart with Surface area rounded up/down to the close number.  Example:

Volume          Area
  (cf)                (sf)
Under 0.03     0.5
0.03 - 0.06       1
Etc...

I need to get the cube root of the voloum then sqruare it then times it by 6 : [(cube root of volume) squared]x6

I have only one number to plug in to the math line that is Volume.

When I did test the code by AllenC  the result to 0.05 was realy off.  It sould have been around 1.  It gave me 383999999.999512.

Thanks for the help but I still need more.

ronit if you can can you discribe the steps the code is doing and why I need two numbers?  Thanks.

0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 

Expert Comment

by:AllenC
ID: 1347288
Sorry, my mistake here. Try this code instead, it works, I tried it.

function GetSurfaceArea(Volume: Real): Real;
begin
  GetSurfaceArea := Exp( (1/3) * Ln(Volume)) * 6;
end;

begin
  Writeln(Round( GetSurfaceArea(27) ));
  { You should get 18 }
end.

Exp( (1/3) * Ln(Volume)) <- Cube Root of Volume.

Sorry about the error..

http://tcp.home.ml.org/
0
 
LVL 5

Expert Comment

by:ronit051397
ID: 1347289
I will give you the most general function, so that it will answer any case, not just the 6'th case:

procedure TForm1.Button1Click(Sender: TObject);
function Root(FSurface, FDegree: Real): Extended;
begin
  Result:=Exp(FDegree*Ln(FSurface));
end;
begin
  ShowMessage(FloattoStr(Root(5,2)));//equel to 5²
  ShowMessage(FloattoStr(Root(16,1/4)));//equel to 16¼
end;

And In general:          
Root(X, a)=Xª
SQRT(25)=Root(25, 1/2)=25½

0
 

Author Comment

by:PPaul
ID: 1347290
Thanks.  Big Help!
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question