Casio FX-CG20SDK programming help
» > >
»
» View previous topic :: View next topic  
  • Casio FX-CG20SDK programming help
  • 17 Mar 2013 12:15:47 am
  • Last edited by jjz030837 on 20 Mar 2013 04:18:17 am; edited 11 times in total
Hello, everyone.I am a surveying engineer from China, is honored to this website and we exchange,In the hope that we can help a busy, I have written a TEXT program in the FX-CG20 calculator, hope can be converted into a SDK program, but because I don't know C++, so in this to you for help, hope to have time to friends can help, thank you! I wish you every day happy!

The program consists of 49 components, including " 0-ZXC " control run all the procedures, the program uses matrix and list and G3P.

Sorry, because attachment upload option is not found, please have the intention of friends please contact my mailbox, I will send to you, thank you!

Because the list file and the G3P file could not be uploaded, please have the intention of friends by email or contact with my email address, I will send to you, thank you!

Email:lingyang1122@vip.qq.com


Code:
File Name "0-ZCX"
ClrGraph:ClrText
RclPict "Pict\zuoze.g3p"
RclPict "Pict\zuoze.g3p"
Do:Getkey:LpWhile Ans=0
Deg:File1
0→List 26[1]
Dim List 26→A
If A<50:Then For 1→S To 50:
0→List 26[S]:
Next:IfEnd
List 26[41]<2 Or List 26[41]>7=>2→List 26[41]
List 26[42]≠9 And List 26[42]≠20=>9→List 26[42]
List 26[40]≠1 And List 26[40]≠2 And List 26[40]≠3 And List 26[40]≠4 And List 26[40]≠5=>1→List 26[40]
Do
Prog "STR0"
List 26[40]=1=>Prog "ZCX"
List 26[40]=2=>Prog "L~SANWEI"
List 26[40]=3=>Prog "L-SD"
List 26[40]=4=>Prog "L-BRIDGE"
List 26[40]=5=>Prog "L-PUTONG"
LpWhile 1

File Name "2.L-JD"
File5
ClrText
For 1→Z To 5
0→List 22[Z]
0→List 23[Z]
Next
ClrText:Lbl V
" X1="→Str 1
"List 22[1]"→Str 2
" Y1="→Str 3
"List 23[1]"→Str 4
" X2="→Str 5
"List 22[2]"→Str 6
" Y2="→Str 7
"List 23[2]"→Str 8
Prog "HX"
Exp(Str 2)→List 22[1
Exp(Str 4)→List 23[1
Exp(Str 6)→List 22[2
Exp(Str 8)→List 23[2
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0":ClrText
" X3="→Str 1
"List 22[4]"→Str 2
" Y3="→Str 3
"List 23[4]"→Str 4
" X4="→Str 5
"List 22[5]"→Str 6
" Y4="→Str 7
"List 23[5]"→Str 8
Prog "HX"
Exp(Str 2)→List 22[4
Exp(Str 4)→List 23[4
Exp(Str 6)→List 22[5
Exp(Str 8)→List 23[5
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
List 22[1→A
List 23[1→B
List 22[2→C
List 23[2→D
List 22[4→E
List 23[4→F
List 22[5→G
List 23[5→H
C-A→N
D-B→O
G-E→P
H-F→Q
QN-OP→K
NB-OA→I
PF-QE→V
(PI-NV)÷K→List 22[3]
(QI-OV)÷K→List 23[3]
ClrText
ViewWindow Min(List 23)-1-(Max(List 23)-Min(List 23))×0.1,Max(List 23)+1+0.9×(Max(List 23)-Min(List 23)),5,Min(List 22)-1-0.2×(Max(List 22)-Min(List 22)),Max(List 22)+1+0.01×(Max(List 22)-Min(List 22)),5
S-WindMan
S-Gph1 DrawOn,xyLine,List 23,List 22,1,Dot:DrawStat:Fix 3
RclPict "Pict\2.g3p"
Text (7×3,82×3,List 22[3]
Text 32×3,82×3,List 23[3]
Plot ▲ClrText:ClrGraph
RclPict "Pict\xuanze.g3p"
RclPict "Pict\xuanze.g3p"
Do:Getkey:LpWhile Ans=0
Getkey=79=>Goto V
Getkey=69=>Return
Getkey=59=>ClrList 22:ClrList 23:Return


File Name "3D~YX"
File1
ClrText
Lbl 0
" LC="→Str 1
"L"→Str 2
" BJ="→Str 3
"List 26[44]"→Str 4
" X?D?="→Str 5
"List 22[1]"→Str 6
" Y?D?="→Str 7
"List 23[1]"→Str 8
Prog "HX"
Exp(Str 2)→L:Exp(Str 4)→List 26[44
Exp(Str 6)→List 22[1]
Exp(Str 8)→List 23[1]
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0":ClrText
" X?D?="→Str 1
"List 22[2]"→Str 2
" Y?D?="→Str 3
"List 23[2]"→Str 4
" X?D?="→Str 5
"List 22[3]"→Str 6
" Y?D?="→Str 7
"List 23[3]"→Str 8
Prog "HX"
Exp(Str 2)→List 22[2
Exp(Str 4)→List 23[2
Exp(Str 6)→List 22[3
Exp(Str 8)→List 23[3
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
L→List 26[43]
List 22[1]→A
List 23[1]→B
List 22[2]→C
List 23[2]→D
List 22[3]→E
List 23[3]→F
((D2+C2-A2-B2)(F-D)-(E2+F2-C2-D2)(D-B))÷2÷((D-B)(C-E)-(F-D)(A-C))→List 24[1
((A2+B2-C2-D2)(C-E)-(C2+D2-E2-F2)(A-C))÷2÷((F-D)(A-C)-(D-B)(C-E))→List 25[1
√((A-List 24[1])2+(B-List 25[1])2)→List 26[51
List 24[1]→T:List 25[1]→S:Prog "GL-FS"
List 26[43]-L→A
List 26[44]-J→B
ClrText
ViewWindow List 25[1]-1.15×List 26[51],List 25[1]+3.4×List 26[51],100000,List 24[1]-1.15×List 26[51],List 24[1]+1.15×List 26[51],100000
If A>0 And B>0:Then RclPict "Pict\13.g3p":IfEnd
If A>0 And B<0:Then RclPict "Pict\14.g3p":IfEnd
If A<0 And B>0:Then RclPict "Pict\1.g3p":IfEnd
If A<0 And B<0:Then RclPict "Pict\12.g3p":IfEnd
If A<0:Then -A→A:IfEnd:If B<0:Then -B→B:IfEnd
Black Circle List 25[1],List 24[1],List 26[51
S-WindMan
S-Gph1 DrawOn,Scatter,List 23,List 22,1,Cross:DrawStat
Text 10×3,86×3,List 24[1
Text 17×3,86×3,List 25[1
Text 24×3,86×3,List 26[51
Text 31×3,86×3,A
Text 38×3,86×3,B▲ClrText:ClrGraph
RclPict "Pict\xuanze.g3p"
RclPict "Pict\xuanze.g3p"
Do:Getkey:LpWhile Ans=0
Getkey=79=>Goto 0
Getkey=69=>Return
Getkey=59=>Return


File Name "BIANPO"
Lbl 0:ClrText:Cls
File3:0→C
" Qi-L"→Str 1
"List 3[1]"→Str 2
" Zhi-L"→Str 3
"List 4[1]"→Str 4
"  "→Str 5
"C"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File1:Return:IfEnd
Exp(Str 2)→List 3[1
List 3[1]→L
Exp(Str 4)→List 4[1
Exp(Str 6)→C
Prog "STR0"
For 1→C To 999
ClrText
0→A:0→B
" Kuan"→Str 1
"A"→Str 2
" Gao"→Str 3
"B"→Str 4
" Dian#"→Str 5
"C"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File1:Return:IfEnd
Exp(Str 2)=0 And Exp(Str 4)=0=>Break
Exp(Str 6)→C
If C=1:Then Exp(Str 2)→List 5[1]:Exp(Str 4)→List 6[1]
Else Exp(Str 2)+List 5[C-1]→List 5[C
Exp(Str 4)+List 6[C-1]→List 6[C:IfEnd
Next
Prog "STR0"
Lbl 1:File1
ClrText
" X"→Str 1
"List 26[48]"→Str 2
" Y"→Str 3
"List 26[49]"→Str 4
" H"→Str 5
"List 26[50]"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File1:Return:IfEnd
Exp(Str 2)→List 26[48
Exp(Str 4)→List 26[49
Exp(Str 6)→List 26[50
List 26[48→T
List 26[49→S
List 26[50→r
Prog "GL-FS"
J→Z:Z→List 26[51
Prog "JK"
W+List 4[1]→Z
Prog "PM-XL-XZ"
List 26[51]→N
N<0=>-Z→Z
Prog "GC":Prog "B-H"
List 26[50]-O→M
Z<0=>-Z→Z:E→V
0+Z×E×0.01→Q
If N<0:Then -Z→Z:IfEnd
File3
0→List 9[1
0→List 10[1
0→List 9[2
0→List 10[2
For 1→B To Dim List 5
Z+List 5[B→List 9[B+2
Q+List 6[B→List 10[B+2
Next
N→List 7[1
M→List 8[1
If L<List 3[1] Or L>List 4[1]:Then ClrText:Locate 5,4,"LiCheng~CuoWu"▲Goto 1:IfEnd
List 10[Dim List 10-1]-Q+O→A
((List 9[Dim List 9]-List 9[Dim List 9-1])÷(List 10[Dim List 10]-List 10[Dim List 10-1]))→B
List 9[Dim List 9-1]→C
File1
(List 26[50]-A)×B+C→D
File3:List 7[1]-D→E
If List 5[1]<0:Then -(List 7[1]-D)→E:IfEnd
If E<0.05 And E>-0.05:Then List 7[1]→List 9[Dim List 9]
List 8[1]→List 10[Dim List 10]
IfEnd
Z→List 9[2
Q→List 10[2
If List 7[1]<0:Then ViewWindow List 9[Dim List 9]×1.05,-List 9[Dim List 9],1,-2,List 10[Dim List 10]×1.1,1
S-WindMan
S-Gph1 DrawOn,xyLine,List 7,List 8,1,Dot
DrawStat
For 1→F To Dim List 9-1
Blue F-Line List 9[F],List 10[F],List 9[F+1],List 10[F+1]
Next
If E>0:Then RclPict "Pict\bianpo1.g3p"
Else RclPict "Pict\bianpo12.g3p":IfEnd
Text 10×3,82×3,L
Text 17×3,88×3,-List 7[1]
If E<0:Then Text 24×3,88×3,-E
Else Text 24×3,88×3,E:IfEnd
Text 31×3,97×3,-List 9[2]
If W<0:Then Text 37×3,84×3,-W
Else Text 37×3,84×3,W:IfEnd
Fix 1:Text 43×3,78×3,V
Plot ▲Else ViewWindow -List 9[Dim List 9],List 9[Dim List 9]×1.05,1,-2,List 10[Dim List 10]×1.1,1
S-WindMan
S-Gph1 DrawOn,xyLine,List 7,List 8,1,Dot
DrawStat
For 1→F To Dim List 9-1
Blue F-Line List 9[F],List 10[F],List 9[F+1],List 10[F+1]
Next
If E>0:Then RclPict "Pict\bianpo2.g3p"
Else RclPict "Pict\bianpo22.g3p":IfEnd
Text 10×3,14×3,L
Text 17×3,22×3,List 7[1]
If E<0:Then Text 24×3,22×3,-E
Else Text 24×3,22×3,E:IfEnd
Text 31×3,33×3,List 9[2]
Text 37×3,18×3,W
Fix 1:Text 37×3,59×3,V▲IfEnd:ClrText
Fix 3:Menu "Xuan-Ze","Ji-Xu",3,"ChongXin-KaiShi",4,"Celen-Exit",5
Lbl 3:Goto 1
Lbl 4:Goto 0
Lbl 5:For 5→O To 10
ClrList O
Next:Stop


File Name "BIANPO2"
Lbl 0:ClrText:Cls
File3:0→C
" Qi-L"→Str 1
"List 3[1]"→Str 2
" Zhi-L"→Str 3
"List 4[1]"→Str 4
"  "→Str 5
"C"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File1:Return:IfEnd
Exp(Str 2)→List 3[1
List 3[1]→L
Exp(Str 4)→List 4[1
Exp(Str 6)→C
Prog "STR0"
For 1→C To 999
ClrText
0→A:0→B
" Kuan"→Str 1
"A"→Str 2
" Gao"→Str 3
"B"→Str 4
" Dian#"→Str 5
"C"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File1:Return:IfEnd
Exp(Str 2)=0 And Exp(Str 4)=0=>Break
Exp(Str 6)→C
If C=1:Then Exp(Str 2)→List 5[1]:Exp(Str 4)→List 6[1]
Else Exp(Str 2)+List 5[C-1]→List 5[C
Exp(Str 4)+List 6[C-1]→List 6[C:IfEnd
Next
Prog "STR0"
Lbl 1:File1
ClrText
" X"→Str 1
"List 26[48]"→Str 2
" Y"→Str 3
"List 26[49]"→Str 4
" H"→Str 5
"List 26[50]"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File1:Return:IfEnd
Exp(Str 2)→List 26[48
Exp(Str 4)→List 26[49
Exp(Str 6)→List 26[50
List 26[48→T
List 26[49→S
List 26[50→r
Prog "GL-FS"
J→Z:Z→List 26[51
Prog "JK"
W+List 4[1]→Z
Prog "PM-XL-XZ"
List 26[51]→N
N<0=>-Z→Z
Prog "GC":Prog "B-H"
List 26[50]-O→M
Z<0=>-Z→Z
0+Z×E×0.01→Q:E→V
If N<0:Then -Z→Z:IfEnd
File3
0→List 9[1
0→List 10[1
0→List 9[2
0→List 10[2
For 1→B To Dim List 5
Z+List 5[B→List 9[B+2
Q+List 6[B→List 10[B+2
Next
N→List 7[1
M→List 8[1
If L<List 3[1] Or L>List 4[1]:Then ClrText:Locate 5,4,"LiCheng~CuoWu"▲Goto 1:IfEnd
List 10[Dim List 10-1]-Q+O→A
((List 9[Dim List 9]-List 9[Dim List 9-1])÷(List 10[Dim List 10]-List 10[Dim List 10-1]))→B
List 9[Dim List 9-1]→C
File1
(List 26[50]-A)×B+C→D
File3:List 7[1]-D→E
If List 5[1]<0:Then -(List 7[1]-D)→E:IfEnd
If E<0.05 And E>-0.05:Then List 7[1]→List 9[Dim List 9]
List 8[1]→List 10[Dim List 10]
IfEnd
Z→List 9[2
Q→List 10[2
If List 7[1]<0:Then ViewWindow List 9[Dim List 9]×1.05,-List 9[Dim List 9],1,List 10[Dim List 10]×1.1,2,1
S-WindMan
S-Gph1 DrawOn,xyLine,List 7,List 8,1,Dot
DrawStat
For 1→F To Dim List 9-1
Blue F-Line List 9[F],List 10[F],List 9[F+1],List 10[F+1]
Next
If E>0:Then RclPict "Pict\bianpo1.g3p"
Else RclPict "Pict\bianpo12.g3p":IfEnd
Text 10×3,82×3,L
Text 17×3,88×3-List 7[1]
If E<0:Then Text 24×3,88×3,-E
Else Text 24×3,88×3,E:IfEnd
Text 31×3,97×3,-List 9[2]
If W<0:Then Text  37×3,84×3,-W
Else Text 37×3,84×3,W:IfEnd
Fix 1:Text 43×3,78×3,V
Plot ▲Else ViewWindow -List 9[Dim List 9],List 9[Dim List 9]×1.05,1,List 10[Dim List 10]×1.1,2,1
S-WindMan
S-Gph1 DrawOn,xyLine,List 7,List 8,1,Dot
DrawStat
For 1→F To Dim List 9-1
Blue F-Line List 9[F],List 10[F],List 9[F+1],List 10[F+1]
Next
If E>0:Then RclPict "Pict\bianpo2.g3p"
Else RclPict "Pict\bianpo22.g3p":IfEnd
Text 10×3,14×3,L
Text 17×3,22×3,List 7[1]
If E<0:Then Text 24×3,22×3,-E
Else Text 24×3,22×3,E:IfEnd
Text 31×3,33×3,List 9[2]
Text 37×3,18×3,W
Fix 1:Text 37×3,59×3,V▲IfEnd:ClrText
Fix 3:Menu "Xuan-Ze","Ji-Xu",3,"ChongXin-KaiShi",4,"Celen-Exit",5
Lbl 3:Goto 1
Lbl 4:Goto 0
Lbl 5:For 5→O To 10
ClrList O
Next:Stop


File Name "B-H"
File1
For 1→C To 999
If List 16[C]=U:Then C→A:Break:IfEnd
C+List 17[C→C
Next
List 17[C→B
List 18[C→S
For 1→H To B
If L≥List 16[A+H] And L≤List 16[A+H+1]:Then List 16[A+H→C
List 16[A+H+1→D:List 17[A+H]÷100→F:List 17[A+H+1]÷100→T:List 18[A+H]÷100→O
List 18[A+H+1]÷100→A:Break:IfEnd:Next
Z→H
Abs H<List 26[20]=>0→H
H≥List 26[20]=>H-List 26[20]→H
H≤-List 26[20]=>H+List 26[20]→H
If H<0:Then (L-C)÷(D-C)→V:(3V^(2^(S))-2V(3^(S→V
F+V(T-F)→E
Abs (H)×E+I→O
E×100→E
Return:IfEnd
If H>0:Then (L-C)÷(D-C)→V:(3V^(2^(S))-2V(3^(S→V
O+V(A-O)→E
Abs (H)×E+I→O:E×100→E:Return:IfEnd
If H=0:Then I→O
0→E:IfEnd
E×100→E

File Name "CE-ZHAN"
ClrText
File1
Menu "XuanZe","CeZhanShuRu",1,"LieBiaoChuShi",2,"Exit",3
Lbl 1:ClrText
Prog "CE-ZHAN1"
Prog "STR0"
If N=2:Then ClrText:Return:IfEnd
Pol(List 26[33]-List 26[5],List 26[34]-List 26[6
If List Ans[2]<0:Then List Ans[2]+360→List 26[35:Else List Ans[2→List 26[35:IfEnd
ClrText
Fix 3
Prog "XINXI1"
List 26[37]+List 26[36→List 26[38
Do
Getkey≠0=>Break
LpWhile 1
ClrText
" JingH?"→Str 1
"List 26[50]"→Str 2
" CeI?"→Str 3
"A"→Str 4
" CeH+-?"→Str 5
"B"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 2)→List 26[50
Exp(Str 4)→A
Exp(Str 6)→B
A-List Ans[1→A
ClrText
Fix 4
Locate 8,2,"WuCha"
If A≥0:Then Locate 1,3,"ShiCeChang="
Else Locate 1,3,"ShiCeDuan=":IfEnd
Locate 12,3,Abs (A)
List 26[39]+List 26[50]-(List 26[36]+List 26[37→C
If C≥B:Then Locate 1,4,"ShiCeGao  ="
Else Locate 1,4,"HouShiDi  ="
IfEnd
Locate 12,4,Abs (B-C)▲ClrText
Return
Lbl 2:Prog "CHUSHI":Return
Lbl 3:Return

File Name "CE-ZHAN1"
Menu "XuanZe","ShouGong",1,"ChaZhao",2,"Exit",3
Lbl 1
1→N
" CZ-X"→Str 1
"List 26[5]"→Str 2
" CZ-Y"→Str 3
"List 26[6]"→Str 4
" CZ-Z"→Str 5
"List 26[36]"→Str 6
" HS-X"→Str 7
"List 26[33]"→Str 8
" HS-Y"→Str 9
"List 26[34]"→Str 10
" HS-Z"→Str 11
"List 26[39]"→Str 12
" YiGao"→Str 13
"List 26[37]"→Str 14
Prog "HX"
StrCmp(Str 1,"0")=0=>2→N:
Exp(Str 2)→List 26[5
Exp(Str 4)→List 26[6
Exp(Str 6)→List 26[36
Exp(Str 8)→List 26[33
Exp(Str 10)→List 26[34
Exp(Str 12)→List 26[39
Exp(Str 14)→List 26[37
Return
Lbl 2
1→N
For 1→E To 2
File6
Do
If E=1:Then "CeZhanDianHao"?→Str 1
Else "HouShiDianHao"?→Str 1:IfEnd
LpWhile StrLen(Str 1)<4
(StrLen(Str 1)-3)→A
StrMid(Str 1,1,A)→Str 2
Exp(StrMid(Str 1,A+1))→A
1→B
Do
If B>26:Then ClrText
"WeiZhaoDao"▲2→N:ClrText:File1:Return:IfEnd
List B[0]→Str 3
StrCmp(Str 2,Str 3)=0=>Break
B+4→B
LpWhile 1
Dim List Str 2+1→M
For 1→C To M
If C=M:Then ClrText
"WeiZhaoDao"▲2→N:ClrText:File1:Return:IfEnd
B+1→D:B+2→F:B+3→G
If E=1:Then If List B[C]=A:Then List D[C]→X
List F[C]→Y:List G[C]→Z:File1:X→List 26[5:Y→List 26[6:Z→List 26[36:File6:Break:IfEnd
Else If List B[C]=A:Then List D[C]→X
List F[C]→Y:List G[C]→Z:File1:X→List 26[33:Y→List 26[34:Z→List 26[39:File6:Break:IfEnd
IfEnd
Next
Next
File1
" YiGao"→Str 1
List 26[37]→Str 2
Prog "HX"
StrCmp(Str 1,"0")=0=>2→N
Exp(Str 2)→List 26[37]
Return
Lbl 3
2→N


File Name "CHECG-TAI"
File4
For 1→A To 4
ClrList A
Next
ClrGraph:ClrText
RclPict "Pict\ct.g3p"
RclPict "Pict\ct.g3p"
Do:Getkey:LpWhile Ans=0:File1
Getkey=79=>1→List 26[51
Getkey=69=>2→List 26[51
Lbl 0:File1
ClrText:90→List 26[3
" ZX-L?"→Str 1
"L"→Str 2
" 1#Z?"→Str 3
"Z"→Str 4
" Chang?"→Str 5
"List 26[48]"→Str 6
" Kuan?"→Str 7
"List 26[49]"→Str 8
" KuaDu"→Str 9
"List 26[50]"→Str 10
Prog "HX"
StrCmp(Str 1,"0")=0=>Return
Exp(Str 2)→L:Exp(Str 4)→Z:Exp(Str 6)→List 26[48:Exp(Str 8)→List 26[49:Exp(Str 10)→List 26[50
List 26[48→B
List 26[49→C
For 1→I To 999
If List 1[I]=U:Then Break:IfEnd
I+List 6[I]→I
Next
For 1→C To List 6[I]
I+1→I
L≤List 12[I]=>Break
Next
If List 8[I]=0:Then List 4[I→P:List 5[I→R:IfEnd
If List 26[51]=1:Then If P=R And P>10^40:Then 0→List 26[47:IfEnd
If P=R And P<10^40:Then List 26[50]²÷(16×P)→List 26[47:IfEnd
If P≠R And P>10^40:Then List 26[50]²×(L-List 1[I])÷(16×R×List 6[I])→List 26[47:IfEnd
If P≠R And P<10^40:Then List 26[50]²×(List 1[I]-L)÷(16×P×List 6[I])→List 26[47:IfEnd
Else If P=R And P>10^40:Then 0→List 26[47:IfEnd
If P=R And P<10^40:Then List 26[50]²÷(8×P)→List 26[47:IfEnd
If P≠R And P>10^40:Then List 26[50]²×(L-List 1[I])÷(8×R×List 6[I])→List 26[47:IfEnd
If P≠R And P<10^40:Then List 26[50]²×(List 1[I]-L)÷(8×P×List 6[I])→List 26[47:IfEnd:IfEnd
Z-List 26[47→Z:File4
L→List 1[1:L→List 1[2:L+C→List 1[3:List 1[3→List 1[4
Z→List 2[1:Z+B→List 2[2:List 2[1→List 2[3:List 2[2→List 2[4
For 1→V To 4
List 1[V→L
List 2[V→Z
Prog "PM-XL-XZ"
X+Zcos (Q+List 26[3→G
Y+Zsin (Q+List 26[3→M
File4
G→List 3[V
M→List 4[V
Next
ClrText:ClrGraph
RclPict "Pict\ct2.g3p"
Text 49×3,15×3,List 3[1
Text 54×3,15×3,List 4[1
Text 49×3,83×3,List 3[2
Text 54×3,83×3,List 4[2
Text 2×3,16×3,List 3[3
Text 7×3,16×3,List 4[3
Text 2×3,84×3,List 3[4
Text 7×3,84×3,List 4[4▲ClrText:ClrGraph
RclPict "Pict\xuanze.g3p"
RclPict "Pict\xuanze.g3p"
Do:Getkey:LpWhile Ans=0
Getkey=79=>Goto 0
Getkey=69=>Return
Getkey=59=>For 1→B To 4
ClrList B
Next:Return


File Name "CHUSHI"
ClrText
Deg
Fix 9
File1
"JD-x"→List 1[0
"JD-y"→List 2[0
"JD-LC"→List 3[0
"pianjiao"→List 4[0
"banjin"→List 5[0
"Ls1"→List 6[0
"Ls2"→List 7[0
"fwj"→List 8[0
"T1"→List 9[0
"T2"→List 10[0
"yuan-L"→List 11[0
"zhong-L"→List 12[0
"JDLC"→List 13[0
"JD-GC"→List 14[0
"JD-BJ"→List 15[0
"BH-LC"→List 16[0
"ZuoCe"→List 17[0
"YouCe"→List 18[0
"JiaKuan"→List 19[0
"Zuo"→List 20[0
"You"→List 21[0
"XXX"→List 26[0
For 1→O To 32
0→List 26[O
Next
Dim List 1→S
List 1[S]-1→T
For 1→B To S:
0→List 9[B
0→List 10[B
0→List 11[B
0→List 12[B
Next
For 1→U To T
Fix 0
Locate 6,1,"XianLu-ChuShi"
Locate 6,3,"Xian-Lu="
Locate 14,3,U
Fix 9
For 1→S To 999:
Locate 6,4,"PingMian"
List 1[S→B:
B=U=>S→O
If B=U+1:Then S-1→B:B-O→List 6[O]:B→List 7[O]:Break:IfEnd
Next
For 0→S To B:
If S=0:Then O+1→S:IfEnd:
If List 8[S]≠0:Then If List 6[S]=0:Then 0.0000001→E:E→List 6[S:Else List 6[S→E:IfEnd:
If List 7[S]=0:Then 0.0000001→F:F→List 7[S:Else List 7[S→F:IfEnd:
List 5[S]→R:
Int List 4[S]+(Int (List 4[S]×100)-(Int List 4[S])×100)÷60+(List 4[S]×10000-Int (List 4[S]×100)×100)÷3600→G
E²÷24÷R-E^4÷2688÷R^3+E^6÷506880÷R^5→V:
F²÷24÷R-F^4÷2688÷R^3+F^6÷506880÷R^5→W:
E÷2-E^3÷240÷R²+E^5÷34560÷R^4→X:
F÷2-F^3÷240÷R²+F^5÷34560÷R^4→Y
X+(R+W-(R+V)cos Abs G)÷Abs sin G→List 9[S:
Y+(R+V-(R+W)cos Abs G)÷Abs sin G→List 10[S
List 5[S]×Abs (G)×π÷180+(List 6[S]+List 7[S])÷2-List 6[S]-List 7[S→List 11[S:
List 3[S]-List 9[S]+List 6[S]+List 7[S]+List 11[S→List 12[S
Else List 1[S]+List 6[S→List 12[S
IfEnd:
List 3[O]→List 12[B:Next
If Dim List 13>1:Then For 1→S To 999:
Locate 6,4,"GaoCheng"
List 13[S]=U=>S→O
If List 13[S]=U+1:Then S-O-1→List 14[O:Break:IfEnd
Next
IfEnd
If Dim List 16>1:Then For 1→S To 999
Locate 6,4,"Hengpo"
If List 16[S]=U:Then S→O:IfEnd
If List 16[S]=U+1:Then S-O-1→List 17[O:Break:IfEnd
Next
IfEnd
If Dim List 19>1:Then For 1→S To 999
Locate 6,4,"Jia-Kuan"
If List 19[S]=U:Then S→O:IfEnd
If List 19[S]=U+1:Then S-O-1→List 20[O:Break:IfEnd
Next:IfEnd

Next
ClrText
Locate 6,1,"SuiDao-ChuShi"
File2
"Li-Cheng"→List 1[0
"DM-HAO"→List 2[0
"Qi-X"→List 3[0
"Qi-Y"→List 4[0
"R"→List 5[0
"YX-X"→List 6[0
"YX-Y"→List 7[0
"Qi-Q"→List 8[0
"Zhi-Q"→List 9[0
"LC"→List 10[0
"ChuZhiHouDu"→List 11[0
"ErChengHouDu"→List 12[0

Dim List 1→S
List 1[S]-1→T
For 1→U To T
Fix 0
Locate 6,3,"XinaLu"
Locate 13,3,U
Fix 9
For 1→X To 999:
List 1[X→B:
B=U=>X→Y
If B=U+1:Then X-1→B:B-Y→List 2[Y]:Break:IfEnd
Next
Next
Locate 6,3,"DuanMian"
Dim List 3→S
List 3[S]-1→T
For 1→B To S
0→List 6[B
0→List 7[B
0→List 8[B
0→List 9[B
Next
For 1→U To T
Fix 0
Locate 15,3,U
Fix 9
For 1→X To 999:
List 3[X→B:
B=U=>X→Y
If B=U+1:Then X-1→B
B-Y→List 4[Y]
Y+List 4[Y]→Z
Break:IfEnd
Next
For 0→X To Z:
X=0=>Y+1→X
If X≠Z:Then Pol(List 3[X+1]-List 3[X],List 4[X+1]-List 4[X:Else Pol(List 3[Y+1]-List 3[X],List 4[Y+1]-List 4[X:IfEnd
If List Ans[2]<0:Then List Ans[2]+360→O:Else List Ans[2]→O:IfEnd
cos-1 (List Ans[1]÷2÷Abs (List 5[X→V
If List 5[X]≥0:Then O+V→Q:Else O-V→Q:IfEnd
List 3[X]+cos Q×Abs (List 5[X→List 6[X
List 4[X]+sin Q×Abs (List 5[X→List 7[X
Q-180→List 8[X]:List 8[X]>360=>List 8[X]-360→List 8[X
List 8[X]<0=>List 8[X]+360→List 8[X
If List 5[X]>0:Then List 8[X]+(180-90-V)×2→List 9[X:Else List 8[X]-(180-90-V)×2→List 9[X:IfEnd
List 9[X]>360=>List 9[X]-360→List 9[X
List 9[X]<0=>List 9[X]+360→List 9[X
Next
Next
Dim List 10→S
List 10[S]-1→T
For 1→U To T
Fix 0
Locate 6,3,"JieGouCeng"
Locate 13,3,U
Fix 9
For 1→X To 999:
List 10[X→B:
If B=U:Then X→Y:IfEnd
If B=U+1:Then X-1→B:B-Y→List 11[Y:Break:IfEnd
Next
Next
File1
ClrText
0→List 26[7
1→U
ClrGraph:ClrText
RclPict "Pict\shujuku.g3p":RclPict "Pict\shujuku.g3p"
Do:Getkey:LpWhile Ans=0
ClrText


File Name "DUNZHU"
ClrGraph:ClrText
RclPict "Pict\dunzhu1.g3p"
RclPict "Pict\dunzhu1.g3p"
Do:Getkey:LpWhile Ans=0
Lbl 0
ClrText:File1:Fix 3
90→List 26[3
" D₁-X"→Str 1
"List 22[1]"→Str 2
" D₁-Y"→Str 3
"List 23[1]"→Str 4
" D₂-X"→Str 5
"List 22[2]"→Str 6
" D₂-Y"→Str 7
"List 23[2]"→Str 8
Prog "HX"
Exp(Str 2)→List 22[1
Exp(Str 4)→List 23[1
Exp(Str 6)→List 22[2
Exp(Str 8)→List 23[2
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0"
ClrText
" D₃-X"→Str 1
"List 22[3]"→Str 2
" D₃-Y"→Str 3
"List 23[3]"→Str 4
" D₄-X"→Str 5
"List 22[4]"→Str 6
" D₄-Y"→Str 7
"List 23[4]"→Str 8
Prog "HX"
Exp(Str 2)→List 22[3
Exp(Str 4)→List 23[3
Exp(Str 6)→List 22[4
Exp(Str 8)→List 23[4
List 2[1→L
List 22[1→T:List 23[1→S:Prog "GL-FS":L→List 22[5:J→List 23[5
List 22[2→T:List 23[2→S:Prog "GL-FS":L→List 22[6:J→List 23[6
List 22[3→T:List 23[3→S:Prog "GL-FS":L→List 22[7:J→List 23[7
List 22[4→T:List 23[4→S:Prog "GL-FS":L→List 22[8:J→List 23[8
List 22[5→List 22[9
List 23[5→List 23[9
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0"
ClrText
" D₁-L"→Str 1
"List 24[1]"→Str 2
" D₁-Z"→Str 3
"List 25[1]"→Str 4
" D₂-L"→Str 5
"List 24[2]"→Str 6
" D₂-Z"→Str 7
"List 25[2]"→Str 8
Prog "HX"
Exp(Str 2)→List 24[1]:Exp(Str 4)→List 25[1]:Exp(Str 6)→List 24[2]:Exp(Str 8)→List 25[2]
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0"
ClrText
" D₃-L"→Str 1
"List 24[3]"→Str 2
" D₃-Z"→Str 3
"List 25[3]"→Str 4
" D₄-L"→Str 5
"List 24[4]"→Str 6
" D₄-Z"→Str 7
"List 25[4]"→Str 8
Prog "HX"
Exp(Str 2)→List 24[3]:Exp(Str 4)→List 25[3]:Exp(Str 6)→List 24[4]:Exp(Str 8)→List 25[4]
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0"
ClrText
Pol(List 24[4]-List 24[1],List 25[4]-List 25[1])
List Ans[1]÷2+List 24[1]→List 24[5
List 25[1]-List Ans[1]÷2→List 25[5
List 24[5→List 24[6
List 25[2]+List Ans[1]÷2→List 25[6
List 24[5]+List Ans[1]×0.8→List 24[7
List 24[5]-List Ans[1]×0.8→List 24[8
Pol(List 24[2]-List 24[1],List 25[2]-List 25[1])
List 25[1]+List Ans[1]÷2→List 25[7
List 25[7→List 25[8
List 24[1]-List 22[5→A
List 25[1]-List 23[5→B
List 24[2]-List 22[6→C
List 25[2]-List 23[6→D
List 24[3]-List 22[7→E
List 25[3]-List 23[7→F
List 24[4]-List 22[8→G
List 25[4]-List 23[8→H
ViewWindow List 25[5],List 25[6],1,List 24[8],List 24[7],1
RclPict "Pict\dunzhu.g3p"
For 5→N To 8
Red F-Line List 23[N],List 22[N],List 23[N+1],List 22[N+1]
Next
Blue F-Line List 25[5],List 24[5],List 25[6],List 24[6
Blue F-Line List 25[7],List 24[7],List 25[8],List 24[8
Text 52×3,14×3,A
Text 57×3,14×3,B
Text 52×3,101×3,C
Text 57×3,101×3,D
Text 1×3,101×3,E
Text 6×3,101×3,F
Text 1×3,14×3,G
Text 6×3,14×3,H
Plot ▲ClrText:ClrGraph
RclPict "Pict\xuanze.g3p"
RclPict "Pict\xuanze.g3p"
Do:Getkey:LpWhile Ans=0
Getkey=79=>Goto 0
Getkey=69=>Return
Getkey=59=>Return
Welcome to our board. It appears that you may have had some trouble with our forum software, as we ended up with three of these topics. I've taken the liberty of removing the other two so we can continue to converse in this one.

I'm not an expert on Casio programming, but we have several talented Casio programmers on board, and I'm sure they'll be delighted to help. I don't know how complex your program is, but the easiest way to share it with us is to paste it in between [code][/code] tags on our board!

Welcome again, and I hope you don't have too much trouble communicating!
<- Please Support on Lego Ideas

Code:
File Name "GC"
File1
For 1→F To 999
If List 13[F]=U:Then F→A:Break:IfEnd
F+List 14[F→F
Next
List 14[F]-1→B
For 2→V To B
(List 14[F+V]-List 14[F+V-1])÷(List 13[F+V]-List 13[F+V-1→C
(List 14[F+V+1]-List 14[F+V])÷(List 13[F+V+1]-List 13[F+V→D
Abs (C-D)÷2×List 15[F+V→O:If F+V≠A+B:Then If L≤List 13[F+V]+O:Then List 13[F+V]→A:Break:IfEnd:Else List 13[F+V]→A:Break:IfEnd:
Next
If L≤A:Then (A-L)×(-C)+List 14[F+V]→I:Else (L-A)D+List 14[F+V→I:IfEnd:
If C-D<0:Then 1→B:Else -1→B:IfEnd:
If L≥A-O And L≤A+O:Then If L<A:Then ((L-(A-O))²÷(2List 15[F+V])B)+I→I:Else ((A+O-L)²÷(2List 15[F+V]))B+I→I
IfEnd:IfEnd
I+List 26[21→I


File Name "GL-FS"
Do:Prog "PM-XL-XZ"
Q<0=>360+Q→Q
Q>360=>Q-360→Q
T-X→I
S-Y→J
Pol(I,J)
List Ans[2→J
J<0=>360+J→J
J>360=>J-360→J
J-Q→J:List Ans[1→I
Rec(I,J
List Ans[2→J:List Ans[1→I:L+I→L
Abs (I→I:LpWhile I>0.0001:

File Name "GL-ZS"
(P-R)÷(2HPR→D
L-O→O:OD→D:1÷P→C
.1739274226→I:.3260725774→J:.0694318442→K:.3300094782→E
1-E→F
1-K→M
Q+(K÷π×180)O(C+KD→K
Q+(E÷π×180)O(C+ED→E
Q+(F÷π×180)O(C+FD→F
Q+(M÷π×180)O(C+MD→M
X+O(Icos K+Jcos E+Jcos F+Icos M→X
Y+O(Isin K+Jsin E+Jsin F+Isin M→Y
Q+(O÷π×180)(C+D)→Q
Q<0=>Q+360→Q


File Name "GL-ZS-1"
If L≤A-B:Then C+cos (Q-180)×(A-L)→X:
D+sin (Q-180)×(A-L)→Y:
10^46→P:10^46→R
Return:IfEnd:
C+cos (Q-180)×B→X:D+sin (Q-180)×B→Y:
If L≤A-B+E:Then L-(A-B)→I:I-I^5÷40÷(RE)^2+I^9÷3456÷(RE)^4→H:
I^3÷6÷(RE)-I^7÷336÷(RE)^3+I^11÷42240÷(RE)^5→W
If G>0:Then tan-1 (W÷H)+Q→J:Else Q-tan-1 (W÷H)→J:IfEnd:
√(H^2+W^2)→W:X+cos (J)×W→X:Y+sin (J)×W→Y:
If G>0:Then Q+90×I^2÷(ERπ)→Q:Else Q-90×I^2÷(ERπ)→Q:IfEnd:
If G>0:Then 10^46→P:500→R:Else -10^46→P:-500→R:IfEnd:Return:IfEnd:
If L≤A-B+E+M:Then E→I:I-I^5÷40÷(RE)^2+I^9÷3456÷(RE)^4→H:
I^3÷6÷(RE)-I^7÷336÷(RE)^3+I^11÷42240÷(RE)^5→W:
If G>0:Then tan-1 (W÷H)+Q→J:Else Q-tan-1 (W÷H)→J:IfEnd:
√(H^2+W^2)→W:X+cos (J)×W→X:Y+sin (J)×W→Y:
If G>0:Then Q+90×I^2÷(ERπ)→Q:Else Q-90×I^2÷(ERπ)→Q:IfEnd:
L-(A-B+E)→I:I→W:I÷R×180÷π→J:R(1-cos J)→B:
Rsin J→M:tan-1 (B÷M)→J:√(M²+B²)→I:
If G>0:Then Q+J→J:Else Q-J→J:IfEnd:
X+cos (J)×I→X:Y+sin (J)×I→Y:
If G>0:Then Q+W÷R×180÷π→Q:Else Q-W÷R×180÷π→Q:IfEnd:
If G>0:Then 500→P:500→R:Else -500→P:-500→R:
IfEnd:Return:IfEnd:
Q+G→Q:C+cos Q×W→X:
D+sin Q×W→Y:
If L≤A-B+E+M+F:Then Abs (L-(A-B+E+M+F))→I:I-I^5÷40÷(RF)^2+I^9÷3456÷(RF)^4→H:
I^3÷6÷(RF)-I^7÷336÷(RF)^3+I^11÷42240÷(RF)^5→W:
Q-180→Q:
If G>0:Then Q-tan-1 (W÷H)→J:Else Q+tan-1 (W÷H)→J:IfEnd:
√(H^2+W^2)→W:X+cos (J)×W→X:Y+sin (J)×W→Y:
If G<0:Then Q+90×I^2÷(FRπ)-180→Q:Else Q-90×I^2÷(FRπ)-180→Q:IfEnd:
If G>0:Then 500→P:10^46→R:Else -500→P:-10^46→R:IfEnd:Return:IfEnd:
If L>A-B+E+M+F:Then L-(A-B+E+M+F)→A:
X+cos Q×A→X:
Y+sin Q×A→Y:10^46→P:10^46→R:IfEnd


File Name "GUAXIAN"
File1
Fix 3:0→List 26[32
Lbl 3:ClrText:90→List 26[3]:" LC="→Str 9
"L"→Str 10
" BJ="→Str 11
"Z"→Str 12
" HS-GC"→Str 1
"List 26[46]"→Str 2
" HS-DU"→Str 3
"List 26[47]"→Str 4
" QS-DU"→Str 5
"List 26[48]"→Str 6
" H-GOU"→Str 7
"List 26[49]"→Str 8
Prog "HX"
StrCmp(Str 1,"0")=0=>Return
Exp(Str 2)→List 26[46
Exp(Str 4)→List 26[47]
Exp(Str 6)→List 26[48
Exp(Str 8)→List 26[49
Exp(Str 10)→L
Exp(Str 12)→Z
Prog "PM-XL-XZ"
X+Zcos (Q+List 26[3→G
Y+Zsin (Q+List 26[3→M
Prog "GC":Prog "B-H"
O-(List 26[46]+List 26[47]-List 26[48]+List 26[49])→List 26[50
ClrText
Locate 1,2,"LC="
Locate 1,3,"BJ="
Locate 1,4,"Xo="
Locate 1,5,"Yo="
Locate 1,6,"GC="
Locate 1,7,"GuaX="
Locate 8,2,L
Locate 8,3,Z
Locate 8,4,G
Locate 8,5,M
Locate 8,6,O
If List 26[50]>0:Then Locate 8,7,"+":Locate 9,7,List 26[50]:IfEnd
If List 26[50]<0:Then Locate 8,7,List 26[50]:IfEnd
Do:Getkey≠0=>Break
LpWhile 1
Goto 3


File Name "HANDONG"
File5
For 1→A To 6
ClrList A
Next
Fix 3
File1
ClrText
" L="→Str 1
"L"→Str 2
" ZuoC="→Str 3
"O"→Str 4
" ZuoJ="→Str 5
"M"→Str 6
" YouC="→Str 7
"P"→Str 8
" YouJ="→Str 9
"G"→Str 10
" QKuan="→Str 11
"F"→Str 12
" HKuan="→Str 13
"S"→Str 14
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File1:Return:IfEnd
Exp(Str 2)→L
0→Z
Prog "PM-XL-XZ"
Exp(Str 4)→O
Exp(Str 6)→M
M→List 26[7:Prog "JIAODU":List 26[7→M
Exp(Str 8)→P
Exp(Str 10)→G
G→List 26[7:Prog "JIAODU":List 26[7→G
Exp(Str 12)→F
Exp(Str 14)→S
X+cos (Q+G)×P→H
Y+sin (Q+G)×P→I
X-cos (Q+G)×O→J
Y-sin (Q+G)×O→K
File5
X→A:Y→B
X+cos (Q+G-90)×10→C
Y+sin (Q+G-90)×10→D
X+cos (Q)×F×3.5→List 1[1
Y+sin (Q)×F×3.5→List 2[1
G-M→O
F÷sin G→Z
F÷sin M→N
S÷sin G→V
S÷sin M→T
N→M
F→P
File5
H+cos Q×Z→List 1[2
I+sin Q×Z→List 2[2
H-cos Q×V→List 1[3
I-sin Q×V→List 2[3
J-cos (Q+O)×T→List 1[4
K-sin (Q+O)×T→List 2[4
J+cos (Q+O)×M→List 1[5
K+sin (Q+O)×M→List 2[5
Q+G→Q
For 1→N To 5
List 1[N→E:List 2[N→F
Prog "XY-SG1"
X→List 3[N:Y→List 4[N
Next
List 4[2→List 4[6:List 3[2→List 3[6
ViewWindow Min(List 4)-(Max(List 4)-Min(List 4))×0.02,Max(List 4)+0.95×(Max(List 4)-Min(List 4)),5,Min(List 3)-0.5×(Max(List 3)-Min(List 3)),Max(List 3)+0.5×(Max(List 3)-Min(List 3)),5
F-Line 0,0,List 4[1],List 3[1]
List 4[2→List 4[1:List 3[2→List 3[1
S-WindMan
S-Gph1 DrawOn,xyLine,List4,List3,1,Dot
DrawStat
1→H
Text 1×3,30×3,"L="
Text 1×3,37×3,L
For 2→X To 5
Text H×3,75×3,"X="
Text H×3,82×3,List 1[X
Text (H+7)×3,75×3,"Y="
Text (H+7)×3,82×3,List 2[X]
H+14→H
Next
Plot ▲Cls
Prog "STR0"
ClrText
Do
" Chang"→Str 1
"G"→Str 2
" Zuo-H"→Str 3
"H"→Str 4
" PoDu"→Str 5
"I"→Str 6
Prog "HX"
Exp(Str 2)→G
Exp(Str 4)→H
Exp(Str 6)→I
If StrCmp(Str 1,"0")=0:Then File5
For 1→A To 6
ClrList A
Next
File1
Return:IfEnd
H+IG→M
J+Gcos (Q→R
K+Gsin (Q→T
R+Pcos (Q-90→List 1[1
T+Psin (Q-90→List 2[1
R-Scos (Q-90→List 1[2
T-Ssin (Q-90→List 2[2
For 1→N To 2
List 1[N→E
List 2[N→F
Prog "XY-SG1"
X→List 5[N
Y→List 6[N
Next
S-WindMan
S-Gph1 DrawOn,xyLine,List4,List3,1,Dot
DrawStat
F-Line List 6[1,List 5[1,List 6[2,List 5[2
Text 1×3,65×3,"QX="
Text 1×3,79×3,List 1[1
Text 8×3,65×3,"QY="
Text 8×3,79×3,List 2[1
Text 15×3,65×3,"ZX="
Text 15×3,79×3,R
Text 22×3,65×3,"ZY="
Text 22×3,79×3,T
Text 29×3,65×3,"HX="
Text 29×3,79×3,List 1[2
Text 36×3,65×3,"HY="
Text 36×3,79×3,List 2[2
Text 43×3,65×3,"GC="
Text 50×3,78×3,"QQ:2060909"
Text 57×3,70×3,"ZuoZe:Ling-Heng"
Text 43×3,79×3,M
Plot ▲Cls
LpWhile 1

File Name "HFJH"
File5
Lbl 1
ClrText
" X1="→Str 1
"List 24[1]"→Str 2
" Y1="→Str 3
"List 25[1]"→Str 4
" GaoC="→Str 5
"List 26[1]"→Str 6
" JuLi="→Str 7
"List 26[2]"→Str 8
" ±Gao="→Str 9
"List 26[3]"→Str 10
Prog "HX"
Exp(Str 2)→List 24[1
Exp(Str 4)→List 25[1
Exp(Str 6)→List 26[1
Exp(Str 8)→List 26[2
Exp(Str 10)→List 26[3:If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0"
ClrText
" X2="→Str 1
"List 24[3]"→Str 2
" Y2="→Str 3
"List 25[3]"→Str 4
" K►="→Str 5
"List 26[4]"→Str 6
" JuLi="→Str 7
"List 26[5]"→Str 8
" Yuan="→Str 9
"List 26[6]"→Str 10
Prog "HX"
Exp(Str 2)→List 24[3
Exp(Str 4)→List 25[3
Exp(Str 6)→List 26[4
Exp(Str 8)→List 26[5
Exp(Str 10)→List 26[6:If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
List 24[1→A
List 25[1→B
List 24[3→C
List 25[3→D
List 26[1→H
List 26[2→E
List 26[3→O
List 26[4→K
List 26[5→F
List 26[6→Q
Pol(C-A,D-B)
List Ans[1]→I
List Ans[2]→J
J<0=>J+360→J
J+Qcos-1 ((E²+I²-F²)÷(2×E×I))→R
A+Ecos R→List 24[2]
B+Esin R→List 25[2]
H+K-O→Z
ViewWindow Min(List 25)-1-(Max(List 25)-Min(List 25))×0.1,Max(List 25)+1+0.9×(Max(List 25)-Min(List 25)),5,Min(List 24)-1-0.2×(Max(List 24)-Min(List 24)),Max(List 24)+1+0.01×(Max(List 24)-Min(List 24)),5
S-WindMan
S-Gph1 DrawOn,xyLine,List 25,List 24,1,Dot:DrawStat
Fix 3
RclPict "Pict\3.g3p"
Text 10×3,82×3,List 24[2]
Text 17×3,82×3,List 25[2]
Text 24×3,82×3,Z
Plot ▲ClrText:ClrGraph
RclPict "Pict\xuanze.g3p"
RclPict "Pict\xuanze.g3p"
Do:Getkey:LpWhile Ans=0
Getkey=79=>Goto 1
Getkey=69=>ClrText:Return
Getkey=59=>Return


File Name "HX"
1→V
Do
Getkey≠31=>Break
LpWhile 1
Do
Blue Locate 1,1,Str 1
Blue Locate 8,1,Exp(Str 2
StrCmp("a",Str 3)≠0=>Green Locate 1,2,Str 3
StrCmp("a",Str 4)≠0=>Green Locate 8,2,Exp(Str 4
StrCmp("a",Str 5)≠0=>Red Locate 1,3,Str 5
StrCmp("a",Str 6)≠0=>Red Locate 8,3,Exp(Str 6
StrCmp("a",Str 7)≠0=>Magenta Locate 1,4,Str 7
StrCmp("a",Str 8)≠0=>Magenta Locate 8,4,Exp(Str 8
StrCmp("a",Str 9)≠0=>Cyan Locate 1,5,Str 9
StrCmp("a",Str 10)≠0=>Cyan Locate 8,5,Exp(Str 10
StrCmp("a",Str 11)≠0=>Yellow Locate 1,6,Str 11
StrCmp("a",Str 12)≠0=>Yellow Locate 8,6,Exp(Str 12
StrCmp("a",Str 13)≠0=>Locate 1,7,Str 13
StrCmp("a",Str 14)≠0=>Locate 8,7,Exp(Str 14
Do
If Getkey=33:Then Prog "XL-XZ"
Do
Getkey≠31=>Break
LpWhile 1:Break:IfEnd
V→N
Getkey=42 Or Getkey=28=>V-1→V
Getkey=41 Or Getkey=37=>V+1→V
V>7=>1→V
V<1=>7→V
N≠V=>Break
Locate 1,V,"→"
If Getkey=25:Then ClrText:"JingH"?→List 26[50]:ClrText:Break:IfEnd
If Getkey=32 Or Getkey=27:Then ClrText
If V=1:Then Str 1?→Str 2:IfEnd
If V=2:Then Str 3?→Str 4:IfEnd
If V=3:Then Str 5?→Str 6:IfEnd
If V=4:Then Str 7?→Str 8:IfEnd
If V=5:Then Str 9?→Str 10:IfEnd
If V=6:Then Str 11?→Str 12:IfEnd
If V=7:Then Str 13?→Str 14:IfEnd
ClrText
V+1→V
V>7=>1→V
Break
IfEnd
Getkey=31=>Return
If Getkey=44:Then "0"→Str 1:ClrText:Return:IfEnd
LpWhile 1
LpWhile 1


File Name "JIANMA"
Do
If Getkey≠31:Then Break:IfEnd
LpWhile 1=1
Getkey▲


File Name "JIAODIAN"
ClrText
Lbl 2
" JDL="→Str 1
"List 26[4]"→Str 2
" JDX="→Str 3
"List 26[1]"→Str 4
" JDY="→Str 5
"List 26[2]"→Str 6
" PJ▫="→Str 7
"List 26[8]"→Str 8
" Roo="→Str 9
"List 26[9]"→Str 10
" Ls1="→Str 11
"List 26[5]"→Str 12
" Ls2="→Str 13
"List 26[6]"→Str 14
Prog "HX"
Exp(Str 2)→List 26[4
Exp(Str 4)→List 26[1
Exp(Str 6)→List 26[2
Exp(Str 8)→List 26[7:Prog "JIAODU":List 26[7→List 26[8
Exp(Str 10)→List 26[9
Exp(Str 12)→List 26[5
Exp(Str 14)→List 26[6
List 26[5]=0=>0.00000001→List 26[5]
List 26[6]=0=>0.00000001→List 26[6]
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Prog "STR0"
ClrText
" FWJ="→Str 1
"List 26[10]"→Str 2
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 2)→List 26[7:Prog "JIAODU":List 26[7→List 26[10
ClrText
Do
" LC="→Str 1
"L"→Str 2
" BJ="→Str 3
"Z"→Str 4
" J▫="→Str 5
"List 26[3]"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 2)→L
Exp(Str 4)→Z
Exp(Str 6)→List 26[3
List 26[3→List 26[7:Prog "JIAODU":List 26[7→List 26[3
List 26[1→C:List 26[2→D:List 26[4→A:List 26[5→E
List 26[6→F:List 26[10→Q:List 26[8→G:List 26[9→R
Prog "STR0"
E²÷24÷R-E^4÷2688÷R^3+E^6÷506880÷R^5→V
F²÷24÷R-F^4÷2688÷R^3+F^6÷506880÷R^5→W
E÷2-E^3÷240÷R²+E^5÷34560÷R^4→X
F÷2-F^3÷240÷R²+F^5÷34560÷R^4→Y
X+(R+W-(R+V)cos Abs G)÷Abs sin G→B
Y+(R+V-(R+W)cos Abs G)÷Abs sin G→W
RAbs G×π÷180+(E+F)÷2-E-F→M
Prog "GL-ZS-1"
X+Zcos (Q+List 26[3→G
Y+Zsin (Q+List 26[3→M
Q<0=>Q+360→Q
Red Locate 2,4,"Xo="
Red Locate 8,4,G
Blue Locate 2,5,"Yo="
Blue Locate 8,5,M
Q→List 26[7
Prog "JIAODU1"
Magenta Locate 2,6,"QJ="
Fix 9
Magenta Locate 8,6,List 26[7
Fix 3
LpWhile 1


File Name "JIAODU"
Int List 26[7]+(Int (List 26[7]×100)-(Int List 26[7])×100)÷60+(List 26[7]×10000-Int (List 26[7]×100)×100)÷3600→List 26[7


File Name "JIAODU1"
Int List 26[7]+Int ((List 26[7]-Int List 26[7])×60)÷100+(((List 26[7]-Int List 26[7])×60)-Int ((List 26[7]-Int List 26[7])×60))×60÷10000→List 26[7


File Name "JK"
File1
If Dim List 19=1 Or Z=0:Then 0→W:Return
IfEnd
File1
For 1→F To 999
If List 19[F]=U
Then F→A:Break:IfEnd
F+List 20[F→F
Next
List 20[F]-1→B
For 2→V To B
If L≥List 19[F+V-1] And L≤List 19[F+V]:Then Break:IfEnd
Next
(L-List 19[F+V-1])÷(List 19[F+V]-List 19[F+V-1])→A
Z<0=>A×(List 20[F+V]-List 20[F+V-1])+List 20[F+V-1]→W
Z>0=>A×(List 21[F+V]-List 21[F+V-1])+List 21[F+V-1]→W


File Name "KONGJIAN"
Getkey=62 Or Getkey=37=>List 26[41]+1→List 26[41
Getkey=64 Or Getkey=28=>List 26[41]-1→List 26[41
Getkey=73 Or Getkey=38=>List 26[42]-11→List 26[42
Getkey=53 Or Getkey=27=>List 26[42]+11→List 26[42
If Getkey=72:Then List 26[41]+1→List 26[41:List 26[42]-11→List 26[42:IfEnd
If Getkey=74:Then List 26[41]-1→List 26[41:List 26[42]-11→List 26[42:IfEnd
If Getkey=52:Then List 26[41]+1→List 26[41:List 26[42]+11→List 26[42:IfEnd
If Getkey=54:Then List 26[41]-1→List 26[41:List 26[42]+11→List 26[42:IfEnd
List 26[41]<2=>7→List 26[41
List 26[41]>7=>2→List 26[41
If List 26[42]>20:Then 9→List 26[42]
List 26[40]+1→List 26[40]:List 26[40]>4=>1→List 26[40:IfEnd
If List 26[42]<9:Then 20→List 26[42]
List 26[40]-1→List 26[40]:List 26[40]<1=>4→List 26[40:IfEnd


File Name "L~SANWEI"
ClrText
Fix 3
Do
File1
Red Locate 1,1,"[Heart][Heart][Heart][Heart][Heart][Heart]PM►XianLu[Heart][Heart][Heart][Heart][Heart][Heart]"
Blue Locate 1,3,"XL►ZS  ( )"
Red Locate 12,3,"XL►FS  ( )"
Magenta Locate 1,4,"Kai►Kou( )"
Green Locate 12,4,"Po►Jiao( )"
Cyan Locate 1,5,"Ce►Yuan( )"
Yellow Locate 12,5,"Gua►X  ( )"
Blue Locate 9,7,"QQ:2060909( )"
Locate List 26[42],List 26[41],"←"
Do:Getkey≠0=>Break:LpWhile 1
List 26[40]→A
Prog "KONGJIAN"
Prog "STR0"
List 26[40]≠A=>Return
If Getkey=31 Or Getkey=63:Then ClrText
If List 26[41]=3 And List 26[42]=9:Then 0→List 26[4
Do
0→List 26[32
0→List 26[43
" L="→Str 1:"L"→Str 2
" Z="→Str 3:"Z"→Str 4:" J="→Str 5:"List 26[3"→Str 6:" JuLi="→Str 7:List 26[4→A:"A"→Str 8
Prog "HX":StrCmp(Str 1,"0")=0=>Return:Exp(Str 2)→L:Exp(Str 4)→Z:Exp(Str 6)→List 26[3:Exp(Str 8)→List 26[4
List 26[3]→List 26[7]:Prog "JIAODU"
List 26[7]→List 26[3]:Prog "ZS-XH-1"
List 26[3→List 26[7:Prog "JIAODU1":List 26[7→List 26[3:L+List 26[4→L:LpWhile 1:ClrText:IfEnd

If List 26[41]=3 And List 26[42]=20:Then Do:" L="→Str 7:"L"→Str 8:0→List 26[43]
If List 26[43]=0:Then " X="→Str 1:"T"→Str 2:" Y="→Str 3:"S"→Str 4
" H="→Str 5:"List 26[31"→Str 6:Prog "HX":StrCmp(Str 1,"0")=0=>Return:Str 4→Str 1
Exp(Str 8)→L:Exp(Str 2)→T:Exp(Str 4)→S:Exp(Str 6)→List 26[31
Else " J="→Str 1:"T"→Str 2:" PJ="→Str 3:"S"→Str 4:" H+-="→Str 5:"List 26[31]"→Str 6
Prog "HX":StrCmp(Str 1,"0")=0=>Return:Exp(Str 8)→L:Exp(Str 2)→T:Exp(Str 4)→S:Exp(Str 6)→List 26[31]
Fix 9
T→List 26[13:S→List 26[14:List 26[31→List 26[15
T→List 26[7:Prog "JIAODU"
List 26[7→T
T+List 26[35→T
List 26[5]+cos (T)×S→A
List 26[6]+sin (T)×S→S
A→T
List 26[36]+List 26[37]+List 26[31]-List 26[50]→List 26[31:IfEnd
90→List 26[9:Prog "GL-FS":J→Z:90→List 26[3:1→List 26[32:Prog "ZS-XH-1"
If List 26[43]=0:Then M→S:G→T:Else List 26[14→S:List 26[13→T:List 26[15→List 26[31]:IfEnd
LpWhile 1:ClrText:IfEnd
List 26[41]=4 And List 26[42]=9=>Prog "BIANPO"
List 26[41]=4 And List 26[42]=20=>Prog "BIANPO2"
List 26[41]=5 And List 26[42]=20=>Prog "GUAXIAN"
List 26[41]=7 And List 26[42]=20=>Prog "QQ"
List 26[41]=5 And List 26[42]=9=>Prog "3D~YX"
IfEnd
If Getkey=33:Then Prog "XL-XZ"
ClrText
File1
Dim List 1→C
List 1[C-1→B
For 1→D To 999
If List 1[D]=U:Then List 4[D→List 26[19:List 5[D→List 26[20:Break:IfEnd
Next
IfEnd
If Getkey=42:Then 1→List 26[40]:Return:IfEnd
If Getkey=32:Then 3→List 26[40]:Return:IfEnd
Getkey=43=>Prog "XINXI"
Getkey=41 Or Getkey=77=>Prog "CE-ZHAN"
Getkey=47=>Stop
LpWhile 1


File Name "L~BRIDGE"
ClrText
Fix 3
Do
File1
Red Locate 1,1,"[Heart][Heart][Heart][Heart][Heart]QiaoLing►JS[Heart][Heart][Heart][Heart][Heart]"
Magenta Locate 1,3,"Xiao►Mo( )"
Green Locate 12,3,"H►Dong ( )"
Cyan Locate 1,5,"Zuang►J( )"
Yellow Locate 12,5,"Cen►Tai( )"
Blue Locate 9,7,"QQ:2060909( )"
Locate List 26[42],List 26[41],"←"
Do
Getkey≠0=>Break
LpWhile 1
List 26[40→A
Prog "KONGJIAN"
Prog "STR0"
List 26[40]≠A=>Return
If Getkey=31 Or Getkey=63
Then List 26[41]=3 And List 26[42]=9=>Prog "DUNZHU"
List 26[41]=3 And List 26[42]=20=>Prog "HAN-DONG"
List 26[41]=5 And List 26[42]=9=>Prog "ZUANG~J"
List 26[41]=5 And List 26[42]=20=>Prog "CHENGTAI"
List 26[41]=7 And List 26[42]=20=>Prog "QQ":IfEnd
If Getkey=33:Then Prog "XL-XZ"
ClrText
File1
Dim List 1→C
List 1[C]-1→B:
For 1→D To 999:
If List 1[D]=U
Then List 4[D]→List 26[19]
List 5[D]→List 26[20]:Break:IfEnd
Next
IfEnd
Getkey=47=>Stop
If Getkey=42:Then 3→List 26[40]:Return:IfEnd
If Getkey=32:Then 5→List 26[40]:Return:IfEnd
LpWhile 1


File Name "L~PUTONG"
ClrText
Do
File1
Fix 3
Red Locate 1,1,"[Heart][Heart][Heart][Heart][Heart][Heart]PuTong►JS[Heart][Heart][Heart][Heart][Heart][Heart]"
Blue Locate 1,3,"LZ►XY  ( )"
Red Locate 12,3,"XY►LZ  ( )"
Cyan Locate 1,5,"2.L►JD ( )"
Yellow Locate 12,5,"Mian►Ji( )"
Blue Locate 9,7,"QQ:2060909( )"
Locate List 26[42],List 26[41],"←"
Do
Getkey≠0=>Break
LpWhile 1
List 26[40]→A
Prog "KONGJIAN"
Prog "STR0"
List 26[40]≠A=>Return
If Getkey=31 Or Getkey=63:Then List 26[41]=3 And List 26[42]=9=>Prog "ZB-ZS"
List 26[41]=3 And List 26[42]=20=>Prog "ZB-FS"
List 26[41]=5 And List 26[42]=9=>Prog "2.L-JD"
List 26[41]=5 And List 26[42]=20=>Prog "MIAN-JI"
List 26[41]=7 And List 26[42]=20=>Prog "QQ":IfEnd
If Getkey=33:Then Prog "XL-XZ"
ClrText
File1
Dim List 1→C
List 1[C]-1→B:
For 1→D To 999:
If List 1[D]=U
Then List 4[D]→List 26[19]
List 5[D]→List 26[20]:Break:IfEnd
Next
IfEnd
Getkey=47=>Stop
If Getkey=42:Then 4→List 26[40]:Return:IfEnd
If Getkey=32:Then 1→List 26[40]:Return:IfEnd
LpWhile 1


File Name "L~SD"
ClrText
Fix 3
Do
File1
Red Locate 1,1,"[Heart][Heart][Heart][Heart]SuiDao►JiSuan[Heart][Heart][Heart][Heart]"
Blue Locate 1,3,"Sui►Dao( )"
Magenta Locate 12,3,"Yang►Po( )"
Cyan Locate 1,5,"7►Suang( )"
Yellow Locate 12,5,"H►Jiao ( )"
Blue Locate 9,7,"QQ:2060909( )"
Locate List 26[42],List 26[41],"←"
Do
Getkey≠0=>Break
LpWhile 1
List 26[40→A
Prog "KONGJIAN"
Prog "STR0"
List 26[40]≠A=>Return
If Getkey=31 Or Getkey=63:Then If List 26[41]=3 And List 26[42]=9:Then ClrText:File2:0→List 26[1:File1:Prog "S~DAO":ClrText:IfEnd
If List 26[41]=3 And List 26[42]=20:Then ClrText:Prog "SYANG":ClrText:IfEnd
List 26[41]=5 And List 26[42]=9=>Prog "S~1"
List 26[41]=5 And List 26[42]=20=>Prog "HFJH"
List 26[41]=7 And List 26[42]=20=>Prog "QQ":IfEnd
If Getkey=42:Then 2→List 26[40:Return:IfEnd
If Getkey=32:Then 4→List 26[40:Return:IfEnd
Getkey=43=>Prog "XINXI"
If Getkey=33:Then Prog "XL-XZ":
ClrText
File1
Dim List 1→C
List 1[C]-1→B:
For 1→D To 999:
If List 1[D]=U:Then List 4[D]→List 26[19]
List 5[D]→List 26[20]:Break:IfEnd
Next
IfEnd
Getkey=41 Or Getkey=77=>Prog "CE-ZHAN"
Getkey=47=>Stop
LpWhile 1


File Name "MIAN-JI"
Lbl 1
File5
ClrList 1
ClrList 2
Fix 3
ClrText
"X1"?→List 1[1]
List 1[1]→A
"Y1"?→List 2[1]
List 2[1]→B
List 2[1]→G
"Xn"?→List 1[2]
List 1[2]→C
"Yn"?→List 2[2]
List 2[2]→D
List 2[2]→H
0→S
2→R
Do
R+1→R
"Xn"?→List 1[R]
List 1[R]→E
"Yn"?→List 2[R]
List 2[R]→F
ViewWindow Min(List 2)-(Max(List 2)-Min(List 2))×0.2,Max(List 2)+0.9×(Max(List 2)-Min(List 2)),1,Min(List 1)-0.2×(Max(List 1)-Min(List 1)),Max(List 1)+0.2×(Max(List 1)-Min(List 1)),1
S+C×(F-B→S
E→C
D→B
4F→D
LpWhile Not (E=A And F=G)
S-WindMan
S-Gph1 DrawOn,xyLine,List2,List1,1,Square
DrawStat
S+A(H-B)→S
S+E(G-D)→S
Abs (S)×0.5→S
Fix 0
Text 5×3,80×3,"DianShu"
Text 12×3,80×3,R-1
Fix 3
Text 20×3,80×3,"mianji"
Text 43×3,78×3,"QQ:2060909"
Text 50×3,70×3,"ZuoZe:Ling-Heng"
Text 27×3,80×3,S
Plot ▲ClrText:ClrGraph
RclPict "Pict\xuanze.g3p"
RclPict "Pict\xuanze.g3p"
Do:Getkey:LpWhile Ans=0
Getkey=79=>Goto 1
Getkey=69=>File 1:Return
Getkey=59=>ClrList 1:ClrList 2:Return

File Name "PM-XL-XZ"
File1
For 1→I To 999
If List 1[I]=U:Then If L<List 2[I] Or L>List 3[I]:Then ClrText
"LiCheng-ChaoXian"
"XianLu="
Locate 9,2,U
"SheJiLiCheng="
"A"
Locate 1,4,List 2[I]
Locate 11,4,"~"
Locate 12,4,List 3[I]
"L="
Locate 3,5,L▲Stop:IfEnd:Break:IfEnd:
I+List 6[I]→I
Next
For 1→C To List 6[I]
I+1→I
L≤List 12[I]=>Break
Next
If List 8[I]=0:Then List 2[I]→X:List 3[I]→Y
List 4[I→P:List 5[I→R
List 6[I→H
Int List 7[I]+(Int (List 7[I]×100)-(Int List 7[I])×100)÷60+(List 7[I]×10000-Int (List 7[I]×100)×100)÷3600→Q
List 1[I→O:Prog "GL-ZS"
Else List 1[I→C:List 2[I→D
List 3[I→A
Int List 4[I]+(Int (List 4[I]×100)-(Int List 4[I])×100)÷60+(List 4[I]×10000-Int (List 4[I]×100)×100)÷3600→G
List 5[I→R:List 6[I→E:List 7[I→F
Int List 8[I]+(Int (List 8[I]×100)-(Int List 8[I])×100)÷60+(List 8[I]×10000-Int (List 8[I]×100)×100)÷3600→Q
List 9[I]→B:List 10[I]→W:List 11[I→M
Prog "GL-ZS-1":IfEnd


File Name "QQ"
ClrGraph:ClrText:RclPict "Pict\QQ.g3p":RclPict "Pict\QQ.g3p":Do:Getkey:LpWhile Ans=0:Stop


File Name "STRO"
"a"→Str 1
"a"→Str 2
"a"→Str 3
"a"→Str 4
"a"→Str 5
"a"→Str 6
"a"→Str 7
"a"→Str 8
"a"→Str 9
"a"→Str 10
"a"→Str 11
"a"→Str 12
"a"→Str 13
"a"→Str 14
"a"→Str 15
"a"→Str 16


File Name "SYANG"
File3:ClrList 1:ClrList 2:File1
ClrText
Menu "Menu-XuanZe","KaiWa-JinKou",1,"KaiWa-ChuKou",2
Lbl 1:1→r:Goto 3
Lbl 2:-1→r
Lbl 3
" LC"→Str 1
"L"→Str 2
" J▫"→Str 3
"List 26[1]"→Str 4
" DiGao"→Str 5
"List 26[3]"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File3:ClrList 1:ClrList 2:File1:Return:IfEnd
Exp(Str 2)→L
Exp(Str 4)→List 26[7
Prog "JIAODU"
List 26[7]→List 26[1
Prog "PM-XL-XZ"
Exp(Str 6)→I
Prog "STR0"
If r=1:Then Q+List 26[1→List 26[2:Else Q+List 26[1]+180→List 26[2:IfEnd
X+cos List 26[2]×100→C
Y+sin List 26[2]×100→D
X→A:Y→B
ClrText
File3
0→N:0→M
0→List 1[1
0→List 2[1
For 1→Z To 999
" PoGao"→Str 1
"0"→Str 2
" PoKuan"→Str 3
"0"→Str 4
" PoShu"→Str 5
"Z"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File3:ClrList 1:ClrList 2:File1:Return:IfEnd
Exp(Str 6)→Z
Exp(Str 2)→List 1[Z+1
List 1[Z+1→P
If r=1:Then Exp(Str 4)→List 2[Z+1:Else -Exp(Str 4)→List 2[Z+1:IfEnd
If Z≠1:Then List 1[Z+1]+List 1[Z]→List 1[Z+1
List 2[Z+1]+List 2[Z]→List 2[Z+1:IfEnd
If P=0:Then Break:IfEnd
Next
Prog "STR0"
ClrText
Do
Do
" X"→Str 1
"E"→Str 2
" Y"→Str 3
"F"→Str 4
" H"→Str 5
"H"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then File2:ClrList 1:ClrList 2:ClrList 3:ClrList 4:File1:Return:IfEnd
Exp(Str 2)→E
Exp(Str 4)→F
Exp(Str 6)→H
Pol(C-A,D-B
(E-A)cos List Ans[2]+(F-B)sin List Ans[2→X
(F-B)cos List Ans[2]-(E-A)sin List Ans[2→Y
If r=1:Then -Y→Y:Else Y→Y:IfEnd
H-I→O
If O>List 1[Z]:Then Locate 4,4,"Gao":Break:IfEnd
If O<I:Then Locate 4,4,"Di":Break:IfEnd
O→List 1[Z+1
Y→List 2[Z+1
ViewWindow Min(List 2)-(Max(List 2)-Min(List 2))×0.001,Max(List 2)+1+2×(Max(List 2)-Min(List 2)),5,Min(List 1)-1-0.001×(Max(List 1)-Min(List 1)),Max(List 1)+1+0.6×(Max(List 1)-Min(List 1)),5
S-WindMan
List 1[Z+1]→List 3[1]
List 2[Z+1]→List 4[1]
S-Gph1 DrawOn,xyLine,List4,List3,1,Dot
DrawStat
List 1[Z]→List 1[Z+1]:List 2[Z]→List 2[Z+1]
S-Gph1 DrawOn,xyLine,List2,List1,1,Dot
DrawStat
For 1→P To Dim List 1-1
If O≥List 1[P] And O≤List 1[P+1]:Then Break:IfEnd
Next
(List 4[1]-List 2[P])-(List 2[P+1]-List 2[P])÷(List 1[P+1]-List 1[P])×(O-List 1[P])→X
List 3[1]-List 1[P]→Y
r=1=>-X→X
Text 1×3,70×3,"CQ="
Text 1×3,83×3,X
Text 50×3,78×3,"QQ:2060909"
Text 57×3,70×3,"ZuoZe:Ling-Heng"
Text 7×3,70×3,"Xia="
Text 7×3,86×3,Y▲Cls
ClrText
LpWhile 1
LpWhile 1


File Name "S~1"
GridOff
GridOff
AxesOff
LabelOff
ClrGraph:ClrText
RclPict "Pict\s1.g3p"
RclPict "Pict\s1.g3p"
Fix 0:Lbl 2
RanInt#(01,33)→A
Do:RanInt#(01,33)→B:LpWhile B=A
Do:RanInt#(01,33)→C:LpWhile C=B Or C=A
Do:RanInt#(01,33)→D:LpWhile D=C Or D=B Or D=A
Do:RanInt#(01,33)→E:LpWhile E=D Or E=C Or E=B Or E=A
Do:RanInt#(01,33)→F:LpWhile F=E Or F=D Or F=C Or F=B Or F=A
RanInt#(01,16)→G
A-Int (A÷10)×10→J
B-Int (B÷10)×10→K
C-Int (C÷10)×10→L
D-Int (D÷10)×10→M
E-Int (E÷10)×10→N
F-Int (F÷10)×10→O
J+K+L+M+N+O→I
If I>35 Or I<18:Then Goto 2:IfEnd
A+B+C+D+E+F→H
If H>127 Or H<78:Then Goto 2:IfEnd
If A<10:Then Red Locate 2,6,A:Red Locate 1,6,"0":IfEnd
If A>9:Then Red Locate 1,6,A:IfEnd
If B<10:Then Red Locate 5,6,B:Red Locate 4,6,"0":IfEnd
If B>9:Then Red Locate 4,6,B:IfEnd
If C<10:Then Red Locate 8,6,C:Red Locate 7,6,"0":IfEnd
If C>9:Then Red Locate 7,6,C:IfEnd
If D<10:Then Red Locate 11,6,D:Red Locate 10,6,"0":IfEnd
If D>9:Then Red Locate 10,6,D:IfEnd
If E<10:Then Red Locate 14,6,E:Red Locate 13,6,"0":IfEnd
If E>9:Then Red Locate 13,6,E:IfEnd
If F<10:Then Red Locate 17,6,F:Red Locate 16,6,"0":IfEnd
If F>9:Then Red Locate 16,6,F:IfEnd
If G<10:Then Blue Locate 21,6,G:Blue Locate 20,6,"0":IfEnd
If G>9:Then Blue Locate 20,6,G:IfEnd
Locate 3,6,"+"
Locate 6,6,"+"
Locate 9,6,"+"
Locate 12,6,"+"
Locate 15,6,"+"
Blue Locate 18,6," +"
Do:Getkey:LpWhile Ans=0
ClrText:Fix 3:Return


Code:
File Name:S~DAO
ClrGraph:ClrText
File2:Fix 3
For 13→O To 21
ClrList O
Next
For 2→O To 34
0→List 26[O
Next
"1"→List 20[0
"2"→List 21[0
0→List 18[1
RclPict "Pict\suidao.g3p"
RclPict "Pict\suidao.g3p"
Do:Getkey:LpWhile Ans=0
Getkey=69=>2→List 26[33
Getkey=59=>Goto 7
Getkey=79=>1→List 26[33
Lbl 7:ClrText
Do:Fix 3
" LC?"→Str 7
"L"→Str 8
" Xo?"→Str 1
"T"→Str 2
" Yo?"→Str 3
"S"→Str 4
" GC?"→Str 5
"r"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:File1:Return:IfEnd
Exp(Str 8)→L
Exp(Str 2)→T
Exp(Str 4)→S
Exp(Str 6)→r
Prog "GL-FS"
Prog "GC"
r→G
G-I→G
File2
If Dim List 20=1 And Dim List 21=1 And List 20[1]=0 And List 21[1]=0:Then J→List 20[1]:G→List 21[1]
Else J→List 20[Dim List 20+1]
G→List 21[Dim List 21+1]
IfEnd
For 1→X To 999
If List 10[X]=U:Then X→A:Break:IfEnd
X+List 11[X→X
Next
X+List 11[X]→A
For X+1→Z To A
If L≥List 10[Z] And L≤List 10[Z+1]:Then 2=List 26[33]=>List 12[Z]→List 26[34]
1=List 26[33]=>List 11[Z]+List 12[Z]→List 26[34]
Break:IfEnd
Next
List 26[1]=1=>-J→J
For 1→B To 999
List 1[B]=U=>Break
B+List 2[B→B
Next
List 2[B]+B→O
For 0→C To O
If C=O:Then ClrText:"LiChengCuoWu"▲Return:IfEnd
C=0=>B+1→C
If L≥List 1[C] And L<List 1[C+1]:Then (L-List 1[C])÷(List 1[C+1]-List 1[C])→List 26[4]:Break:IfEnd
Next
List 2[C→List 26[2
List 2[C+1→List 26[3


For 1→X To 999
List 3[X]=List 26[2]=>Break
X+List 4[X]→X
Next
For 1→Y To 999
List 3[Y]=List 26[3]=>Break
Y+List 4[Y→Y
Next
10^45→List 26[6
10^45→List 26[18
List 4[X→E
For 1→Z To E
Abs (List 5[X+Z])+List 26[4](Abs (List 5[Y+Z])-Abs (List 5[X+Z]))→List 26[7
List 6[X+Z]+List 26[4](List 6[Y+Z]-List 6[X+Z])→List 26[8
List 7[X+Z]+List 26[4](List 7[Y+Z]-List 7[X+Z])→List 26[9
If Abs (List 8[X+Z]-List 8[Y+Z])≤180:Then List 8[X+Z]+List 26[4](List 8[Y+Z]-List 8[X+Z→List 26[10
Else List 8[X+Z]+360+List 26[4](List 8[Y+Z]-List 8[X+Z]-360→List 26[10:IfEnd
List 26[10]>360=>List 26[10]-360→List 26[10]
If Z≠1:Then List 26[11]→List 26[21]:Else List 26[10]→List 26[22]:IfEnd
If Abs (List 9[X+Z]-List 9[Y+Z])≤180:Then List 9[X+Z]+List 26[4](List 9[Y+Z]-List 9[X+Z])→List 26[11]
Else List 9[X+Z]+360+List 26[4](List 9[Y+Z]-List 9[X+Z]-360)→List 26[11]:IfEnd
List 26[11]>360=>List 26[11]-360→List 26[11]
List 26[10]>List 26[11]=>List 26[11]+360→List 26[11
If List 26[29]=0:Then List 26[7→List 13[Z
List 26[8→List 14[Z
If List 26[1]=0:Then List 26[9→List 15[Z:Else -List 26[9→List 15[Z:IfEnd
If List 26[1]=0:Then List 26[10→List 16[Z:List 26[11→List 17[Z
Else 360-List 26[10→List 16[Z:360-List 26[11→List 17[Z
List 16[Z]<List 17[Z]=>List 16[Z]+360→List 16[Z]:IfEnd
Dim List 13→H
Abs (List 17[H]-List 16[H])÷8→A
Dim List 18→D
0→E
List 13[H]+List 26[34]→M
If List 26[31]=0:Then For 1→C To A
List 14[H]+Mcos (List 16[H]+E)→List 18[D+C-1]
List 15[H]+Msin (List 16[H]+E)→List 19[D+C-1]
If List 26[1]=0:Then E+8→E:Else E-8→E:IfEnd
Next
List 14[H]+Mcos (List 17[H])→List 18[D+C]
List 15[H]+Msin (List 17[H])→List 19[D+C]
IfEnd:IfEnd
Pol(G-List 26[8],J-List 26[9
If List Ans[2]<0:Then List Ans[2]+360→List 26[20:Else List Ans[2→List 26[20:IfEnd
List Ans[1→List 26[5
If List 26[20]≥List 26[10] And List 26[20]≤List 26[11]:Then If Abs (List 26[5]-List 26[7])<Abs (List 26[6])
Then List 26[5]→List 26[26]:List 26[5]-List 26[7]→List 26[6]
List 26[7]→List 26[12]:List 26[8]→List 26[13]:List 26[9]→List 26[14]:List 26[10]→List 26[15]
List 26[11]→List 26[16]:Z→List 26[17]
0→List 26[30]:IfEnd:IfEnd
If List 26[20]+360≥List 26[10] And List 26[20]+360≤List 26[11]:Then If Abs (List 26[5]-Abs (List 26[7]))<Abs (List 26[6]):Then List 26[5]→List 26[26]:List 26[5]-List 26[7]→List 26[6]
List 26[7]→List 26[12]:List 26[8]→List 26[13]:List 26[9]→List 26[14]:List 26[10]→List 26[15]:List 26[11]→List 26[16]:Z→List 26[17]:
0→List 26[30]:IfEnd:IfEnd
If Z≠1:Then If List 26[10]≠List 26[21] And List 26[10]+360≠List 26[21] And List 26[10]-360≠List 26[21]:Then If List 26[10]-List 26[21]<180:Then List 26[10]→List 26[23]:Else List 26[10]+360→List 26[23]:IfEnd:
List 26[8]+cos List 26[10]×Abs (List 26[7→V
List 26[9]+sin List 26[10]×Abs (List 26[7→W
Pol(G-V,J-W
If List Ans[2]<0:Then List Ans[2]+360→N:Else List Ans[2→N:IfEnd
If N≥List 26[21] And N≤List 26[23]:Then If Abs (List Ans[1])<Abs (List 26[6]):Then List Ans[1]→List 26[6]:1000→List 26[30]
Z-1→List 26[17]:V→List 26[13]:W→List 26[14]:List 26[21]→List 26[15]:List 26[10]→List 26[16]:IfEnd:IfEnd
If N+360≥List 26[21] And N+360≤List 26[23]:Then If Abs (List Ans[1])<Abs (List 26[6]):Then List Ans[1]→List 26[6]:1000→List 26[30
Z-1→List 26[17]:V→List 26[13]:W→List 26[14]:List 26[21]→List 26[15]:List 26[10]→List 26[16]:IfEnd:IfEnd:IfEnd:IfEnd
If Z=E:Then If List 26[22]≠List 26[11] And List 26[22]+360≠List 26[11] And List 26[22]-360≠List 26[22]:Then If Abs (List 26[22]-List 26[11])<180:Then List 26[22]→List 26[23]:Else List 26[22]+360→List 26[23]:IfEnd
List 26[8]+cos List 26[11]×Abs (List 26[7→V
List 26[9]+sin List 26[11]×Abs (List 26[7→W
Pol(G-V,J-W
If List Ans[2]<0:Then List Ans[2]+360→N:Else List Ans[2]→N:IfEnd
If N≥List 26[11] And N≤List 26[23]:Then If Abs (List Ans[1])<Abs (List 26[6]):Then List Ans[1]→List 26[6
1000→List 26[30]:Z→List 26[17]:V→List 26[13]:W→List 26[14]:List 26[11]→List 26[15]:List 26[22]→List 26[16]:IfEnd:IfEnd
If N+360>List 26[11] And N+360<List 26[23]:Then If Abs (List Ans[1])<Abs (List 26[6]):Then List Ans[1]→List 26[6
1000→List 26[30]:Z→List 26[17]:V→List 26[13]:W→List 26[14]:List 26[11]→List 26[15]:List 26[22]→List 26[16]:IfEnd:IfEnd
IfEnd
IfEnd
List 26[8]+cos List 26[11]×Abs (List 26[7→V
List 26[9]+sin List 26[11]×Abs (List 26[7→W
Pol(G-V,J-W
If Abs (List Ans[1])<Abs (List 26[18]):Then -List Ans[1]→List 26[18]:Z→List 26[19]:V→List 26[27]:W→List 26[28]:IfEnd
If Z=E:Then If Abs (List 26[18])<Abs (List 26[6]):Then List 26[18]→List 26[6]:List 26[19]→List 26[17]:2000→List 26[30]:List 26[27]→List 26[13]:List 26[28]→List 26[14]:IfEnd:IfEnd
Next
List 26[11]>360=>List 26[11]-360→List 26[11
For 1→B To 999
List 10[B]=U=>Break
B+List 11[B→B
Next
List 11[B]+B→O
For 0→C To O
C=0=>B+1→C
If L≥List 10[C] And L<List 10[C+1]:Then List 12[C]+(List 12[C+1]-List 12[C])List 26[4→List 26[24:"ErCheng"
List 11[C]+(List 11[C+1]-List 11[C])List 26[4]→List 26[25]:IfEnd
Next
If List 26[1]=1:Then -J→J:IfEnd
List 26[15]>360=>List 26[15]-360→List 26[15]
List 26[16]>360=>List 26[16]-360→List 26[16]
ClrText
ViewWindow Min(List 19)-(Max(List 19)-Min(List 19))×0.90,Max(List 19)+0.02×(Max(List 19)-Min(List 19)),1,Min(List 18)-0.12×(Max(List 18)-Min(List 18)),Max(List 18)+0.12×(Max(List 18)-Min(List 18)),1
S-WindMan
S-Gph1 DrawOn,xyLine,List 20,List 21,1,Dot:DrawStat
For 1→Z To Dim List 19-1
Blue F-Line List 19[Z],List 18[Z],List 19[Z+1],List 18[Z+1]
Next
List 26[33]=0=>List 26[6]→A
If List 26[33]=1:Then List 26[6]-List 26[24]-List 26[25]→A:List 26[12]+List 26[24]+List 26[25→List 26[12:IfEnd
If List 26[33]=2:Then List 26[6]-List 26[24]→A:List 26[12]+List 26[24→List 26[12:IfEnd
If J<0 And A>0:Then RclPict "Pict\suidao1.g3p":IfEnd
If J<0 And A<0:Then RclPict "Pict\suidao2.g3p":IfEnd
If J>0 And A>0:Then RclPict "Pict\suidao3.g3p":IfEnd
If J>0 And A<0:Then RclPict "Pict\suidao4.g3p":IfEnd
If A<0:Then -A→A:IfEnd
If J<0:Then -J→J:IfEnd:Fix 3
Int L÷1000→H
Frac L→I
Red Text 1×3,14×3,"DK"
Red Text 1×3,42×3,I
If H<10:Then Red Text 1×3,22×3,"0"
Red Text 1×3,26×3,H
Else Red Text 1×3,22×3,H
IfEnd
Red Text 1×3,30×3,"+"
Red Text 7×3,24×3,J
Red Text 13×3,14×3,A
Fix 1
Red Text 19×3,23×3,List 26[17]
Fix 3
Red Text 25×3,22×3,G
Fix 2
Red Text 31×3,33×3,List 26[12
Red Text 36×3,33×3,List 26[26]▲1→List 26[29
Menu "Menu-XuanZe","Ji-Xu",2,"Qing-Chu",3,"Celin-Exit",4
Lbl 4:For 13→O To 21
ClrList O
Next:Stop
Lbl 3:For 13→O To 21
ClrList O
Next
"1"→List 20[0
"2"→List 21[0
0→List 26[29
0→List 18[1
Lbl 2
ClrText
Cls
LpWhile 1

Code:
File Name:"XIANYUAN"
ClrText
File1
Lbl 2
" QL="→Str 1
"List 26[1]"→Str 2
" Xo="→Str 3
"List 26[5]"→Str 4
" Yo="→Str 5
"List 26[6]"→Str 6
" QR="→Str 7
"P"→Str 8
" ZR="→Str 9
"R"→Str 10
" FJ="→Str 11
"List 26[9]"→Str 12
" So="→Str 13
"H"→Str 14
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 2)→O:Exp(Str 4)→X:Exp(Str 6)→Y:Exp(Str 8)→P
Exp(Str 10)→R:Exp(Str 12)→Q:Q→List 26[7:Prog "JIAODU":List 26[7→Q
Exp(Str 14)→H
O→List 26[1:P→List 26[2:R→List 26[4:X→List 26[5:Y→List 26[6:Q→List 26[9:H→List 26[8
ClrText
Do
Prog "STR0"
List 26[1→O:List 26[2→P:List 26[4→R:List 26[5→X:List 26[6→Y:List 26[9→Q:List 26[8→H
" LC="→Str 1
"L"→Str 2
" BJ="→Str 3
"Z"→Str 4
" J▫="→Str 5
"List 26[3]"→Str 6
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 2)→L:Exp(Str 4)→Z:Exp(Str 6)→List 26[7
Prog "JIAODU":List 26[7→List 26[3
Prog "GL-ZS"
X+Zcos (Q+List 26[3→G
Y+Zsin (Q+List 26[3→M
Q<0=>Q+360→Q
Red Locate 1,4," Xo="
Red Locate 8,4,G
Blue Locate 2,5,"Yo="
Blue Locate 8,5,M
Fix 9
Magenta Locate 2,6,"QJ="
Q→List 26[7
Prog "JIAODU1"
Magenta Locate 8,6,List 26[7
List 26[3→List 26[7:Prog "JIAODU1":List 26[7→List 26[3
Fix 3
LpWhile 1


File Name:"XINXI"
File1
ClrText
For 1→I To 999
List 1[I]=U=>Break
Next
Do
Getkey≠43=>Break
LpWhile 1
Fix 3
1→A
Do
If A=1:Then "XianLu  ="
Locate 10,1,U
"LiChengQ="
Locate 10,2,List 2[I]
"LiChengZ="
Locate 10,3,List 3[I]
"GeLi="
Locate 6,4,List 26[20]
Locate 12,4,"LuJi="
Locate 17,4,List 26[19]
"H   ="
Locate 6,5,List 26[21]
Locate 12,5,"R+- ="
Locate 17,5,List 26[27]
Locate 12,6,"JingG"
Locate 17,6,List 26[50]
IfEnd
If List 26[43]=0:Then Locate 1,6,"CeZhan( , )"
Else Locate 1,6,"CeZhan(#,#)":IfEnd
2→A
If Getkey=25:Then ClrText:"JingGao="?→List 26[50]
ClrText:1→A:IfEnd
Getkey=42=>1→List 26[43]
Getkey=32=>0→List 26[43]
Getkey=43=>Break
If Getkey=41:Then ClrText:"GAO+-"?→List 26[21]:ClrText:1→A:IfEnd
LpWhile 1
Prog "XINXI1"
Do
Getkey=43=>Break
LpWhile 1
ClrText

File Name:"XINXI1"
ClrText
"CeZhanX="
Locate 9,1,List 26[5]
"CeZhanY="
Locate 9,2,List 26[6]
"CeZhanG="
Locate 9,3,List 26[36]
"YI--Gao="
Locate 9,4,List 26[37]
"HouShiX="
Locate 9,5,List 26[33]
"HouShiY="
Locate 9,6,List 26[34]
"HouShiZ="
Locate 9,7,List 26[39]


File Name:"XL-XZ"
ClrText
0→U
Menu "XianLu-XuanZe","XianLu1",1,"XianLu2",2,"XianLu3",3,"XianLu4",4,"XianLu5",5,"XianLu6",6,"XianLu7",7,"XianLu8",8,"XianLu9",9
Lbl 1:1→U:Return
Lbl 2:2→U:Return
Lbl 3:3→U:Return
Lbl 4:4→U:Return
Lbl 5:5→U:Return
Lbl 6:6→U:Return
Lbl 7:7→U:Return
Lbl 8:8→U:Return
Lbl 9:9→U:Return


File Name:"XIAN-ZE"
0→A:Menu "Menu-Xuan-Ze","Ji-Xu",1,"Tui-Chu",2,"Zan-Ting",3
Lbl 3:Stop
Lbl 2:2→A
Lbl 1:

File Name:"XY-SG"
ClrText
Do
" X"→Str 1:"E"→Str 2:" Y"→Str 3:"F"→Str 4:" QX"→Str 5:"A"→Str 6:" QY"→Str 7:"B"→Str 8:" ZX"→Str 9:"C"→Str 10:" ZY"→Str 11:"D"→Str 12:
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd:Exp(Str 2)→E:Exp(Str 4)→F:Exp(Str 6)→A:Exp(Str 8)→B:Exp(Str 10)→C:Exp(Str 12)→D
Prog "XY-SG1"
Locate 1,7,"X="
Locate 3,7,X
Locate 12,7,"Y="
Locate 14,7,Y
LpWhile 1


File Name:"XY-SG1"
Pol(C-A,D-B
(E-A)cos List Ans[2]+(F-B)sin List Ans[2→X
(F-B)cos List Ans[2]-(E-A)sin List Ans[2→Y

File Name:"ZB-FS"
ClrText
1→A
Do
" X2="→Str 5
"X"→Str 6
" Y2="→Str 7
"Y"→Str 8
" X1="→Str 1
"G"→Str 2
" Y1="→Str 3
"M"→Str 4
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 6)→X
Exp(Str 8)→Y
Exp(Str 2)→G
Exp(Str 4)→M
Lbl 2
Pol(X-G,Y-M
List Ans[2→E
E<0=>E+360→E
Red Locate 1,5," JL="
Red Locate 8,5,List Ans[1]
Blue Locate 1,6," J▫="
E→List 26[7
Prog "JIAODU1"
List 26[7→E
Fix 6
Blue Locate 8,6,E
Fix 3
LpWhile 1


File Name:"ZB-ZS"
Lbl 1
Cls
ClrText
File5
ClrList 5
ClrList 6
1→C
1→W
" Xo="→Str 5
"X"→Str 6
" Yo="→Str 7
"Y"→Str 8
" J▫="→Str 1
"A"→Str 2
" JL="→Str 3
"B"→Str 4
Prog "HX"
Exp(Str 6)→List 5[W
Exp(Str 8)→List 6[W
Exp(Str 2)→A
Exp(Str 4)→B
Lbl 4:If StrCmp(Str 1,"0")=0:Then ClrText:File1:Return:IfEnd:File1
A→List 26[7
Prog "JIAODU"
List 26[7]→A
File5
Bcos A+List 5[W→List 5[W+1
Bsin A+List 6[W→List 6[W+1
W+1→W
ViewWindow Min(List 6)-1-(Max(List 6)-Min(List 6))×0.1,Max(List 6)+1+0.9×(Max(List 6)-Min(List 6)),5,Min(List 5)-1-0.2×(Max(List 5)-Min(List 5)),Max(List 5)+1+0.01×(Max(List 5)-Min(List 5)),5
S-WindMan
S-Gph1 DrawOn,xyLine,List6,List5,1,Dot
DrawStat
A>360=>A-360→A
A<0=>A+360→A
Text 13×3,70×3,"Xo="
Text 13×3,82×3,List 5[W
Text 20×3,70×3,"Yo="
Text 20×3,82×3,List 6[W
Text 27×3,70×3,"J▫="
Fix 6
File1:A→List 26[7:Prog "JIAODU1"
List 26[7→A
Text 27×3,82×3,A
A→List 26[7:Prog "JIAODU":List 26[7→A
File5:Text 43×3,78×3,"QQ:2060909"
Text 50×3,70×3,"ZuoZe:Ling-Heng"
Plot ▲Menu "Menu-Xuan-Ze","Zhi-Dao-Xian",5,"Ji-Xu",6,"Celen-Exit",7
Lbl 5:Goto 2
Lbl 6:Goto 1
Lbl 3:Goto 7
Lbl 7:ClrList 5:ClrList 6:Return
Lbl 2:ClrText:File1:D→List 26[7]:Prog "JIAODU1":List 26[7]→D
File5
"List 5[W"→Str 6
"List 6[W"→Str 8
" ZJ="→Str 1
"D"→Str 2
"B"→Str 4
Prog "HX"
Exp(Str 2)→D
Exp(Str 4)→B
File1
D→List 26[7
Prog "JIAODU"
List 26[7]→D
A+180-D→A
A→List 26[7
Prog "JIAODU1"
List 26[7→A
File5:Goto 4


File Name:"ZCX"
ClrText
Do
File1
Fix 3
Red Locate 1,1,"[Heart][Heart][Heart][Heart][Heart]Ling►Z►Meng[Heart][Heart][Heart][Heart][Heart]"
Green Locate 1,3,"San►Wei( )"
Yellow Locate 12,3,"Sui►Dao( )"
Cyan Locate 1,5,"Gong►Ju( )"
Magenta Locate 12,5,"Gou►Zao( )"
Blue Locate 9,7,"QQ:2060909( )"
Locate List 26[42],List 26[41],"←"
Do
Getkey≠0=>Break
LpWhile 1
List 26[40]→A
Prog "KONGJIAN"
Prog "STR0"
List 26[40]≠A=>Return
If Getkey=31 Or Getkey=63:Then List 26[41]=3 And List 26[42]=9=>Prog "L~SANWEI"
List 26[41]=3 And List 26[42]=20=>Prog "L-SD"
List 26[41]=5 And List 26[42]=9=>Prog "L-PUTONG"
List 26[41]=5 And List 26[42]=20=>Prog "L-BRIDGE"
List 26[41]=7 And List 26[42]=20=>Prog "QQ":IfEnd
If Getkey=33:Then Prog "XL-XZ":
ClrText
File1
Dim List 1→C
List 1[C]-1→B:
For 1→D To 999:
If List 1[D]=U:Then List 4[D]→List 26[19]
List 5[D]→List 26[20]:Break:IfEnd
Next
IfEnd
Getkey=43=>Prog "XINXI"
Getkey=47=>Stop
Getkey=41=>Prog "CE-ZHAN"
If Getkey=42:Then 5→List 26[40]:Return:IfEnd
If Getkey=32:Then 2→List 26[40]:Return:IfEnd
LpWhile 1


File Name:"ZS-XH-1"
File1
Prog "PM-XL-XZ":X+Zcos (Q+List 26[3→G:Y+Zsin (Q+List 26[3→M
Prog "GC"
If List 26[3]≠90 And Z≠0:Then G→T:M→S
L→List 26[8
List 26[3→List 26[9
Z→List 26[10
Q→List 26[11
I→List 26[12
Prog "GL-FS"
J→Z
X+Zcos (Q+90→G
Y+Zsin (Q+90→M
Prog "GC":IfEnd
Prog "B-H"
P>10^40 And R>10^40=>Locate 1,7,"ZhiXian"
P>10^40 And R<10^40=>Locate 1,7,"QYHuan"
P<10^40 And R>10^40=>Locate 1,7,"HYHuan"
P<-10^40 And R>-10^40=>Locate 1,7,"QZHuan"
P>-10^40 And R<-10^40=>Locate 1,7,"HZHuan"
P=R And P<0=>P>-10^40=>Locate 1,7,"ZYuan"
P=R And P>0=>P<10^40=>Locate 1,7,"YYuan"
If P≠R And Abs (P+R)<10^40:Then P<0=>Locate 1,7,"ZNoHuan"
P>0=>Locate 1,7,"YNoHuan":IfEnd
If List 26[3]≠90 And Z≠0:Then List 26[8→L
List 26[9→List 26[3
List 26[10→Z
List 26[11→Q
List 26[12→I
100→E
IfEnd
Q<0=>Q+360→Q
Q→List 26[7
Prog "JK"
If List 26[3]=90 And W≠0:Then Locate 8,7,"B"
Locate 9,7,W
IfEnd
Locate 14,7,"%"
Fix 4
If List 26[3]=90 Or Z=0:Then Locate 15,7,E:Else Locate 15,7,"XieJiao":IfEnd
Fix 3
Prog "JIAODU1"
Fix 3
If List 26[32]=1:Then Red Locate 1,5,"Z="
Red Locate 3,5,Z
Q→List 26[7
Prog "JIAODU1"
Blue Locate 10,6,"Q="
Fix 6
Blue Locate 12,6,List 26[7
Fix 3
Green Locate 1,6,"H="
Green Locate 3,6,O
Magenta Locate 10,5,"GuaX"
If O>List 26[31:Then Magenta Locate 14,5,"+"
Else Magenta Locate 14,5,"-":IfEnd
Magenta Locate 15,5,Abs (List 26[31]-O)
Exp(Str 4)
Else Green Locate 12,5,"H"
Magenta Locate 12,6,"Q"
Fix 6
Magenta Locate 13,6,List 26[7
Fix 3
If List 26[43]=0:Then Green Locate 13,5,O
Blue Locate 1,5,"X"
Blue Locate 2,5,G
Red Locate 1,6,"Y"
Red Locate 2,6,M
Else Pol(G-List 26[5],M-List 26[6
Locate 1,5,"I"
Locate 2,5,List Ans[1
Locate 1,6,"J"
Locate 13,5,O+List 26[50]-List 26[36]-List 26[37]
List Ans[2→A
A-List 26[35→A
While A<0
A+360→A
WhileEnd
A→List 26[7
Prog "JIAODU1"
Fix 5
Locate 2,6,List 26[7
Fix 1
IfEnd
IfEnd


File Name:"ZUANG~J"
File1
ClrGraph:ClrText
RclPict "Pict\zj.g3p"
RclPict "Pict\zj.g3p"
Do:Getkey:LpWhile Ans=0:File1
Getkey=79=>1→List 26[51
Getkey=69=>2→List 26[51
ClrText
Do:90→List 26[3
" L?"→Str 1
"L"→Str 2
" Z?"→Str 3
"Z"→Str 4
" KuaDu"→Str 5
"List 26[50]"→Str 6
Prog "HX"
StrCmp(Str 1,"0")=0=>Return
Exp(Str 2)→L:Exp(Str 4)→Z:Exp(Str 6)→List 26[50
For 1→I To 999
If List 1[I]=U:Then Break:IfEnd
I+List 6[I]→I
Next
For 1→C To List 6[I]
I+1→I
L≤List 12[I]=>Break
Next
If List 8[I]=0:Then List 4[I→P:List 5[I→R:IfEnd
If List 26[51]=1:Then If P=R And P>10^40:Then 0→List 26[47:IfEnd
If P=R And P<10^40:Then List 26[50]²÷(16×P)→List 26[47:IfEnd
If P≠R And P>10^40:Then List 26[50]²×(L-List 1[I])÷(16×R×List 6[I])→List 26[47:IfEnd
If P≠R And P<10^40:Then List 26[50]²×(List 1[I]-L)÷(16×P×List 6[I])→List 26[47:IfEnd
Else If P=R And P>10^40:Then 0→List 26[47:IfEnd
If P=R And P<10^40:Then List 26[50]²÷(18×P)→List 26[47:IfEnd
If P≠R And P>10^40:Then List 26[50]²×(L-List 1[I])÷(8×R×List 6[I])→List 26[47:IfEnd
If P≠R And P<10^40:Then List 26[50]²×(List 1[I]-L)÷(8×P×List 6[I])→List 26[47:IfEnd:IfEnd
Z-List 26[47→Z
Prog "PM-XL-XZ"
X+Zcos (Q+List 26[3→G
Y+Zsin (Q+List 26[3→M
Q→List 26[7
Prog "JIAODU1"
Red Locate 2,5,"X="
Blue Locate 2,6,"Y="
Magenta Locate 2,7,"Q="
Red Locate 4,5,G
Blue Locate 4,6,M
Fix 6
Magenta Locate 4,7,List 26[7
Fix 3
LpWhile 1


File Name:"ZUIPO"
ClrText
File1
" L?"→Str 1
"L"→Str 2
" Z?"→Str 3
"Z"→Str 4
" J?"→Str 5
"J"→Str 6
" ZongPo?"→Str 7
"C"→Str 8
" HengPo?"→Str 9
"D"→Str 10
" SJ-H"→Str 11
"O"→Str 12
" SC-H"→Str 13
"F"→Str 14
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 2)→L
Prog "PM-XL-XZ"
Exp(Str 4)→Z
Exp(Str 6)→J
J→List 26[7:Prog "JIAODU":List 26[7→J
Exp(Str 8)→C
Exp(Str 10)→D
Exp(Str 12)→O
Exp(Str 14)→F
Prog "STR0"
O-F→K
KC÷cos (90-J)→G
KD→H
File5
ClrList 1
ClrList 2
X→A:Y→B
Q+J→R
X+cos (R-90→C
Y+sin (R-90→D
1→S
For 0→I To 360
GHsin J÷(G²×(sin (I))²+H^2×(sin (J-I))²)^0.5→N
A+N×cos (R-I→O
B+N×sin (R-I→P
O→E:P→F
Prog "XY-SG1"
X→List 1[S
Y→List 2[S
S+1→S
I+9→I
Next
1.2×N→N
A+N×cos (Q→List 1[S
B+N×sin (Q→List 2[S
A-N×cos (Q→List 1[S+1
B-N×sin (Q→List 2[S+1
For Dim List 1-1→S To Dim List 1
List 1[S→E
List 2[S→F
Prog "XY-SG1"
X→List 1[S
Y→List 2[S
Next
ViewWindow Min(List 2)-(Max(List2)-Min(List2))×0.05,Max(List2)+0.9×(Max(List2)-Min(List2)),1,Min(List 1),Max(List 1),1
Text (((1)×3)×3)×3,(((70)×3)×3)×3,"L="
Text (((1)×3)×3)×3,(((80)×3)×3)×3,L
Text (((8)×3)×3)×3,(((70)×3)×3)×3,"J="
File1:J→List 26[7:Prog "JIAODU1":
Text (((8)×3)×3)×3,(((80)×3)×3)×3,List 26[7
Prog "JIAODU":List 26[7→J
File5:
Text 15×3,70×3,"Z="
Text 15×3,80×3,Z
Text 50×3,78×3,"QQ:2060909"
Text 57×3,70×3,"ZuoZe:Ling-Heng"
1→T
Do
If T=2
Then " J"→Str 1
"I"→Str 2
Prog "HX"
If StrCmp(Str 1,"0")=0:Then ClrText:Return:IfEnd
Exp(Str 2)→I
File1
I→List 26[7
Prog "JIAODU"
List 26[7→I:File5
GHsin J÷(G²×(sin (I))²+H^2×(sin (J-I))²)^0.5→N
A+N×cos (R-I→O
B+N×sin (R-I→Q
O→E:Q→F
Prog "XY-SG1"
F-Line 0,0,Y,X
Text 1×3,70×3,"X="
Text 1×3,80×3,O
Text 8×3,70×3,"Y="
Text 8×3,80×3,Q
Text 15×3,70×3,"J="
Text 50×3,78×3,"QQ:2060909"
Text 57×3,70×3,"ZuoZe:Ling-Heng"
File1
I→List 26[7
Prog "JIAODU1":
Text 15×3,80×3,List 26[7
IfEnd
File5
For 1→N To Dim List 1-3
F-Line List 2[N,List 1[N,List 2[N+1,List 1[N+1
Next
F-Line List 2[S,List 1[S,List 2[S-1,List 1[S-1
Plot ▲Cls
ClrText
2→T
LpWhile 1
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Casio FX-CG20SDK programming help
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement