Post Reply 
Coordinate Converter Ultimate
10-15-2016, 01:27 AM (This post was last modified: 05-27-2017 03:49 PM by BERNARD MICHAUD.)
Post: #1
Coordinate Converter Ultimate
Update May 27-2017 to include FORMATTED CODE.


CoorConvUlt is yet another converter which when one system is entered(Cart., Cyl. or Sph), the other two system are simultaneously converted and all three system are displayed along with the graph showing the position of each variables on the graph. If you discover errors please feel free to point them out so further correction can be made. Thank you.[/code]

Coorconv();
quit();
//----------------------

quit()
BEGIN
PRINT();
PRINT("


Coord. Conv. Ult_2.

B. M.

Oct. 18,2016");

END;


Coorconv()
BEGIN
LOCAL OP3:=0;
LOCAL ρ:=0,Θ:=0,θ:=0,z:=0;
LOCAL X:=0,Y:=0,Z:=0,r:=0,φ:=0;
INPUT({
{X,[0],{10,20,1}},{Y,[0],{10,20,3}},{Z,[0],{10,20,5}},
{ρ,[0],{40,20,1}},{θ,[0],{40,20,3}},{z,[0],{41,20,5}},
{r,[0],{70,20,1}},{Θ,[0],{71,20,3}},{φ,[0],{70,20,5}}},
"Cartesian Cylindrical Spherical",{
"X = ","Y = ","Z =",
"ρ = ","θ = ","Z = ",
"r = ","θ = ","φ ="},
{
" Enter a value for X.",
" Enter a value for Y.",
" Enter a value for Z.",
" Enter a value for ρ.",
" Enter a value for θ.",
" Enter a value for Z.",
" Enter a value for r.",
" Enter a value for θ.",
" Enter a value for φ."});
//-------------------------
//Cart->Cyl->Sph
IF ρ==0 AND θ==0 AND z==0 AND r==0 AND φ==0 THEN

ρ:=√(X²+Y²);
θ:=ARG(X+Y*i);
z:=Z;

r:=√(X²+Y²+Z²);
θ:=ARG(X+Y*i);
φ:=ARG(Z+*√(X²+Y²));END;//28
//----------------------
//Cyl->Sph->Cart
IF r==0 AND Θ==0 AND φ==0 AND X==0 AND Y==0 AND Z==0 THEN

r:=√(ρ²+z²);
Θ:=θ;
φ:=ARG(z+ρ*i);

X:=ρ*COS(Θ);
Y:=ρ*SIN(Θ);
Z:=z;END;//39
//----------------------
//Sph->Cyl->Cart
IF ρ==0 AND θ==0 AND z==0 AND X==0 AND Y==0 AND Z==0THEN

ρ:=r*SIN(φ);
θ:=Θ;
z:=r*COS(φ);

X:=r*COS(Θ)*SIN(φ);
Y:=r*SIN(Θ)*SIN(φ);
Z:=r*COS(φ);END;//50
//---------------------


LOCAL green:=rgb(50,200,120),
white:=rgb(255,255,255),
black:=rgb(0,0,0),
red:=rgb(255,0,0),
copper:=rgb(220,0,0),
blue:=rgb(0,0,255),
coppr:=rgb(220,0,10);
DIMGROB_P(G1,320,240);
RECT(G1);

LOCAL k,D1,D2,D3,D4,D5,D6;
LOCAL C1,C2,C3,C4,C5,C6;
k:=0;
RECT;

REPEAT

k:=GETKEY;

LINE_P(G1,70,180,70,100,green);//L1
LINE_P(G1,70,180,30,220,green);//L2
LINE_P(G1,70,180,140,180,green);//L3

LINE_P(G1,70,180,100,140,red);//L4
LINE_P(G1,100,140,70,110,red);//L5
LINE_P(G1,100,140,100,210,red);//L6
LINE_P(G1,70,180,100,210,blue);//L7

LINE_P(G1,100,210,40,210,blue);//L8
LINE_P(G1,100,210,130,180,blue);//L9

TEXTOUT_P("Cartesian",G1,20,20,4,green);
TEXTOUT_P("Cylindrical",G1,170,40,4,blue);
TEXTOUT_P("Spherical",G1,170,140,4,red);
//Graph Data
TEXTOUT_P("X",G1,20,218,3,black);
TEXTOUT_P("Y",G1,145,173,3,black);
TEXTOUT_P("Z",G1,58,95,3,black);
TEXTOUT_P("r",G1,85,140,3,black);
TEXTOUT_P("φ",G1,70,155,3,black);
TEXTOUT_P("ρ",G1,85,180,3,black);
TEXTOUT_P("θ",G1,68,185,3,black);


TEXTOUT_P("ρ = ",G1,170,60,4,black);
TEXTOUT_P(ρ,G1,193,60,4,black);

TEXTOUT_P("θ = ",G1,170,80,4,black);
TEXTOUT_P(θ,G1,193,80,4,black);

TEXTOUT_P("Z = ",G1,170,100,4,black);
TEXTOUT_P(Z,G1,194,100,4,black);
//-----------------------------------
TEXTOUT_P("X = ",G1,20,40,4,black);
TEXTOUT_P(X,G1,43,40,4,black);

TEXTOUT_P("Y = ",G1,20,60,4,black);
TEXTOUT_P(Y,G1,43,60,4,black);

TEXTOUT_P("Z = ",G1,20,80,4,black);
TEXTOUT_P(Z,G1,43,80,4,black);
//------------------------------------
TEXTOUT_P("r = ",G1,170,160,4,black);
TEXTOUT_P(r,G1,194,160,4,black);

TEXTOUT_P("θ = ",G1,170,180,4,black);
TEXTOUT_P(θ,G1,193,180,4,black);

TEXTOUT_P("φ = ",G1,170,200,4,black);
TEXTOUT_P(φ,G1,194,200,4,black);
TEXTOUT_P("Exit? [Esc]_2x",G1,80,218,3,black);
//-------------------------------------
BLIT_P(G0,0,0,320,240,G1,0,0,320,240);
//-------------------------------------
//WAIT(1);
UNTIL k==4; // Esc


IFERR REPEAT UNTIL GETKEY>-1;
THEN
ELSE
CHOOSE(OP3,"Choose an Option? ",{"Repeat Calculation","Quit"});
CASE
IF OP3==1 THEN Coorconv();END;//here
IF OP3==2 THEN quit();END;
IF OP3==3 THEN IFERR BREAK; BREAK; THEN END END;//here
DEFAULT
END;
END;
END;


EXPORT newconvt()
BEGIN
Coorconv();
END;
[/php]


Attached File(s)
.hpprgm  CoorConvUlt2.hpprgm (Size: 8.55 KB / Downloads: 51)
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)