Post Reply 
Result justified?
06-07-2015, 07:58 PM
Post: #2
RE: Result justified?
EXPORT KorTrans()
BEGIN
LOCAL X,Y,φ,Xs,Ys;
RECT_P();

INPUT({{X,[0],{20,15,0}},
{Y,[0],{20,15,1}},
{φ,[0],{20,15,2}}},
"Koordinatentransformation",
{"X [KN]","Y [KN]","φ [°]"},
{"","",""});

Xs:=ROUND((X*COS(φ)-Y*SIN(φ)),2);
Ys:=ROUND((X*SIN(φ)+Y*COS(φ)),2);

TEXTOUT_P(Xs,150,25);
TEXTOUT_P(Ys,150,50);

FREEZE;

END;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Result justified? - Heino - 06-07-2015, 07:54 PM
RE: Result justified? - Heino - 06-07-2015 07:58 PM
RE: Result justified? - DrD - 06-07-2015, 11:09 PM
RE: Result justified? - Heino - 06-08-2015, 09:07 AM
RE: Result justified? - eried - 06-08-2015, 05:46 PM
RE: Result justified? - Heino - 06-08-2015, 07:28 PM
RE: Result justified? - DrD - 06-08-2015, 09:23 PM



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