由本站论坛　tnt　提供，谢谢



CASIO-fx4800p

1 KWX（开挖线放样）
Lbl1:{ABC}:Z[5]=A:Z[6]=B:Z[7]=C:Lbl2:Prog“ZBJX”:Abs(Z[5]-X)<0.001=>Goto 4∆ Pol(Z[5]-X,Z[6]-Y):K=K+Icos(J-V):U=U-Isin(J-V):Goto2:Lbl4:Prog“SQX”:A=Z[7]-H:A＜0=>L=AbsU-1.5A-13:≠>L=AbsU-1.0A-15∆ K▲ A+0.75▲ U▲ L▲ Goto 1¿

2 ZBJX（中桩坐标）
Fixm:{K}:Lbl 0:{K}:K:K≤**或≥**=>W=**:C=**:D=**:A=**:B=**:R=**:S=**∆ P=S2/24R-S4/2688R3:Q=S/2-S3/240R2:T=(R+P)tg(AbsA/2)+Q:L=πRAbsA/180:E=W-T:F=E+L¿ K≤E=>L=W-K:X=C+Lcos(B-180):Y=D+Lsin(B-180):V=B:Goto 1∆ K≤E+S=>L=K-E:X=L-L5/40R2S2:Y=L3-6RS-L7/336R3S3:Pol(T-X,Y):X=C+Icos(B-180-AbsAJ/A):Y=D+Isin(B-180- AbsAJ/A):V=B+90L2AbsA/AπRS:Goto 1∆ K≤F=>L=K-E-S:I=(S/2+L)×180/πR:X=T-RsinI-Q:Y=R(1-cosI)+P:V=IAbsA/A+B:Pol(X,Y):X=C+Icos(B-180-JAbsA/A):Y=D+ Isin(B-180-JAbsA/A):Goto 1∆ K≤F+S=>L=F+S-K:X=T-L+L5/40R2S2:Y=L3/6RS-L7/336R3S3:Pol(X,Y):X=C+Icos(B+A+JAbsA/A):Y=D+ Isin(B+A+JAbsA/A):V=B+A-90L2AbsA/AπRS:Goto 1∆ K≤F+S=>L=K+T-S-F:X=C+Lcos(A+B):Y=D+Lsin(A+B):V=A+B:Goto 1∆ Lbl 1:X=X+Ucos(V-090):Y=Y+Usin(V-090) O=V¿

3 SQX（竖曲线）
Fixm:{K}:K≤**或≥**=>G=**:C=**:R=**:E=**:F=**∆ W=F-E:T=Abs(RW/2):KH=C-E(G-K)∆ K≥G-T=>H=C-E(G-K)+(K+T-G)2AbsW/2RW∆ K≥G=>H=C-F(G-K)+(K-G-T)2AbsW/2RW∆ K≥G+T=>H=C-F(G-K)∆¿

4 HGHXP（运行程序）
{KU}:K:U=U:Prog“ZBJX”:Prog “SQX”:X▲ Y▲ H▲

备注：
1(KWX)中， A、B、C为某点的坐标X，Y，Z；K 桩号；L 当L=0时处于开挖线位置；A 高程；A+0.75 测点高程+路面厚度；U 距中线距离。
2(ZBJX)中，K 第二缓和曲线（直线）里程；W 下一个交点桩号；C、D 交点桩号坐标；A 交点转角（左负右正）；B第二缓和曲线对应方位角；R 交点半径；S 缓和曲线长。
3(SQX)中，K 所求点里程桩号+竖曲线切线长的里程；G 变坡点里程；C 变坡点高程；R 变坡半径；E 上个变坡点的坡度；F 变坡点的坡度。
4
　　①在ZBJX中，应注意各平曲线要素及输入的关系算子正确，其中Lbl 1:X=X+Ucos(V-090):Y=Y+Usin(V-090)正交时，按正交输入夹角，斜交时，则按斜交角度依据左减右加原则输入右斜交角度，运行KWX.则把句首{K}：K：删除，运行ZBJX方位角则加上。
　　②在KWX中L=Absu+1.5A-13:≠>Absu+1.0A-15∆根据工程实际情况而定随边坡平台参数，宽度等因素影响，运行出现Mem ERROR应赋内存shift Defm 10。
5、在HGHXP应在“ZBJX” “SQX”无误的情况下运行。示例 ZBJX Fixm:{K}:Lbl 0:{K}:K:K≤8212.522 ÞW=7387.466:C=3082555.847:D=507642.304:A=9027’31”:B=90049’59”:R=2500:S=0∆ K≥8212.522 ÞW=8581.834:C=3082342.2959:D=508818.4014:A=-27036’51”:B=100017’29”:R=1350:S=75∆ P=S2/24R-S4/2688R3:Q=S/2-S3/240R2 后面K≥的输入，程序接后！ SQX Fixm:{K}:K≤7951.441ÞG=7912.523:C=54.54:R=8000:E=-0.00647:F=0.003259∆ K≥7951.441ÞG=7912.523:C=54.54:R=8000:E=-0.00647:F=0.003259∆ W=F-E:T=Abs(RW/2):K