4800,4850,5800计算程序

CASIO4800-4850计算程序
1
Lbl 0
2
{LUZIPTKGSH}:
3
L≤626.303=>Q=0:N=3601886.914:E=547501.524:
4
J=156-27-10: Goto1:
5
≠>L≤706.303=>Q=626.303:N=3601312.75:E=547751.706:
6
J=156-27-20:M=-1:C=80:R=4000:Goto3:
7
≠>L≤768.044=>Q=706.303:N=3601239.517:E=547783.907:
8
J=155-52-57.35:R=4000:M=-1:Goto2: 9
≠>L＜848.044=>Q=848.044:N=3601111.086:E=547843.863:
10
J=334-25-30.96: R=4000: M=1:C=80:G=180: Goto 3：
11
≠>L≤1387.746=>Q=848.044:N=3601111.086:E=547843.863:
12
J=154-25-30.96: Goto1:
13
≠>L≤1467.746=>Q=1387.746:N=3600624.263:E=548076.846:
14
J=154-25-30.96:M=1:C=80:R=4000:Goto3:
15
≠>L≤1527.249=>Q=1467.746:N=3600551.986:E=548111.14:
16
J=154-59-53.6:R=4000:M=1:Goto2: 17
≠>L＜1607.249=>Q=1607.249:N=3600424.659:E=548168.129:
18
J=336-25-24.59: R=4000: M=-1:C=80:G=180: Goto 3：
19
≠>L≤2180.31=> Q=1607.249:N=3601424.659:E=548168.129:
20
J=156-25-24.59: Goto1:
21
≠>L≤2300.31=>Q=2180.31:N=3599899.434:E=548397.338:
22
J=156-25-24.59:M=1:C=120:R=2500:Goto3:
23
≠>L≤2517.342=>Q=2300.31:N=3599899.434:E=548397.338:
24
J=156-25-24.59:R=2500:M=1:Goto2:
25
≠>L＜2637.342=>Q=2637.342:N=3599469.659:E=548551.339:
26
J=344-08-51.73: R=2500: M=-1:C=120:G=180: Goto 3：
27
≠>L≤3612.157=>Q=2637.342:N=3599469.659:E=548551.339:
28
J=164-08-51.73: Goto1:
29
≠>L≤3712.157=>Q=3612.157:N=3598531.917:E=548817.618:
30
J=164-08-51.73:M=-1:C=100:R=3000:Goto3:
31
≠>L≤3984.738=>Q=3712.157:N=3598435.875:E=548845.468:
32
J=163-11-34:R=3000:M=-1:Goto2:
33
≠> L ＜4084.738=>Q=4084.738:N=3598086.588:E=548974.532:
34
J=337-01-95:R=3000:M=1:C=100:G=180:Goto3: 35
Lbl 1
36
D=L-Q
37
P=J
38
X=N+D*COS J▲
39
Y=E+D*SIN J▲
40
U“1,0”:U=0=>Goto0 :≠>Goto 4:
41
Lbl 2
42
D=L-Q
43
I=90*D/(兀R)
44
P=J+2IM:P>360=>P=P-360⊿P≤360=>P=P⊿P<0=>P=P+360⊿
45
X=N+2R SIN I*COM (J+IM)▲
46
Y=E+2R SIN I*SIN (J+IM)▲
47
U“1,0”:U=0=>Goto 0: ≠> Goto 4:
48
Lbl 3
49
D=Abs (L-Q)
50
B=D︿3/（6RC）-D︿7/(336(RC) ︿3)+D︿11/(42240(RC) ︿5) 51
A=D-D︿5/(40(RC) ︿2)+D︿9/(3456(RC) ︿4)
52
I=tan-1 (B/A)
53
P=J+3IM+G: P>360=>P=P-360⊿P≤360=>P=P⊿P<0=>P=P+360⊿54
X=N+B/SIN I*COM (J+IM)▲
55
Y=E+B/SIN I*SIN (J+IM)▲
56
U“1,0”:U=0=>Goto 0: ≠> Goto 4:
57
Lbl 4
58
W=X+(Z“JL”)*COM (P+(T“JD”))▲
59
V=Y+Z*SIN (P+T)▲
60
S“F,B(0,1)”
61
S=0=>Goto 0:≠>Goto 5:
62
Lbl 5
63
O=W+K“JULI” COS (P+T+H“JIAODU”)▲
64
Q=V+K SIN (P+T+H)▲
65
Goto 0:
66
说明：
67
这个程序是根据你自己管段的曲线要素来编的。

我个人感觉很方便，68
如有不明白处。

可以联系我。

69
L——为待求点里程。

Q——曲线或直线起点起算里程。

70
N——为起算点X坐标。

E——为起算点Y坐标.
71
R——为曲线半径。

J——起算点的方位角。

或切线方位角
72
G——这个在第2段缓和曲线用终点反过来算的加上180就把边桩左73
右颠倒过来。

74
如果程序计算完中线桩后出现U“1,0”。

输1继续往下进行边桩的75
计算。

输0返回到L(待求点里程)。

76
M——曲线往左偏还是往右偏。

程序里面输1是右偏，输-1为左偏。

77
I——偏角（弦切角）<计算中桩时坐标，左右的偏角.
78
U“1,0”:U=0=>Goto 0: ≠> Goto 4:
79
选1计算第一次边桩。

选0返回计算中桩。

80
Lbl 5 是再次计算边桩。

可以根据你自己的需要加不加Lbl 5算斜角81
桥和涵洞还是挺方便。

82
用万能公式就可以省掉Lbl 2 Lbl 3 喜欢研究的可以修改下。

83
5800计算程序
Lbl 0
?L:IF L≤0000:then 2000→Q:5765.675→N:4016.969→E:
203-45-49.7→J: Goto1:Return: IfEnd（直线段）
IF L≤3000:then 2000→Q:4279.930→N:3110.838→E:
216-28-12.8→J: 1→M:300→C:2700→R:Goto3: Return: IfEnd (缓和曲线)
IF L≤4000:then 3000→Q:4042.056→N:2928.105→E:
219-39-11.6→J:2700→R:1→M:Goto2: Return: IfEnd (圆曲线)
IF L<5000:then 5000→Q:3379.469→N:2125.669→E:
58-40-26.7→J:2700→R:-1→M:300→C:180→G:Goto3：Return: IfEnd（缓和）
Lbl 1
L-Q→D
J→P
N+D*COS J→X▲（E+D*SIN J→Y▲
“1,0”？ U:If U=0：Then Goto0: Else Goto 4: IfEnd
Lbl 2
L-Q→D
90*D/(兀R) →I
J+2IM→P: If P>360：Then P-360-P: Else If P≤360：Then P+360-P: Else P-P:IfEnd:IfEnd
N+2R SIN I*COM (J+IM) →X▲
E+2R SIN I*SIN (J+IM) →Y▲
“1,0”？ U:If U=0：Then Goto0: Else Goto 4: IfEnd
Lbl 3
Abs (L-Q) →D
D︿3/（6RC）-D︿7/(336(RC) ︿3)+D︿11/(42240(RC) ︿5) →B D-D︿5/(40(RC) ︿2)+D︿9/(3456(RC) ︿4) →A
J+3IM+G→P: If P>360：Then P-360-P: Else If P≤360：Then P+360-P: Else P-P:IfEnd:IfEnd
N+B/SIN I*COM (J+IM) →X▲
E+B/SIN I*SIN (J+IM) →Y▲
“1,0”？ U:If U=0：Then Goto0: Else Goto 4: IfEnd
Lbl 4
“JL”?Z:”JD”?T:X+(Z“JL”)*COM (P+(T“JD”)) →W▲
Y+Z*SIN (P+T) →V▲
Goto 0:（程序当运行到这就自动返回了）
说明：5800程序刚修改完毕。

以上是5800程序格式。

根据你们自己的曲线要素来编。

海洋铁路
朱明。