坐标边桩中桩计算程序casio计算器

《坐标边桩中桩计算程序casio计算器》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、计算示例已知：JD1X:38327Y:949876.806JD2X:38957.002Y:95298.524曲线半径R:70m曲线偏角PJ：偏左96°44'49.91"缓和曲线长度LS：40mZH桩号：K1+617.416HY桩号：K1+657.416YH桩号：K1+735.613HZ桩号：K1+775.613求算：JD1交点曲线HZ点K1+210.040至JD2交点曲线HZ点K1+775.613段内公路中线任意桩号的中桩坐标和任意宽度边桩坐标。启动主程序，程序运行过程如下：步骤键操作显示内容键操作说明显示内容说明1MC10删除所有变数内容。2Program[RUNCEN

2、TERLINE:CO调出程序文件．程序文件名：CENTERLINE．3Ｘ０？０回车　执行程序文件需要输入Ｘ０．4Ｙ０？输入Ｘ０坐标３８３２７.２６３，回车需要输入Ｙ０5Ｘ１？０输入Ｙ０坐标９４９７６.８０６，回车．需要输入Ｘ１6Ｙ１？０输入Ｘ１坐标３８９５７.００２，回车．需要输入Ｙ１7Ｋ＝707.1588786输入Ｙ1坐标38957.002回车输出（xo.yo）至（x1.y1）距离．58ＡＺＩＭＵＴＨ27.06135945回车输出（xo.yo）至（x1.y1）方位角若需换算为度分秒按SHIFT键9L—1ORR1?0回车．需要输入计算曲线偏向．10PJ?0输入曲线偏左＂＂

3、、回车。需要输入偏角PJ。11LS?0输入偏角96°44'49。91'',回车。需要输入缓和曲线长LS12R?0输入缓和曲线40,回车。输入缓和曲线半径R。13(x。,y。)=ZH?输曲线半径７０，回车。需在输入(x。,y。)ZH至点距离。14ZH?0输入(x。,y。)ZH至点距离（本例为“k-T”，也可输入数据，）回车。需要输ZH点桩号。15K?０输入ZH点桩号K1+617.415（即６１７.４１５），回车。需要输入计算点桩号。16X=38505.367回车。输出计算点X坐标。17输入计算点桩号K1+1210.040（即１２１０.０４０），回车。输出计算点Y坐标。18S

4、IDELINE?0回车。提示是否需要计算边线点。19L(-1)ORRU?0输入任意数“３”（需要计算边线输任意数，不需则输“０”）回车。提示计算点位于中桩左侧或右侧。20——I—?0输入左侧为“－１”（若右侧则输“１”），回车。提示计算点中桩距离。21Z[3]=38510.144输入距离１０.５，回车。输出边桩X坐标。22Z[4]=95058.445回车。输出边桩Y坐标。23K?1210.04回车。需要输入下一计算中心点中桩桩号。24ZHX=38868.1428输入下一计算点桩号K1+735.613,回车。提示ZH点X坐标。25ZHY=95253.12805回车。提示ZH

5、点Y坐标。26X=38974.318回车。输出计算点X坐标。27Y=95240.840回车。输出计算点Y坐标。528SIDELINE?3回车。提示是否需计算边桩。29K?1735.613输入“０”（不需计算边桩则输０，需在计算输任意数）。需要输入下一计算点桩号。30JDX=38957.002输入K1+775.613(即775.613,HZ桩号)，回车。提示交点X坐标。31JDX=95298.524回车。提示交点Y坐标。32X=38991.643回车。输出计算点X坐标。33Y=95204.948回车。输出计算点Y坐标。34SIDELINE?0回车。提示是否需计算边线点。35

6、K?1775.61336ERROR输入K1+1775.700。输入桩号超过HZ点提示输入错误。37K?1775.7回车。需要输入下一计算点桩号。…1EXE７.源程序清单主程序文件名CENTERLINE(COMP)Defm4Prog”SUB1”H”L-1ORR1”O”PJ”S”LS”R”R”L=ROπ÷180＋SP=S²÷24÷R－S4÷2384÷R3Q=S÷2－S3÷240÷R²T=（R＋P）tan(O÷2)＋QV”(X0,Y0)=>]ZH”G”ZH”Lb1{E}E”K”:E≤G=>Prog”SUB5”:Goto2N=E-G:N>L+0.001”ERROR”Goto1N≤

7、S=>Prog”SUB2”:≠=>N≤L-S=>Prog”SUB3”:≠=>ProgSUB4””E-G≤L-S=>U=tan-1(Z÷W):≠=>U=tan-1(Z÷W)＋O5I=(W²+Z²):Z÷W<0=>U=U+360J=F+HUE-G≤L-S=>C”ZHX”=A+VcosF◢D”ZHY”=B+VsinF◢X=Int((C+IcosJ)×1000＋0.5)÷1000◢Y=Int((D+IsinJ)×1000＋0.5)÷1000◢Lb12:{M}M”SIDELINE”M≠0=>Prog”SIDELINE”1EXEGoto1