卡西欧计算器FX-5800正反算、隧道超欠挖计算程序

正算程序 (ZS)  ：
Lb1 0 ： FIX 4 ： S ： Z ： Prog PMSJ ： Abs(SO) → W ： Prog SUB1 ： XS ： X ◢ YS ： Y ◢ F90 → F ( 需时显示时必输入 ) ： Pro gSQXSJ Prog SQX ： H ： H ◢ Goto 0
反算程序 (FS) 
Lb1 0 ： FIX4 S ： X ：？ Y ： Prog PMSJ ： X→ I ： Y→ J ： Prog SUB2 ： S ： O+W→S ◢ Z ： Z ◢
Prog SQXSJ ： Prog SQX ： H ： H ◢ Goto 0
隧道 3 心圆放样程序（ SD3XY ） 
Lb1 0 ： Prog FS ： 15 → A ： 165 → B ： 089→ G ： 227 → C ： 33 → D ： 241 → E ： 051 → J ： H1 ： F ： ifF≤ H+ A ： then EAbsZ → W ： IfEn d ： ifF ＞ H+A And F ≤ H+A+ B ： then√ （ D² （ FHA ） ² ） GAbsZ → W ： IfEn d ： ifF ＞ H+A+ B ： then√ （ C² （ FHAJ ） ² ） AbsZ → W ： IfEn d ： W ： W◢ （水方超欠挖：正欠 负超） Goto0 
正算子程序 (SUB1)
1÷P → C ： (PR)÷(2HPR) → D ： 180÷π → E ： 01739274226 → A ： 03260725774 → B ： 00694318442 → K ： 03300094782 → L ： 1L → F ： 1K → M ： U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) → X ： V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) → Y ： G+QEW(C+WD)+90 → F ： X+ZcosF → X ： Y+ZsinF → Y 反算子程序 (SUB2)
G90 → T ： Abs((YV)cosT(XU)sin （ T ） ) → W ： 0 → Z ： Lbl 0 ： Prog SUB1 ： T+QEW(C+WD) → L ： (JY)cosL(IX)sinL → Z ： ifAbsZ<1E 6 ： thenGoto1 ： ElssW+Z → W ： Goto 0 ： IfEnd
Lbl 1 ： 0 → Z ： Prog SUB1 ： (JY)÷sinF → Z 子程序（面线形数库） PMSJ 
ifS ≥ 500 （线元起点里程） AndS ＜ 769256 （线元止点里程）： Then19942837 → U （线元起点 X 坐标） ： 28343561 → V （线元起点 Y 坐标） ： 500 → O （线元起点里程） ： 125 ° 16 ° 31 ° → G （线元起点方位角） ： 269265 → H （线元长度） ： 10^ （ 45 ） → P （线元起点曲率半径）： 10^ （ 45 ） → R （线元终点曲率半径）： 0 → Q （线元左右偏标志：左负右正）： IfEnd 
ifS ≥ 769256 （线元起点里程） AndS ＜ 806748 （线元止点里程）： Then1978734 → U （线元起点 X 坐标） ： 28563378 → V （线元起点 Y 坐标） ： 769256 → O （线元起点里程） ： 125 ° 16 ° 31 ° → G （线元起点方位角） ： 37492 → H （线元长度） ： 10^ （ 45 ） → P （线元起点曲率半径）： 22175 → R （线元终点曲率半径）： 1 → Q （线元左右偏标志：左负右正）： IfEnd
ifS ≥ 806748 （线元起点里程） AndS ＜ 919527 （线元止点里程）： Then19766566 → U （线元起点 X 坐标） ： 28594574 → V （线元起点 Y 坐标） ： 806748 → O （线元起点里程） ： 120 ° 25 ° 5407 ° → G （线元起点方位角） ： 112779 → H （线元长度） ： 22175 → P （线元起点曲率半径）： 22175 → R （线元终点曲率半径）： 1 → Q （线元左右偏标志：左负右正）： IfEnd
ifS ≥ 919527 （线元起点里程） AndS ＜ 999812 （线元止点里程）： Then19736072 → U （线元起点 X 坐标） ： 28701893 → V （线元起点 Y 坐标） ： 919527 → O （线元起点里程） ： 91 ° 17 ° 3063 ° → G （线元起点方位角） ： 80285 → H （线元长度） ： 22175 → P （线元起点曲率半径）： 9579228 → R （线元终点曲率半径）： 1 → Q （线元左右偏标志：左负右正）： IfEnd 
ifS ≥ 999812 （线元起点里程）： Then19744038 → U （线元起点 X 坐标） ： 28781659 → V （线元起点 Y 坐标） ： 999812 → O （线元起点里程） ： 80 ° 40 ° 50 ° → G （线元起点方位角） ： 100 → H （线元长度） ： 10^ （ 45 ） → P （线元起点曲率半径）： 10^ （ 45 ） → R （线元终点曲率半径）： 0 → Q （线元左右偏标志：左负右正）： IfEnd
子程序（竖曲线数库） SQXSJ
ifS ≤ 999812 （竖曲线终点里程）： then00357 （前坡度：坡正坡负） → E ： 00227 （坡度： 坡正坡负 ） → F ： 600 → R （竖曲线半径）： 780 → G （变坡点里程）： 110 → C （变坡点高程）： IfEnd
子程序（竖曲线计算公式） SQX 
EF → J ： ifJ ＞ 0 ： thenR → R ： ElssR→ R ： Abs （ R*J÷2 ） → T ： IfEnd
ifS ≤ G T ： thenGS → L ： CLE → H ： IfEnd
ifS ＞ G T And S ≤G ： thenGS → L ：（ S+TG ） ²÷2÷R →N ： CLE+N → H ： IfEnd
ifS ＞ G And S ≤ G+ T ： then SG → L ：（ G +T S ） ²÷2÷R →N ： C+LF+N → H ： IfEnd
ifS ＞ G+ T ： thenSG → L ： C+LF → H ： IfEnd
说明 
(1) 道路中线前进方（里程增方）区分左右线元左偏时 Q1 线元右偏时 Q1 线元直线时 Q0 
(2) 求点位中线时 Z0 位中线左铡时 Z 取负值位中线中线右侧时 Z 取正值 
(3) 线元直线时起点止点曲率半径穷 10 45 次代 
(4) 线元圆曲线时起点止点什线元相接曲率半径均等圆弧半径 
(5) 线元完整缓曲线时起点直线相接时曲率半径穷 10 45 次代圆曲线相接时曲率半径等圆曲线半径止点直线相接时曲率半径穷 10 45 次代圆曲线相接时曲率半径等圆曲线半径 
(6) 线元非完整缓曲线时起点直线相接时曲率半径等设计规定值圆曲线相接时曲率半径等圆曲线半径止点直线相接时曲率半径等设计规定值圆曲线相接时曲率半径等圆曲线半径

文档香网(httpswwwxiangdangnet)户传

《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档