Click here to Skip to main content
15,867,835 members
Please Sign up or sign in to vote.
3.77/5 (4 votes)
See more:
I've found it: it is the programming script for CASIO calculators... x|





Hello all,

I need help in order to understand a code snippet I've found in the Internet and that I want to translate into another language.

The problem I have is that I don't know which language it is...

Anyone here knows that language?

I don't want an explanation on what is being done, I only want to know which language it is...

Thank you in advance :thumbsup:

The code snippet:
Lbl l
Norm
ClrText
"Xl"?^A:"Yl"?^B:"Zl"?^C
A->J:B^K:C^L
ClrText
"X2"?^D:"Y2"?^E:"Z2"?^F ClrText
"X3"?^G:"Y3"?^H:"Z3"?^I
ClrText
"Wait..."
A-J^A:B-K^B:C-L^C:D-J^D:E-K^E:F-L^F:G-J^G:H-K^H:I-L^I
Pol(E,D)
List Ans[l]^D
List Ans[2]^Z:Z-90^Z
Gxcos Z-Hxsin Z^>T:Gxsin Z+Hxcos Z^H:T^G:0^£
Pol(F,D)
List Ans[l]^D
List Ans[2]^Y:-lx(90-Y)^Y
Gxcos Y-Ixsin Y^>T:Gxsin Y+Ixcos Y^I:T^G:0^F Pol(I,H)
List Ans[2]^X:-lx(270-X)^X
Hxcos X-Ixsin X^T:Hxsin X+Ixcos X^I:T^H:0^I
(A-G)x(E-H)-(D-G)x(B-H)^M
(((A-G)x(A+G)+(B-H)x(B+H))^2x(E-H)-((D-G)x(D+G)+(E-H)x(E+H))^2x(B-H))+M^P (((D-G)X(D+G)+(E-H)X(E+H))^2X(A-G)-((A-G)X(A+G)+(B-H)X(B+H))^2X(D-G))^M^Q
0^R:-lxX^X:-lxY-VY:-lxZ^Z
Qxcos X-Rxsin X^T:Qxsin X+Rxcos X^R:T^Q
Pxcos Y-Rxsin Y^T:Pxsin Y+Rxcos Y^R:T^P
Pxcos Z-Qxsin Z^T:Pxsin Z+Qxcos Z^Q:T^>P
P+J^P
Q+K^Q
R+L^R
V((P-J)2 + (Q-K)2 + (R-L)2)^N
Fix 3
ClrText
"Xo:"
P>
"Yo:"
ClrText
"Zo:"
R>
"RADIUS:" N>
Goto l
Posted
Updated 27-Jun-13 6:30am
v2
Comments
Ron Beyer 27-Jun-13 12:01pm    
Looks like the unholy child of matlab and brainf**k...
Joan M 27-Jun-13 12:31pm    
solved already... it was the programming script for a casio calculator... thank you!
CHill60 27-Jun-13 12:02pm    
where did you find it? any clues there?
Joan M 27-Jun-13 12:31pm    
solved already... it was the programming script for a casio calculator... thank you!
ZurdoDev 27-Jun-13 13:10pm    
Please post as solution so it is removed from the unanswered list.

Just in order to prevent the question of appearing as unanswered, I've found it: it is the programming script for CASIO calculators... X|

Thank you all for spending time on that. :thumbsup:
 
Share this answer
 
Answered only to remove from unanswered list - Solved by OP.
 
Share this answer
 
v2

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900