平曲线坐标计算程序

平曲线坐标计算程序(CASIO fx-4800P)

A子程序:X>M Prog“B”:Goto 0:≠ X=M Prog“C”:≠ X<M Prog“B”:Q=Q+180:Lb1 0:Q=Q+360:Q≥360 Q=Q-360◢≠ Q=Q◢

B子程序:Q“Q”=tan-1((Y-N)÷(X-M)

C子程序:Y≥N Q=90◢

≠ Q=270◢

D子程序:C“SO”=√((X-M)2+(Y-N)2)

主程序:

R“R”S“LS1”U“LS2”W“ZG”P“WZH”:A=90S÷Rπ:B=90U÷Rπ:

C=S2÷24R:D=U2÷24R:E=S÷2-S^3÷240R2:F=U÷2-U^3÷240R2:Q“T1”=E+(R+C)tan(AbsW÷2)+(D-C)÷sin AbsW◢

K“T2”=F+(R+C)tan(AbsW÷2)-(D-C)÷tan AbsW◢

O“S”=(AbsW-A-B)Rπ÷180+S+U◢

J“JD”T“XJD”V“YJD”:A“ZH”=J-Q◢

B“HY”=A+S◢

E“YH”=A+O-U◢

F“HZ”=A+O◢

G“XZH”=T+Q cos(P+180)◢

H“YZH”=V+Q sin(P+180)◢

I“XHZ”=T+K cos(P+W)◢

J“YHZ”=V+K sin(P+W)◢

M“XO”N“YO”:Prog“A”:Prog“D”◢

Lb1 O:{Z}:Z“ZHUANG HAO”:{D}:D:{T}:T“JG”:Lb1 0:Z≤A Goto 1:≠ Z>A Z≤B L=Z-A:Goto 2:≠ Z>B Z≤E L=S:Goto 2:≠ Z>E Z≤F L=F-Z:Goto 2:≠ Z>F C=Z-F:Goto 8△Lb1 1:C=A-Z:X=G+C cos(P+180):Y=H+C sin(P+180):V=P:Goto 9△Lb1 2:Z>A Z≤E K=RS:Goto Y:≠ Z>E Z≤F K=RU:Goto Y△Lb1 Y:K=0 V=P:X=G:Y=H:Goto 6△Goto 3:Lb1 3:X=L-L^5÷40K2+L^9÷3456K^4-L^13÷599040K^6:Y=L^3÷6K-L^7÷336K^3+L^11÷42240K^5-L^15÷9676800K^7:C√(X2+Y2):V=90L2÷πK:Q=tan-1(Y÷X):Goto A△Lb1 A:W<O Q=-Q:V=-V GotoB△ Lb1 B:Z>A Z≤E Goto 5:≠ Z>E Z≤F Goto 7△Lb1 5:X=G+C cos(P+Q):Y=H+C sin(P+Q):V=P+V :Goto C△ Lb1 C:Z>A Z≤B Goto 9:≠ Z>B Goto 6△ Lb1 6:∠L=Z-B:Q=90L÷πR:C=2R sinQ:Goto D△ Lb1 D:W<O Q=-Q:Goto E△ Lb1 E:X=X+C cos(V+Q):Y=C sin(V+Q)+Y:V=V+2Q:Goto 9△ Lb1 7:X=I+C cos(P+W+180-Q):Y=J+C sin(P+W+180-Q):V=P+W-V:Goto 9△ Lb1 8:X=I+C cos(P+W):Y=J+C sin(P+W):V=P+W:Goto 9△ Lb1 9:X=X+D cos(V+T):“X=”:Pause 0:Y=Y+D sin(V+T)◢

Prog“A”:Prog“D”:◢

Goto O

程序执行输入说明

R:输入半径

Ls1:缓和曲线第一段长度

Word文档免费下载Word文档免费下载:平曲线坐标计算程序 (共2页,当前第1页)

你可能喜欢

  • excel计算大全
  • 缓和曲线坐标计算
  • 竖曲线计算
  • 平曲线要素
  • 坐标计算软件
  • 线路坐标计算
  • 测量坐标计算公式
  • 交点法坐标计算

平曲线坐标计算程序相关文档

最新文档

返回顶部