CASIO程序(线路计算6.0版)(附加)
Casio计算器测量程序
半边书生二○○四年三月总说明本套程序共包含平曲线、竖曲线、方位角等共个程序，是本人查阅大量测量书籍并结合工地实践历经半年编成，是一本原创、简捷、实用、功能强大的用于公路路线测量放样的CASIO 4X00型计算器程序集。
是一本用于公路工程测量的不可多得的工具册。
本集子中所有的范例均出自某二级公路，其参数附后。
从二○○二年五月初的平、竖曲线主体编完，也就是本集子的雏型出来以后，经过半年左右的酝酿、编写、修正、归纳，后续的各程序已基本成型。
从那时起至今，我又将新的灵感新的功能不断地融合到其中使之不断成长。
功能简介：A>平曲线可单独计算直-缓1-圆-缓2-直型不对称曲线，也可配合程序【ALL ROAD】计算一条路线的大地坐标(只需输入桩号、边中距即可得出该点的大地坐标)。
B>竖曲线可单独计算二次抛物线型竖曲线,也可配合程序【DATA】计算一条路线的各桩高程（只需输入该点的桩号即可得出该点的设计高程）。
C>方位角可单独计算两点之间的方位角和平距，也可配合程序【H.CURVE】直接得出测站点到放样点的平距和方位角。
D>超高(正在完善中)可根据相邻的两段曲线要素及路线设计标准自动计算各处中桩与边桩的高差。
（以中桩标高为设计标高）E>曲线要素复核可根据输入的曲线要素自动计算各个参数,以此与设计文件的参数对照用于检查设计文件的正确与否。
F>锥坡放样根据输入的值及点值自动计算出正交锥坡弧线上各点的大地坐标，直接输入仪器放出该点。
还可任意加密。
G>横断面面积计算(正在完善中…………)根据公路横断面的尺寸设定好参数，逐点输入各变化点的平距和高差程序能自己计算出该断面的挖填面积。
（不理想，没有解决半填半挖断面的问题，填方断面计算也不理想）H>求多边形所围面积程序只需输入变化点个数然后逐个输入各相邻变化点之间的平距和高差即可得出各点所围成的多边形面积。
具有自动闭合到第一点的功能，注意一定要是凸形多边形不要输入交叉多边形，理论上可以计算N个边的多边形。
卡西欧5800-9960系列计算器通用程序集
卡西欧5800-9960系列计算器通用程序集第一篇坐标正反算通用程序(终极篇)1. 坐标正算主程序(命名为ZBZS)第1行：Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B第2行：Prog “A”第3行：”X=”:N+Zcos(F+B)◢第4行：”Y=”:E+Zsin(F+B)◢第5行：”F=”:F◢第6行：Goto 0K——计算点的里程BIAN——计算点到中桩的距离（左负右正）α——取前右夹角为正更改红色字体部分可调用其他线路数据库，本程序调用A匝道数据显示X坐标显示Y坐标显示中线切线方位角，可省掉2. 坐标反算桩号和偏距主程序(命名为ZBFS) 第1行：”X1=”? C:”Y1=”?D: ”K1=”?K第2行：Lbl 0:Prog “A”第3行：Pol(C-N,D-E)第4行：List Ans[1]→I第5行：List Ans[2]→J第6行：Icos(F-J)→S:K+S→K第7行：Abs(S)>0.0001=>Goto 0第8行：”K1=”:K◢第9行：”BIAN=”:Isin(J-F)→Z◢X1——取样点的X坐标Y1——取样点的Y坐标K1——输入时为计算起始点(在线路内即可)，输出时为反算点的桩号Z——偏距（左负右正）更改红色字体部分可调用其他线路数据库，本程序调用A匝道数据取出距离，在9860中，Pol和Rec函数结果存储在List Ans列表中取出方位角反算桩号反算偏距，为方便其他程序的调用，赋值到变量Z注：第4行和第5行为5800版本计算器以上特有的语句，在5800中不能增加此语句，其余程序语句均可与5800共用。
3. 计算坐标子程序(命名为XYF)为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-A→S：(Q-P)÷L→I第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N 第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E 第4行：F+S(2P+S I)×90÷π→F 反向计算时需改为Abs(K-A)→S 计算中桩的X坐标计算中桩的Y坐标计算中线切线方位角4. 数据库（命名为A）第1行：K≤175.191=>Stop第2行：175.191→A:428513.730→N:557954.037→E:92°26′40″→F:0→P:1/240→Q:70.417→L: K≤A+L =>GoTo 1（第一缓和曲线，圆半径为240）第3行：245.607→A: 428507.298→N:558024.092→E: 100°50′59.4″→F: 1/240→P:1/240→Q:72.915→L: K≤A+L =>Goto 1（第圆曲线，半径为240）第4行：318.522→A: 428482.988→N:558092.538→E: 118°15′25.2″→F: 1/240→P: 0→Q: 55.104 →L: K≤A+L =>Goto 1（第二缓和曲线，圆半径为240）第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L:卡西欧fx-5800P程序集K≤A+L=>Goto 1:Stop（第一缓和曲线，圆半径为180）第6行：Lbl 1:Prog “XYF”A——曲线段起点的里程N——曲线段起点的x坐标E——曲线段起点的y坐标F——曲线段起点的坐标方位角P——曲线段起点的曲率(左负右正)Q——曲线段终点的曲率(左负右正)L——曲线段长度（尽量使用长度，为计算断链方便）说明：（1）在9860中，程序中所有公式和部分函数结果均存储在List Ans列表数组中，要想多次调用最好随公式取出结果，并赋给变量。
卡西欧计算器编程简单线路中边桩
串列设计简单线路中、边桩计算（直-圆-直）ZBZDeg“Clear List? Y(1),N(2)”?->KIf K=1=>ClrList“X0”->List 1[0]“Y0”->List 2[0]“KD0”->List 3[0]“par”->List 4[0]“KD1”->List 5[0]“NR”->List6[0]“WR”->List7[0]“XN”->List 8[0]“YN”-> List 9[0]“XM”->List 10[0]“YM”-> List 11[0]“XW”->List 12[0]“YW”-> List 13[0]“Input data？Y(1), N(2)”?->KIf K=1Then“GO to Menu 2”StopIfendDim List 2=NIf N=2ThenIf List 3[2]>list 3[1]ThenPol(List 1[2]-List1[1], List 2[2]-List 2[1])List Ans[2]->List 4[2]List 4[2]<0=>List 4[2]+360-> List 4[2]ElsePol(List 1[1]-List1[2], List 2[1]-List 2[2])List Ans[2]->List 4[2]List 4[2]<0=>List 4[2]+360-> List 4[2]IfEndIf End********************************** 求圆心坐标List 4[1]->RList 4[4]->KList 1[1]+ R*cos (List 4[2]+ K*90)->CList 2[1]+ R*sin (List 4[2]+ K*90)->D****************************************计算圆直点里程List 3[1]+R*List 4[3]*pi/180->L“YZ KD：”L⊿For 1->I To Dim List 5If List 5[I]>List 3[1] And List 5[I]<LThenList 4[2]+ K*90+180+(List 5[I]-List 3[1])/R*180/pi->TC+(R-List6[I])*cos T->List 8[I]D+(R-List6[I])*sin T->List 9[I]C+R*cos T->List 10[I]D+R*sin T->List 11[I]C+(R+List7[I])*cos T->List 12[I]D+(R+List7[I])*sin T->List 13[I]ElseIf List 5[I]< List 3[1]ThenList 1[1]+( List 3[1]-List 5[I])*cos (List 4[2]+180)->List 10[I]List 2[1]+ ( List 3[1]-List 5[I])*sin (List 4[2]+180)->List 11[I]List 10[I]+List 6[I]*cos(List 4[2]+K*90)->List 8[I]List 11[I] +List 6[I]*sin(List 4[2]+K*90)->List 9[I]List 10[I]+List 7[I]*cos(List 4[2]-K*90)->List 12[I]List 11[I] +List 7[I]*sin(List 4[2]-K*90)->List 13[I] ElseList 4[2]+ K*90+180+ List 4[3]->TC+R*cos T->UD+ R*sinT->VList 4[2]+K*List4[3]->TU+(List 5[I]-L)*cos T -> List 10[I]V+(List 5[I]-L)*sin T-> List 11[I]List 10[I]+List 6[I]*cos(T+K*90)-> List 8[I]List 11[I]+ List 6[I]*sin(T+K*90)->List 9[I]List 10[I]+List 7[I]*cos(T-K*90)-> List 12[I]List 11[I]+ List 7[I]*sin(T-K*90)->List 13[I] IfEndIfEndNext“KD XN YN XM YM XW YW”List->Mat(List 5,list 8, list 9, list 10, list 11, list 12, list 13)⊿“END”。
高速公路测量计算CASIO程序全套(Word)
高速公路测量计算CASIO程序全套坐标主程序XY(坐标程序)LbI 2｛K｝PROG “SUB3”X=X◢Y=Y◢｛v｝v=√2 PROG “SUB 2”：⊿GOTO 2FANS｛MNWT｝M“X0=” ：N“Y0=”W“X-=” ：T“Y-=”Z=tan-1((T-N)/(W-M+0.19)LbI 7｛UV｝U“JIAO=”V“JU=”W＞M U=U+Z：GOTO 3：⊿U=U+Z-180LbI 3P=M+VcosU◢Q=N+VsinU◢｛K｝K“DGLC=”LbI 6Prog “SUB 3”O=（Q-Y+（P-X）/（tanE+0.19））×sinEK=K+OO=Abs OO≥0.17GOTO 6：⊿K=K◢V=（Q-Y+（X-P）×tanE）×cosE ◢GOTO 7子程序ZHIX 1H= K-80100 （80+100为起点里程，直线段）A=3026441.522 （A、B为K80+100坐标）B=515965.236E=270.265 为K80+100方位角X=A+HcosE Y=B+HsinEQUX 1 （K80+100~ K80+948.114曲线右偏）R=900：L=170H=K-80310.927 （80+310.927为ZH点里程）I=K-80480.927 （80+480.927为HY点里程）I≤0A=3026442.499B=515754.311 （A、B为ZH点坐标）PROG “SUB 1”E=270.265+3×G （270.265为ZH点方位角）X=A+Fcos（E-2G）Y=B+Fsin（E-2G）Goto 2 ⊿J=K-80778.114J≤0A=3026448.633 ：B=515584.489 （A、B为HY点坐标）C=I×90÷π÷RD=2×R×sinCE=275.6763+2C （275.6763为HY点方位角）X=A+D×cos（E-C）Y=B+D×sin（E-C）Goto 2 ⊿S=K-80948.114S≤0A=3026606.193 ：B=515149.157 （A、B为HZ点坐标）H=-SPROG “SUB 1”E=300.0072-3×G （300.0072为HZ点方位角）X=A+Fcos（E+180+2G）Y=B+Fsin（E+180+2G）Goto 2 ⊿LbI 2备注：曲线左偏与右偏，只有中间几个“＋－”号的区别。
卡西欧fx导线标计算程序
卡西欧fx导线标计算程序————————————————————————————————作者：————————————————————————————————日期：卡西欧fx-4800计算器（2007年07月08日）一.计算线路平曲线坐标计算主程序XYZ2及子程序XYZ1：子程序名XYZ1X=S×(1-S∧4÷40÷A∧4+S∧8÷3456÷A∧8-S∧12÷599040÷A∧12)Y=S∧3÷6÷A2×(1-S∧4÷56÷A∧4+S∧8÷7040÷A∧8-S∧12÷1612800÷A∧12)主程序名XYZ2{BOT}: ZJ'' KØ'' E'' XØ''H'' YØ''C'' AØ''A''√RL'':Z=1 F=K-J: G=Ø: D=ØZ=2 L=K-J:D=(AbsL÷R)r: F=R×sin(L÷R)r:G=F×tan(D÷2)Z=3 S=K-J:D=9Ø×R×S2÷(π×A2×AbsR):prog''XYZ1'':F=X:G=Y×AbsR÷RZ=4 S=A2÷AbsR:P=K-J:L=S-AbsP:C=C+9Ø×A2÷(π×R×AbsR): D=-9Ø×L2×AbsR÷(π×R×A2):prog''XYZ1'':F=X:G=Y:S=L:prog''XYZ1'':F=P×(F-X)÷AbsP:G=P×(Y-G)×AbsR÷(R×AbsP)C+D ◢X=E+F×cosC+G×cos(C+9Ø)+B×cos(C+D+O)+T×cos(C+D) ◢Y=H+F×sinC+G×sin(C+9Ø)+B×sin(C+D+O)+T×sin(C+D)说明：①、 Z表示平曲线的线型：Z=1表示直线，Z=2表示圆曲线，Z=3表示缓和曲线，Z=4表示不完全缓和曲线。
CASIO计算器全路线程序计算word资料7页
CASIO计算器全路线程序计算1前言为了兼顾在CASIO-4800/CASIO-4850计算器上应用，路线元素输入中，采用即时校核改错输入方式，方便输入与校对改错。
程序编写过程中尽可能使程序短小精简，便于手工输入程序与节约内存。
全路线参数一次输入计算器存储容量不够用时，可以输入部分路线参数分段使用。
CASIO-4800/CASIO-4850计算器不能使用变量定义扩充变量存储器。
自定义存储器个数需要手工设置，自定义存储器个数设置为：（Z[6]+1）×6+Z[5]×3。
Z[6]为平曲线个数；Z[5]为竖曲线个数（包括起点与终点）。
CASIO-5800计算器，计算器程序根据输入的曲线个数自动设置。
2.程序特点（1）以交点桩号、坐标为基础数据，避免了路线全系统错误的发生。
（2）路线断链自动处理。
按设计图纸修改断链子程序序中的断链桩号。
（3）统一设置分配变量、参数存储器。
三组程序根据需要任意切换调用，不影响各自的基础参数。
（4）只输入最基本的必需参数，如竖曲线的凹凸判别问题、平曲线偏转左右判别问题、前缓和线段与后缓和线判别问题、桩号断链处理、设计缓和线不等长等问题均自动处理。
（5）计算误差一般在0.5mm 以内。
竖曲线段设计标高计算使用了平面解析几何方法推导的计算公式，计算精度可以满足工程施工规范要求。
平曲线参数计算公式中程序将自动处理设计缓和线不等长时的相关曲线参数计算。
（6）全路线坐标计算程序，在基础参数输入时，只要求输入路线交点桩号，交点坐标X、Y值、曲线半径、缓和线长度等五个必需的参数。
纯圆平曲线时，设计缓和线长度L输入0。
平曲线前后设计缓和线等长时，输入设计缓和线长度L时，L值只输入一个数即可。
平曲线前后设计缓和线不等长时，前后设计缓和线长度需合并输入L。
由程序自动识别处理。
（例如：设计缓和线等长L1=L2=85，L值输入85。
设计缓和线不等长L1=85；L2=75，L值输入1085075。
CASIO程序线路计算60版等缓篇-16页word资料
一、扩展变量设置说明1．统计各种要素点的数目各要素点数目表设置扩展变量总数目为：32+5a+3b+2c+d+2e(使用横坡点)或26+5a+3b+2c+d+2e(未使用横坡点)个2．设置各扩展变量数据①固定变量及自由变量Z[1]～Z[15]Z[1]:结构层厚度Z[2]:半幅路基硬路面宽度(包含分隔带)Z[3]～Z[15]:程序中使用的自由变量②平曲线要素扩展变量Z[16]～Z[21+5a]各平曲线要素于扩展变量中的位置表③竖曲线要素扩展变量Z[22+5a]～Z[26+5a+3b]各竖曲线要素于扩展变量中的位置表注：扩展变量Z[26+5a+3b]设置为空值（即为0），以便其在程序中使用。
④超高设计扩展变量Z[27+5a+3b]～Z[26+5a+3b+2c]各段超高设计数值于扩展变量中的位置表说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可，当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。
⑤边坡坡度扩展量Z[27+5a+3b+2c]～Z[26+5a+3b+2c+d]当使用了子程序FY时，d=10，否则d=0，这些扩展变量主要用于储存各阶边坡的坡度。
⑥导线点扩展变量Z[27+5a+3b+2c+d]～Z[26+5a+3b+2c+d+2e]各导线点坐标值于扩展变量中的位置表⑦路基横断面点扩展变量Z[27+5a+3b+2c+d+2e]～Z[32+5a+3b+2c+d+2e](根据情况可省)Z[27+5a+3b+2c+d+2e]=-11.5（路基横坡1#点）Z[28+5a+3b+2c+d+2e]=-6.0（路基横坡2#点）Z[29+5a+3b+2c+d+2e]=-0.75（路基横坡3#点）Z[30+5a+3b+2c+d+2e]=0.75（路基横坡4#点）Z[31+5a+3b+2c+d+2e]=6.0（路基横坡5#点）Z[32+5a+3b+2c+d+2e]=11.5（路基横坡6#点）上述横断面点的扩展变量里数据设置可根据需要进行修改。
CASIO计算器公路程序
Casio4800计算机在公路施工测量中的应用及公路路线中边桩三维坐标正反算程序编制1：已知线外任意点坐标，求对应线路里程在缓和曲线上，要计算任意里程的法线方向及任意宽度的边线坐标，非常简单。
但要计算任意一个已知坐标点，是对应哪一个里程法线方向上的点，就有一些困难。
很难推导一个这样的计算公式。
唯一的方法“渐进”，如果手工计算这可不是一个好方法。
但在有CASIO系列可编程计算器，如：FX-4500的情况下就变的非常简单了。
亦可用于直线和圆曲线的计算。
首先在缓和曲线上任选一点A为起始点，计算该点的坐标和切线方位角，通过坐标反算求起始点A与计算点B的方位角和距离，B点肯定对应A点切线方向上有一个垂足C点，把三点看成一个直角三角形，通过解直角三角形计算AC的距离，当该距离大于某一数值，如0。
001m，A点里程加AC的距离等于C 点的里程，回到开始重新进入新一轮的计算，如果AC的距离小于某一规定值，则计算C点的里程与BC的距离即可。
见（图一）求对应线路里程程序：主程序QLC (已知坐标求里程)Lb1 0：｛LＤE｝：Prog …‟XH‟‟：Goto 0子程序：XH (循环)Lb1 1Norm： Prog” LYYD”： I= PO1(D-X,E-Y)：J≤0=> J=J+360⊿Z=J-V： A=I×cos Z：L=L+AAbs A≥0.001=>Goto 1：≠=>B=I×sinZ：Fix 3：B”FXJL（-ZUO，+YOU）”=B ◢Fix3:L”DYLC”=L ◢程序中字母代表 :D 任意点X坐标， E 任意点Y坐标，DYLC 对应里程， FXJL 中线法线距离。
程序中有坐标反算功能。
使用方法：只需输入计算点坐标、和较为接近的桩号L。
桩号越接近计算速度越快2：逐桩坐标计算2.1编制方法：线路坐标程序是按照平曲线为单元，直线部分归属在曲线两端的方法，把整段路线分段装进数据库，根据桩号判断采用数据通过共用程序，进行任意点的坐标计算，在坐标转换示意土，第一直线段，是通过方位角和距离直接计算大地坐标，第一缓和曲线和圆曲线段，是先计算任意点切线支距和方位角然后转换大地坐标，第二缓和曲线段和直线段是先计算任意点切线支距和方位角。
怎样用系列计算器测量线路中边桩
CASIO工程系列计算器在测量线路中边桩的应用一、直线段的程序编制1、直线段的计算模型X=x+DcosJ-MsinJY=y+DsinJ-McosJX、Y－所求点的坐标x、y－已知道点的坐标M－边桩到中桩的距离J－方位角2、程序的编制A"X":B"Y":J:M:KLbIO:﹛Z,M﹜:D=Abs(Z-K)X=A+DcosJ-MsinJ⍓Y=B+DsinJ-McosJ⍓Goto 0本程序符号说明如下:A、B-已知点的坐标K-已知点的里程J-已知点到所求点的方位角Z-所求点的里程M-边桩到中桩的距离D-所求点到已知点的距离X、Y-所求点的坐标二、圆曲线的段程序的编制曲线一般先是求点在局部坐标系下的坐标，然后在用坐标转化公式转化为线路控制坐标。
坐标转化公式如下：X=xcosJ－uysinJY=xsinJ＋uycosJx、y- 局部坐标系下的坐标X、Y: -转化后的坐标J -局部坐标系的x轴坐标和线路控制坐标系y轴的夹角,即本文中的方位角。
在运用此公式时，当曲线左转角u取负值。
当曲线为右转角时u取正值。
1、圆曲线段的计算模型图（1）圆曲线在局部坐标系下的计算公式如下：x＝Rsinφjy＝R(1-cosφj)φj=180l i÷(πR)(所求点所对应的圆心角) 中桩和边桩计算公式X=XZY + xcosα-UySinα-Msin(α+Uφi)Y=YZY + xsinα+Uycosα+Mcos(α+Uφi)2、程序的编制U“Z-,Y+”:A“XZY”: B“YZY": K“KZY”J“FWJ”:RLb10←｛Z,M｝←C=Z﹣K:Q=180C÷(πR) ←W=RsinQ:V=R(1-cosQ)X=A+WcosJ-UVSinJ-Msin(J+UQ) ◢Y=B+WsinJ+UVcosJ+Mcos(J+UQ) ◢Goto 0本程序符号说明如下:U:判断符号左转时为负号,右转时为正A、B-直圆点的坐标K-直圆的里程J-方位角Z-所求点的里程M-边桩到中桩的距离C-所求点到直圆的距离Q-所求点所对应的圆心角X、Y-所求点的坐标三、缓和曲线段的程序编制缓和曲线有三部分组成，中间为圆曲线，两边分别插入回旋曲线。
CASIO互通式立交桥坐标计算程序(定稿)1
CASIO fx-4800P计算器互通式立交桥坐标计算程序周广军（国道昆明东连接线工程项目监理部E-mail：）本人在国道昆明东连接线工程项目从事支线工程的监理工作中，支线二标有一座虹桥村立交桥，此桥为一座互通式立交桥，分为支线桥、东三环桥、匝道桥3大部分，其中匝道桥共7座，匝道路基共2条，坐标计算复杂、工作量大。
由于施工图设计中给出的曲线要素表与一般公路工程中给出的曲线要素表内容不一样，以前已有的CASIO fx-4800P计算器坐标计算程序不适用于本互通式立交桥的计算，因此本人针对互通式立交桥重新编制了CASIO fx-4800P计算器的坐标计算程序，通过在工作中实际使用，效果很好。
一、程序编制思路1、本文用例的施工图设计中给出的曲线要素为每条路线内每个线元的起点桩号、终点桩号、起点桩号的X、Y坐标、起点方位角、起点半径、回旋线参数、本线元长度、偏转方向及线型说明备注，根据施工设计图给出的曲线要素表内容，本程序也针对每个线元分别进行计算。
2、为了最大程度方便快捷的计算坐标，决定把数据嵌入到程序中，每一条路线为一个原始数据文件（扩展名为.D），在每一个原始数据文件中对读取相应线元数据的操作进行控制。
自动计算时本程序只要输入计算哪条路线的参数H和所要计算的桩号D 就可以直接计算出来D点的坐标，方便、快捷、减少输入错误。
在计算不同工程的坐标时，只需要对原始数据文件进行修改、对主程序做局部修改即可通用，很方便。
3、为了实现自动计算一条路线上任意一点D的坐标而不用考虑点D在那个线元上，计算时均是从本条整个路线的起点开始计算。
4、对于圆曲线和缓和曲线上的点是先计算相对坐标再计算绝对坐标。
5、加入边桩的坐标计算功能。
6、即可以从数据文件中读取数据进行自动计算，又可以手工输入线元要素进行手工计算，手工计算仅针对单个线元进行计算。
7、充分采用子程序的方式，各子程序功能清楚，重复利用率高。
8、对所输入的桩号D值是否在本条路线范围内进行有效性检查，以确保数据计算正确。
CASIO程序线路计算60版无缓篇-13页word资料
一、扩展变量设置说明1．统计各种要素点的数目各要素点数目表设置扩展变量总数目为：32+4a+3b+d+2e(使用横坡点)或26+4a+3b+d+2e(未使用横坡点)个2．设置各扩展变量数据①固定变量及自由变量Z[1]～Z[15]Z[1]:结构层厚度Z[2]:半幅路基硬路面宽度(包含分隔带)Z[3]～Z[15]:程序中使用的自由变量②平曲线要素扩展变量Z[16]～Z[21+4a]各平曲线要素于扩展变量中的位置表③竖曲线要素扩展变量Z[22+4a]～Z[26+4a+3b]各竖曲线要素于扩展变量中的位置表注：扩展变量Z[26+4a+3b]设置为空值（即为0），以便其在程序中使用。
④边坡坡度扩展量Z[27+4a+3b]～Z[26+4a+3b+d]当使用了子程序FY时，d=10，否则d=0，这些扩展变量主要用于储存各阶边坡的坡度。
⑤导线点扩展变量Z[27+4a+3b+d]～Z[26+4a+3b+d+2e]各导线点坐标值于扩展变量中的位置表⑥路基横断面点扩展变量Z[27+4a+3b+d+2e]～Z[32+4a+3b+d+2e](根据情况可省) Z[27+4a+3b+d+2e]=-11.5（路基横坡1#点） Z[28+4a+3b+d+2e]=-6.0（路基横坡2#点） Z[29+4a+3b+d+2e]=-0.75（路基横坡3#点） Z[30+4a+3b+d+2e]=0.75（路基横坡4#点） Z[31+4a+3b+d+2e]=6.0（路基横坡5#点） Z[32+4a+3b+d+2e]=11.5（路基横坡6#点）上述横断面点的扩展变量里数据设置可根据需要进行修改。
3.扩展变量设置说明当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定存入对应变量中的数据，同时应根据各程序中方框内的表达式所计算的结果，把方框内的表达式修改为实际数据。
当进行测量放样计算时，若遇到临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。
CASIO程序(线路计算6.0版)
一、扩展变量设置说明1．统计各种要素点的数目各要素点数目表设置扩展变量总数目为：36+6a+3b+2c+d+2e(使用横坡点)或30+6a+3b+2c+d+2e(未使用横坡点)个2．设置各扩展变量数据①固定变量及自由变量Z[1]～Z[19]Z[1]:结构层厚度Z[2]:半幅路基硬路面宽度(包含分隔带)Z[3]～Z[19]:程序中使用的自由变量②平曲线要素扩展变量Z[20]～Z[25+6a]各平曲线要素于扩展变量中的位置表③竖曲线要素扩展变量Z[26+6a]～Z[30+6a+3b]各竖曲线要素于扩展变量中的位置表注：扩展变量Z[30+6a+3b]设置为空值（即为0），以便其在程序中使用。
④超高设计扩展变量Z[31+6a+3b]～Z[30+6a+3b+2c]各段超高设计数值于扩展变量中的位置表说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可，当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。
⑤边坡坡度扩展量Z[31+6a+3b+2c]～Z[30+6a+3b+2c+d]当使用了子程序FY时，d=10，否则d=0，这些扩展变量主要用于储存各阶边坡的坡度。
⑥导线点扩展变量Z[31+6a+3b+2c+d]～Z[30+6a+3b+2c+d+2e]各导线点坐标值于扩展变量中的位置表⑦路基横断面点扩展变量Z[31+6a+3b+2c+d+2e]～Z[36+6a+3b+2c+d+2e](根据情况可省)Z[31+6a+3b+2c+d+2e]=-11.5（路基横坡1#点）Z[32+6a+3b+2c+d+2e]=-6.0（路基横坡2#点）Z[33+6a+3b+2c+d+2e]=-0.75（路基横坡3#点）Z[34+6a+3b+2c+d+2e]=0.75（路基横坡4#点）Z[35+6a+3b+2c+d+2e]=6.0（路基横坡5#点）Z[36+6a+3b+2c+d+2e]=11.5（路基横坡6#点）上述横断面点的扩展变量里数据设置可根据需要进行修改。
casio坐标计算程序
Y=E+LsinQ+Ksin（Q+90)▲
YQ V=180(L-0.5I)/π ×R↘ x=I/2-I3/240R2+(R+K)sinV↘ y=R+I2/24R-(R+K)cosV↘ B=0 ＝＞y=-y⊿↘ Z=tg-1（y/x）+Q↘ S=(x2+y2）1/2↘ X=N+ScosZ▲ Y=E+SsinZ▲
坐标计算程序
程序 ZX 说明 文件名：（直线坐标计算） 待定点X值计算。N:该直线起点X值；L：待定点对 应 中桩到该直线起点长度；Q：该直线坐标方位 角；K:待定点宽度（待定点沿法线方向至中桩的水 平距离）待定点在右侧时取正值，在左侧时取负值 。 待定点Y值计算。E:该直线起点Y值；L：待定点对 应中桩到该直线起点长度；Q：该直线坐标方位 角；K:待定点宽度（待定点沿法线方向至中桩的水 平距离）待定点在右侧时取正值，在左侧时取负值 。
文件名
（圆曲线坐标计算）
待定点往临时坐标系里的x值；y：待定点在临时坐 标系里的y值；I：缓和曲线全长；R：圆曲线半 径；L:待定点对应中桩到该曲线起点长度（弧 长）；K：待定点宽度（待定点沿法线方向至中桩 的水平距离）待定点在曲线外侧时取正值，在曲线 内侧时取负值。V：待定点半径方向与Y轴夹角； B：曲线转向判定值（当B=0时为左转曲线；否则为 右转曲线）。 Z：曲线起点至待定点方位角。 S：曲线起点至待定点水平距离。 X：待定点在大地坐标系里的X值。 Y：待定点在大地坐标系里的Y值。
卡西欧易学易用程序集
1、极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名G1：
G1说明（从1到7，以下程序均为上面是程序，下面是说明）：
2、已知边长方位角计算坐标程序，程序名G2：
3、建筑轴线偏移程序(或扩大基础程序)。程序名G3
4、测角前方交会坐标计算，程序名G4
5、测角后方交会坐标计算，程序名G5
6、坐标转换计算程序，程序名G6
7、直线中边桩坐标计算程序,程序名G7
8、圆曲线中边桩坐标计算程序,程序名G8
9、完整缓和曲线中边桩坐标计算程序,程序名G9
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、程序设计1．测量放样计算主程序CLFYV=19:Fixm:Rad↵{OEFG}:O”1.XL 2.SD”:E”DZ”:F”DH”:G”AH”↵Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62])↵D=πG÷180-J↵Lbl 1↵O≠1⇒Goto 2↵{KQ}:K”KF”:Q”BL”↵Prog ”ZB”↵X=X+Rec(Q,U+π÷2):Y=Y+J↵Goto 3↵Lbl 2↵{XY}:X”XF”:Y”YF”↵Lbl 3↵Pol(X-Z[E+52],Y-Z[E+62])↵I”S=”◢I=J+D↵I>2π⇒I=I-2π↵I<0⇒I=I+2π↵I=180I÷π↵I”A=”◢Goto 12．线路坐标计算主程序XLZBRad↵Fixm↵{O}:O”1.ZX 2.BX”↵Q=0↵Lbl 1↵{K}:K”K”↵O≠1⇒{QG}:Q”L”:G”AJ”↵Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J ↵X”X=”◢Y”Y=”◢O=1⇒U=180U÷π:U”AT=”◢↵Goto 13．线路高程计算主程序XLGCV=11:Fixm↵Lbl 0↵{KQ}:K”K”:Q”L”↵Prog ”KD”↵Prog ”GC”↵C”H=”◢Goto 04．边桩放样计算主程序BZFYFixm↵Rad↵{Z}:Z”1.CJ 2.QZ 3.QS”↵Z=2⇒Z[11]=0:Goto 1↵Z=3⇒ Goto 1↵{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”↵Z[8]=Z[M+52]:Z[9]=Z[M+62]↵C=Z[N+52]:A=Z[N+62]↵Pol(C-Z[8],A-Z[9]):Z[10]=J-πU÷180:Z[11]=G↵Lbl 1↵Z=2⇒Goto 2↵{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”↵Rec(E,Z[10]+πB÷180):X=Z[8]+I:Y=Z[9]+J:Goto 3↵Lbl 2↵{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B↵Lbl 3↵Prog “FQ”↵G=D+Z[11]-F:G”H”◢Prog “FY”↵Goto 15．线路坐标计算子程序ZBProg ”YS”↵X=74445.797↵Y=501515.278↵S=771.296-K↵B=A+C+π↵S>L⇒Goto 1↵I=SSS÷6÷R÷L↵J=S-S^5÷(40RRLL)↵U=B-SS÷(2RL)-π:Goto 2↵Lbl 1↵U=(2S-L)÷R÷2↵I=R(1-cos U)+Z[5]:J=Rsin U+Z[6]↵U=B-(S-L÷2)÷R+π↵Lbl 2↵Pol(I,J):J=J+B-π÷2↵X=Rec(I,J)+X↵Y=Y+J↵U<0⇒U=U+2π6．曲线要素计算子程序YSR=280↵L=84.7↵S=-0.6769479859↵A=-2.415291254↵N=-1↵C=1.738343268↵Z[5]=1.067572917↵Z[6]=42.31770592↵T=374.9146895↵Z[7]=RC+L7．线路高程计算子程序GCW=13↵Lbl 1↵P=Z[W+7]↵K>Z[W]-P⇒W=W+1:Goto 1↵W=13⇒W=14↵V=W-1⇒Goto 2↵V=W-1↵J=Z[V+4]↵R=(J-Z[V+3])÷(Z[V]-Z[V-1])↵S=(Z[V+5]-J)÷(Z[V+1]-Z[V])↵T=Z[V+7]↵Lbl 2↵L=K-Z[V]↵L≤-T⇒H=J+RL:Goto 3↵L≥T⇒H=J+SL:Goto 3↵A=2T÷(S-R)↵X=L+A(R+S)÷2↵H=J+XX÷2÷A-ARS÷2↵Lbl 3↵H=H-Z[1]↵A=Abs Q↵A≤Z[4]⇒C=0:Goto 6↵I=-1↵Q>0⇒I=1↵Lbl 4↵Y=23↵Lbl 5↵K≥Z[Y]⇒Y=Y+1:Goto 5↵O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX↵Z[Y+2]=0⇒O=2↵Z[Y+3]=0⇒X=2↵N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])↵M=(X-O)(1-3NN+2NNN)+O↵A≤Z[2]⇒C=(Z[4]-A)M÷100:Goto 6↵C=0.04(Z[2]-A)-M(Z[2]-Z[4])÷100↵M>4⇒C=(Z[4]-A)M÷100↵Lbl 6↵C=H+C8．反求线路桩号子程序FQProg ”YS”↵Z[4]=74445.797↵Z[3]=501515.278↵Z[4]=X⇒Z[3]=Y⇒K=771.296:Q=0:Goto 2↵Q=Z[4]:K=Z[3]:G=S+π÷2↵Prog ”ZH”↵G=LL÷6÷R:Q=L-LLL÷40÷R÷R↵Pol(G-H,Q-W):K=J+π÷2+L÷2÷R↵cos K<0⇒Goto 1↵Pol(H-(R+Z[5]),W-Z[6])↵K=771.296-R(π-J)-L÷2↵Q=R-I↵Goto 2↵Lbl 1↵K=1:U=L↵Prog ”HQ” ↵K=771.296-O:Q=-Q↵Lbl 2↵M=1000↵K=Intg (MK+0.5)÷M↵Q=Intg (MQ+0.5)÷M↵Z”KD=”◢Q”WB=”◢9．坐标转换计算子程序ZHH=X-Q:W=Y-K↵Pol(H,W)↵G=J-G↵H=Icos G:W=Isin G10．反求缓曲长度子程序HQA=K÷46080÷R^6÷U^6↵P=H÷3840÷R^5÷U^5↵C=13K÷5760÷R^4÷U^4↵T=KW÷384÷R^4÷U^4↵G=H÷48÷R^3÷U^3↵I=K÷(15RRUU)↵J=KW÷(8RRUU)↵L=H÷(2RU)↵N=KW↵S=W↵Lbl 7↵M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-JS^4+LSS-KS+N↵Q=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4JS^3+2LS-K↵O=S-M÷Q↵Abs (O-S)<1E-5⇒Goto 8↵S=O↵Goto 7↵Lbl 8↵T=KOOO÷6÷U÷R↵P=O-O^5÷(40RRUU)↵T=H⇒P=W⇒Q=0:Goto 9↵Pol(H-T,W-P)↵Q=sin (J+KOO÷2÷R÷U-π÷2)↵S=-1↵Q>0⇒S=1↵Q=SI↵Lbl 911．边桩放样计算子程序FYV=11↵U=Q↵Prog ”KD”↵Q=-0.75-Z[2]:Z[3]=-1↵U>0⇒Q=0.75+Z[2]:Z[3]=1↵Prog ”GC”↵X=G-C↵X≤0⇒Goto 7↵N=Int ((X-0.1)÷8.9)+1↵N>5⇒N=5↵I=1↵Lbl 2↵O=Z[28+I]↵{O}:O”M”↵Z[28+I]=O↵I=I+1↵I>N+1⇒Goto 4↵Goto 2↵Lbl 4↵I=0↵W=3.55+Z[2]:H=0.04↵Lbl 5↵I=I+1↵I>N-1⇒Goto 6↵W=W+2+9Z[I+28]↵H=H+8.9↵Goto 5↵Lbl 6↵A=X-H:A”C=”◢W=W-Abs UA≤1⇒P=WZ[3]◢↵A≥8⇒P=(9Z[I+28]+W+2)Z[3]◢↵A=AZ[I+28]+W↵Goto 8↵Lbl 7↵X=-X↵X≤8⇒A=1.5X+0.75+Z[2]-Abs U↵X>8⇒X≤12⇒A=12.75+Z[2]+1.75(X-8)-Abs U↵X>12⇒A=14.75+Z[2]+1.75(X-8.04)-Abs U↵Lbl 8↵A=AZ[3]↵A”DB=”◢12.路面宽度计算子程序KDZ[2]=10.5↵Z[4]=0.5↵K>460⇒K<540⇒Z[4]=0↵Abs Q≤Z[4]⇒Goto 6↵Q>0⇒Goto 1↵K<370.6255⇒I=50:X=K-370.6255:Goto 2↵K>430⇒K≤467.384⇒I=41:X=K-430:Goto 2↵K>467.384⇒K<532.616⇒Goto 3↵K≥532.616⇒K<570⇒I=41:X=570-K:Goto 2↵K>686.596⇒I=35:X=K-686.596:Goto 2↵Goto 5↵Lbl 1↵K<350.4277⇒I=47:X=K-350.4277:Goto 2↵K>430⇒K≤463.545⇒I=44:X=K-430:Goto 2↵K>463.545⇒K<536.455⇒Goto 4↵K≥536.455⇒K<570⇒I=44:X=570-K:Goto 2↵K>686.596⇒I=38:X=K-686.596:Goto 2↵Goto 5↵Lbl 2↵Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:Goto 5↵Lbl 3↵Z[2]=299.104÷sin (1.4543+(K-467.384)÷280)-280:Goto 5↵Lbl 4↵Z[2]=280-267.304÷sin (1.4406+(K-463.545)÷280)↵Lbl 5↵L=Z[2]+0.75:L”LD=”◢Lbl 6二、扩展变量设置数值扩展变量设置实际数值表(续表)。