rrr

fx CASIO 9860G SD线元法隧道三维计算程序 (2010-07-07 23:39:20)
标签： 杂谈
1. A（此为主程序）
Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：
If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ：
If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd： Lbl 3：〝ZH=H〝？→H ：
〝SDZF=Z〝？→Z： Prog〝ZGCZCX〝： GOTO 0：Lbl 1 ：〝ZH=L〝？→L：
If L>173000 And L<174661.96：Then GOTO 4 ： Else GOTO 0 ： IfEnd ：
Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q：
Prog 〝ZBQXYS〝 ：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝：
〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲
L→H：Q-0.125→Z： Prog 〝ZGCZCX〝：GOTO 0：
Lbl 2： 〝XO=M〝?→M：〝YO=R〝?→R：173300→L：
If M>3845505.273 And M<3846506.099
And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2：
IfEnd ：Lbl 5：0→Q：0→J：
Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q▲
L→H：Q→Z： Prog 〝ZGCZCX〝：GOTO 0
2.正算坐标ZBZS
( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U： 2HF/ I→D： C+4D+16U→Ｏ：
O+J→P ：C+ D+ U→E： C+2D+4U→W： C+3D+9U→G：
A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ：
B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y
3.反算坐标： ZBFS
Lbl 0：Prog 〝ZBQXYS〝 ：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：
L+P→L：If Abs P≥0.001：Then GOTO 0 ：Else GOTO 1： IfEnd ：
Lbl 1： (R-Y)cosO-(M-X) sinO→Q
4. 曲线元要素数据库：ZBQXYS
If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：
If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：
If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：
If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：
If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ：
……………………………
If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T IfEnd ┘
(注：如有多个曲线元要素继续添加入数据库ZBQXYS中)
5 高程计算主程序 ZGCZCX (后有修改说明)
Lbi1 ：〝SCGC=X〝？→X：〝R=M〝：5.98→M：〝CS=N〝：1.603→N：Prog＂GCSJK＂：C-D→F：Abs(RF÷2) →T：R AbsF÷F→R：If H≤B-T ： Then 0→K：GOTO 2：
IfEnd ：If H>B-T And H<B+T ： Then H-B+T→K ：GOTO 2：IfEnd ：
If H≥B+T ： Then 0→K：D→C：GOTO 2：IfEnd ：
Lbi 2 ：〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If Z≥0 ：
Then If X>100 Then 〝YO1XGC=J〝：G+N→J▲
〝YGCFSKD=J〝：Abs√(