CASIO4500坐标计算程序Word文件下载.docx

1、ZHIXIANEX0FY0AR0KCZ:S=SKX:D=S-K:X=E+DcosAY=F+DsinAV=1:BI:H=A+B-180:X+IcosHY+IsinHV2V=V+1:Goto2Goto1计算要素：JD交点里程LS缓和曲线长R圆曲线半径A线路转角T切线长L圆弧总长度E外矢距N曲线方向，左偏取“1”，右偏取“0”P取“1”X0.Y0ZH点坐标X.Y交点坐标KX待求点里程B与中线夹角SL边距，左“+”；右“-”-CASIO4800超高计算程序超高及高程（源程序）L1:R:L“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs（GF）

2、X“X（R+1,L-1）”:P“P（R+,L-1）”L2:Lbl6:SL3:S+TN0D=O+（SN）F:SND=O+（SN）FU（SN+T）22V:SNTD=O+（SN）GU（TS+N）2D=O+（SN）GD“H=”L4:R34L7:4SZI=0.02SXY2.XYSZN：UX0VY0OS0GF0HLSPR0RRNQ：C=1D=（P-R）（2HPR）：E=180：N=1=1：2SZ：SZ：W=Abs（S-O）：ProgSUB1XXS=XYYS=Y12：XY：XY：I=X：J=Y：SUB2S=O+WZ=Z22.正算子程序（SUB1）A=0.1739274226：B=0.3260725774：K

3、=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W（Acos（G+QEKW（C+KWD）+Bcos（G+QELW（C+LWD）+Bcos（G+QEFW（C+FWD）+Acos（G+QEMW（C+MWD）：Y=V+W（Asin（G+QEKW（C+KWD）+Bsin（G+QELW（C+LWD）+Bsin（G+QEFW（C+FWD）+Asin（G+QEMW（C+MWD）：F=G+QEW（C+WD）+90：X=X+ZcosF：Y=Y+ZsinF3.反算子程序（SUB2）T=G-90：W=Abs（Y-V）cosT-（X-U）sinT）：Z=0：0：L=T+QEW

4、（C+WD）：Z=（J-Y）cosL-（I-X）sinL：AbsZGoto1：W=W+Z：0Z=（J-Y）sinF三、使用说明1、规定（1）以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。（2）当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。（3）当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。（4）当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（5）当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替

5、；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；（6）当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；止点与直线相接时，曲率半径等于设计规定的值；2、输入与显示说明输入部分：1.SZXYXY=?选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。X0？线元起点的X坐标Y0线元起点的Y坐标S0线元起点里程F0线元起点切线方位角LS线元长度R0线元起点曲率半径RN线元止点曲率半径Q线元左右偏标志（左偏Q=-1，右偏Q=1，直线段Q=0）正算时所求点的里程Z正算时所求点距中线的边距（左侧取负，值右

6、侧取正值，在中线上取零）反算时所求点的X坐标Y反算时所求点的Y坐标显示部分：XS=正算时，计算得出的所求点的X坐标YS=正算时，计算得出的所求点的Y坐标S=反算时，计算得出的所求点的里程Z=反算时，计算得出的所求点的边距四、算例某匝道的由五段线元（直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线）组成，各段线元的要素（起点里程S0、起点坐标X0Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线元左右偏标志Q）如下：Q500.00019942.83725643.5611251631.00269.2561E45769.25619787.34028563.37837.49

7、2221.75-1806.74819766.56628594.5741202554.07112.779919.52719736.07228701.893911730.6380.2859579.228999.81219744.03828781.659804050.00100.0001、正算（注意：略去计算方式及线元要素输入，请自行根据所求点所在的线元输入线元要素）S=700Z=-5计算得XS=19831.41785YS=25809.72590Z=0XS=19827.33592YS=25806.83837Z=XS=19823.25398YS=25803.95084S=780XS=19785.257

8、49YS=28575.02270XS=19781.15561YS=28572.16358XS=19777.05373YS=28569.30446S=870XS=19747.53609YS=28654.13091XS=19742.68648YS=28652.91379XS=19737.83688YS=28651.69668S=940Z=-5.123XS=19741.59118YS=28722.05802XS=19736.47687YS=28722.356423.009XS=19733.47298YS=28722.531682、反算X=19831.418Y=25809.726S=699.99999

9、74-5.00018164X=19827.336Y=25806.838S=699.99964930.000145136X=19823.25398Y=25803.95084S=699.99999855.000003137X=19785.25749Y=28575.02270S=780.0000035.000001663X=19781.15561Y=28572.16358S=780.0000025Z=-0.000002979X=19777.05373Y=28569.30446S=780.00000164.99999578X=19747.536Y=28654.131S=870.0001137-4.99

10、941049X=19742.686Y=28652.914S=870.00031750.00041814X=19737.837Y=28651.697S=870.00027484.999808656X=19741.5912Y=28722.0580S=939.9999786-5.123024937X=19736.4769Y=28722.3564S=939.99998620.000027710X=19733.4730Y=28722.5317S=940.00002383.00898694-CasioFx-4500PA计算器程序库一、整机概况Fx-4500PA计算器是日本Casio公司的产品，它除了具备函

11、数型计算器的全部功能之外，还具备如下特殊功能：1、二进制和八进制字组显示；2、二进制、八进制、十进制和十六进制的转换和加、减、乘、除运算。3、进行f（x）函数的输入与积分的计算；4、进行标准差和回归计算。Fx-4500PA计算器具有同时显示运算表达式和计算结果的双行式显示的特点。该计算器具有记存1103个程序步的记忆储存装置，计算器储存了程序之后，只要您输入数据，再按一下EXE键，计算器就会用数据进行程序执行,对于随数据而变化的反复计算的运用十分方便。Fx-4500PA计算器具备条件指令转移和非条件指令转移的能力，还具备逻辑判断能力，因此它可以进行测量工作中比较复杂的计算，当然其它专业的计算工

12、作也同样可以解决。Fx-4500PA计算器操作方法比较简单、易学，程序编排灵活、易懂，可称之谓各专业技术人员的物美、价廉、得心应手的计算工具。每一台Fx-4500PA计算器都具备一本说明书，该计算器各部键的功能以及操作方法，只要认真按照说明书各章节学习，很快就能掌握和运用，现将我在测量实践中应用的部分计算程序介绍给同行以便共同探讨。二、程序库=坐标反算程序（已知两坐标求算其平距和方位角）程序名：ZBFSNorm：A”X1”：B”Y1”：pol（C”X2”-A，D”Y2”B：”S=”WW=W+360W：”A=”注意：本程序在CASIO4500上调试运行通过。如果是在4800上运行请将源程序中的V

13、，W分别用I，J替代即可。运行后界面如下：输入项目:X1？请输入点1的X坐标，按EXE键输入下一个量。Y1？请输入点1的Y坐标。X2？请输入点2的X坐标。Y2？请输入点2的Y坐标。输出项目:S为两点之间距离，按EXE键输出下一个量。A为1点到2点的方位角。按EXE键循环。坐标正算程序（已知一坐标及其平距和方位角求算另一点坐标）ZBZSC”X1”D”Y1”S”S=”R”A”：X”X2”=C+Rec（S，RY”Y2”=D+W输入项目S=？为两点之间距离。A？为1点到2点的方位角。输出项目X2输出点2的X坐标。Y2输入点2的Y坐标。按EXE键进入下一个循环。竖曲线计算程序SQXLBlDEIHRQPJ

14、：W=DEIHRQPJ：T=（I-H）R/2：N=T2/2RA：Z=A3：AP=4：AE=6：Q=5：X=D+（A-E）IX=D+（A-E）HGotoM=（Q-A）2/2RJ：X=D+（A-E）I+MM=（P-A）2/2RJ：X=D+（A-E）H+M字母含义：D：变坡点里程J：曲线凸凹（凸为-1、凹为+1）L：开始坡度H：结束坡度A：待求点标高R：起点里程终点里程计算曲线上任一点放样极坐标F1：QXJSL1AbsWFixmC=7=Fixm:FFixZ=E7AA0/AbsAN9:A=AbsA:Q=R+SLsci2/24RL2T=S/2-Sxy3/240R2+Anstan.5AL=RA/180+SHZH=JJDT-TVHY=H+SVQZ=H+.5LVYH=H+L-SLHZ=H+LDxJKyJBGraXEYEXmML3LbIF:FN:FH=X=F-J:ZN:FL-S=I=L-S=F-H:FQ:Rec（R-ZN,90（2I-S）/R:X=W-Qtan.5A:Q-VI=L-F:PoI（T-I,ZN:L=PoI（-X,AnsX=Rec（Ans,A+WL4WX=D+Rec（PoI（X,ZAns,W+B:Y=K+W:EnDO