CASIO 4800计算器公路坐标计算程序

CASIO 4800计算器坐标放样用坐标计算程序 说明:本计算程序通过曲线要素(方位角、偏角、圆曲线半径、缓和曲线长、交点桩号与交点坐标)与放样点中桩桩号的提供,可计算前一曲线缓直点至后一曲线直缓点之间任意一点的坐标。 文件名:ZB FANG YANG

程序:1、F :N :G :R :V :Q :W :K

2

、defm 10

3、

M=V÷

2-V^3÷

240÷

4、

P=V²÷

24÷

R-V^4÷

2688÷

5

、L=

πRN

÷

6、

T=M+(

R+P)

tan (

N ÷27、A=Q-T:B=A+V:D=A+L:8、Rec (T ,F+1809、Z[1]=I+W:10、Rec (T ,F+GN11、Z[3]=I+W:Z[4]=J+K 12、Lb1 0

13、{H,S ,14、H

16、Lb1

17、

18

、X=W+I

19、

Y=J+K◄

20

、Rec

(S

,F+180-

(180-E

))

21

、X=X+I◄

22、Y=Y+J◄

23、Goto 0 24、Lb1 25、26、O=90Z²÷R÷V ÷π 27、X=Z-Z^5÷40÷R²÷V²+Z^9÷3456÷R^4÷28、Z=Z^3÷6÷R ÷V-Z^7÷336÷R^3÷V^3+Z^11÷42240÷R^5÷V^5

29、Lb1 30、Rec(X,F)

31、X=Z[1]+I:Y=Z[2]+J

32、Rec(Z,F+90G)

33、X=X+I◄

34、Y=Y+J◄

35、36、X=X+I◄

37、Y=Y+J◄

38、Goto 0

39、Lb1 3

40、Z=H-A-V÷

41

、O=180Z

÷R

÷π

42

43、

Z=R(1-Cos O)+P

44

、Goto

6

45

、Lb1

46、

47、O=90Z²÷R ÷V ÷π

48、X=Z-Z^5÷40÷R²÷V²+Z^9÷3456÷R^4÷49、Z=Z^3÷6÷R ÷V-Z^7÷336÷R^3÷V^3+Z^11÷42240÷

R^5÷V^5

50、Rec(X,F+GN+180)

51、52、Rec(Z,F+GN+180-90G)

53、X=X+I◄

54、Y=Y+J◄

55、Rec(S,F+GN+180-OG-0G-(180-E))

56、X=X+I◄

57、Y=Y+J◄

58、Goto 0

59、Lb1 5

60、Rec(H-D+T,F+GN)

61、X=W+I◄

62、Y=K+J◄

63、

64

、X=X+I◄

65、Y=Y+J◄

66、Goto 0

编制:王志强2004年7月


© 2024 实用范文网 | 联系我们: webmaster# 6400.net.cn