卡西歐5800計算器工程應(yīng)用程序

主要功能：采用交點法方式計算多條線路坐標(biāo)正反算，可算任意復(fù)線路基邊坡開挖口及坡腳放樣計算、路基任意點設(shè)計高程、橫坡、設(shè)計半幅例二、源程序(綠色為程序名；藍(lán)色為輸入計算器內(nèi)容)0.總主程序(1、回選擇計算類型。輸入-2,返回選擇線路。eYONG:程序名:1XYProgDXProgQX90→A:＂PJ1＂?A:A→B:＂PJ2＂?B:A→ZB→Z[9]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:?D0→L:＂L0＂?L:L→Z[10]:Porg＂A＂:Z[2]+Z[1]→A:A-Z[9]→EIDcosA+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhileZ≠-12.主程序：由大概樁號及坐標(biāo)反算樁號及距離Prog＂QX＂:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂Prog＂K＂:＂XO＂?X:X=-1=>Stop:X=-2=>Break:＂Y0＂?Y:Porg＂B＂:Prog＂H＂:：任意點高程計算及橫坡Prog＂QX＂:0→B:＂H-B＂?B:B→Z[9]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix3:＂H=＂:Locate6,4,H-ZleZ4.主程序:任意樁號位置的標(biāo)準(zhǔn)路基寬度計算ProgQXDoKM?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂tePRGD=＂:Locate6,4,L：LpWhileZ≠-15、主程序:路基開挖邊線及填方坡腳線放樣程序ProgDXProgQX＂:0.5→B:＂TH-GD＂?B:B→Z[7]:Do:＂KMZZ=-1=>Stop:Z=-2=>Break:Prog＂K＂:“X0＂?X:＂Y0＂?Y:Z[8]LDElseLDIfEndProgHHZG:Prog“W1”:IfG>0:ThenGotoT:IfEnd:-G→H:IfH>E+F:ThenL+M+N+U+C(H-E-F)+BF+AE→S:Goto0:IfEnd:IfH>E:ThenL+M+N+B(H-E)+AE→S:Goto0:IfEnd:IfHEThenLMHASGotoIfEndLbITIfGWThenLZVJGW+IW→S:ElseL+Z[7]+GI→S:IfEeTProg＂ZD＂:＂TW=＂:Locate6,4,G◢LpWhileZ≠-1樁計算填挖值Prog＂DX＂:Prog＂QX＂:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:?D:Porg＂A＂:Z[2]+90→A:I+Dcos(A→X:J+Dsin(A→Y:PW=”:Locate6,4,H-Z[8]:LpWhileZ≠-1ProgDXProg＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂?D:Abs(D)→R:＂LRRDZ[7]:R→Z[10]:Z→Z[9]:Prog”C”:L→Z[10]:Prog”K”:kZ osAXJDsinA→Y:Prog＂XY＂:Prog＂JS＂:LpWhileY≠-1ProgDXDoXX>Stop:X=-2=>Break:?Y:Prog”JS”:LpWhileX≠-1→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:IfM<E:ThenR-V→S:”LX=”:Locate6,4,L:Prog”ZD”:“H0=”:Locate6,4,M-H◢LpWhileZ≠-110.交點法正算子程序(A)P÷Abs(P→W:O-T+nR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:enZOSGZGotoIfEndIfZOTHThenZOTSProgHXGWKZATAGE:Goto2:IfEnd:IfZ≤Q+N:ThenQ+N-Z→S:N→H:Prog“HX”:G+P→E:E-WK→Z[2]:F-AA:C→H:Goto2:IfEnd:ZQNFSGPZLbI1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return:LbI2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11.交點法反算子程序(B)IcosJDIfM≠0:ThenPol(M-WS,D:JMΠ÷180→D:IfEnd:LpWhileAbs(D)>.001:Z+D→Z:S→D12.緩和曲線段直角坐標(biāo)計算子程序(AB)段坐標(biāo)增量及偏角子程序(HX)14．高程計算子程序(H)ProgSNIA:A÷Abs(A→W:R×Abs(A÷2→T:IfZ<C-T:ThenG+fEndIfZCTThenGTIIZCTWRndNIGIZCHLbIIfDThenHsDKHIfEnd15.高程超高計算橫坡子程序(I)L坐放樣計算程序(計算放樣點至置儀點方位角及距離)ZKZLPolXK,Y-L:IFJ<0:ThenJ+360→J:IFEnd:Int(J)18．導(dǎo)線點子程序(DX)(QX)T2”?F:?R:IFEnd20．線路中線元段判別子程序(K)IfZThenProgXReturogXReturnIfEnd21．坐標(biāo)參數(shù)矩陣調(diào)用程序(F)atFPMatF→H:MatF[1,7]→N:MatF[1,8]→T:MatF[1,9]→F:MatF[1,10]→R23．?dāng)?shù)據(jù)子程序(附后示例)匝道線元轉(zhuǎn)交點數(shù)據(jù)程序(T)NLocateT”T2=”:Locate6,4,F◢”R=”:R◢點方位角之差，左轉(zhuǎn)為負(fù)，右轉(zhuǎn)為正)；計算結(jié)果要素同QX子程序中]→MatF:Prog”F”:IfEndIfZ≤273.006:Then[[171.674，2600784.547，514635.863，58。49’]IfZ≤466.227:Then[[341.96，2600664.76，514799.865，123。43’F:Prog”F”:Return:IfEnd段切線長度，圓半徑]]→MatF:Prog”F”:Return:IfEnd(轉(zhuǎn)角則為交點段終點方位角減起點方位角，分正負(fù)，左偏為負(fù)，右偏I(xiàn)fZThenGoto1:ElseProg“S2”:Return:IfEnd:LbIIfZ:Then95.356→C:40.742→G:2000→R:-.03155IfZ≤133.601:Then106→C:45.12→G:1525→R:-.0064→I:.0298→N:Return:IfEnd:IfZThenCGRI:-.01968→EndKWIfZThenGotoElseProgIReturn:IfEnGotoRIfEndLbILIfZThenSMReturnIfEndIfZ≤187.987:Then28.568→S:159.419→C:.06→M:.02→N:Return:LbIRIfZThenS-.06→M:Return:IfEnd:IfZThen28.568→S:159.419→C:-.06→M:-.02→N:ReturnIfEndIfZ241.086:Then0→S:.-02→M:Return:IfEndIfD<0:ThenGotoL:ElseGotoR:IfEnd:LbILIfZThenS02→M:Return:IfEnd:IfZThen017→S:77.872→C:.02→M:.05→N:Return:IfEndIfZ67:Then0→S:.05→M:Return:IfEnd:IfZ≤273.0ThenS98.567→C:.05→M:.02→N:Return:IfEnd:IfZThenSMReturnIfEndIfZ346.235:Then11.23SC02→M:.015→N:Return:IfEnd:LbIRIfZThenS.02→M:Return:IfEnd:IfZ≤93.889:Then16.017→S:77.872→C:-.02→M:-.05→N:Return:IfEndIfZThenSM:Return:IfEnd:IfZ≤2ThenS567→C:-.05→M:-.02→N:Return:IfEndIfZThenSMReturnIfEndIfZ235:ThSCMNReturnIfEndK－中央分隔帶半幅寬(中樁標(biāo)高至中樁中線距離，無分隔帶則為0)；高);S－超高漸變段距離(不是漸變段則輸入0)；C-超高漸變段起點樁號(不是漸變段，無需輸入)；M－超高段起點橫坡，N-超高漸變段終點橫坡(不是漸變段，無需輸入)。IfZThenGotoElseProgG2”:Return:IfEndLbI1:IfD<0:ThenGotoL:ElseGotoR:IfEnd:ILIfZThenZCAReturnIfEndLbIRIfZ7:Then0→C:5→A:5.25→B:40.857→S:Return:IfEndIfZThenZ→C:5.25→A:Return:IfEnd:IfZ≤187.ThenC5.25→A:5.5→B:28.568→S:Return:IfEnd:IfZThenZC5→A:Return:IfEndIfD<0:ThenGotoL:ElseGotoR:IfEnd:ILIfZThenZCAReturnIfEndLbIRIfZ1:ThenZ→C:5→A:Return:IfEnd:IfZ≤346.23ThenCA.75→B:24.624→S:Return:IfEnd:IfZ≤4ZCAReturnIfEndC變段C=Z)；A－寬度漸變段起點寬度;B－寬度漸變段終點寬度(不是漸變段，無需輸入)；S-寬度漸變段距離(不是漸變段，無需輸入)。IfZ[4]=1:Then5.1→R:1.8→A:1.4→V:0.59→B:0→Q:109。01’30”IfZThenRAVB.25→Q:51。28’EndIfZThenGotoElseProg“W2”:Return:IfEnd:LbIE0→F:2.6→M:2→N:2→U:1.5→I:1.75→J:8→W:2→V:LbIL→A:1.25→B:1.25→C:Return:LbIRIfZThen.25→A:1.25→B:1.5→C:Return:ElseGotodWVIfDlseGotoRIfEndLbILA→B:0.75→C:Return:度；V-填方第二臺階平臺寬度。(注：本程序只做出挖方三個臺階，填。)線道中先根據(jù)實際線來曲線。也可以單獨計算果SD反算程入，下次再運行此程序調(diào)上次輸值，如需改，則輸入，不需改，則按確“QX:X1=1,X2=2”?選擇經(jīng)路，坐標(biāo)計算中輸入0值，變?yōu)檩斎刖€KM？正算時所求點的里程(反算輸入大概樁號)輸入-1，返回輸D？正算時所求點距中線的邊距(左側(cè)取負(fù)值,右側(cè)取正值，L0?涵洞放樣程序中涵距中心樁號前后距離,前為正,后為M放樣程序中原地面標(biāo)高輸入H-B？計算面至路面高差(默認(rèn)路面為0)PJPJPJ線的右夾角。第二夾角為邊線至路為錐坡高程減地面高程后乘以填方坡比)＂L0:SZ+,DZ-＂?錐坡放樣中，橢圓上分段放樣距離，小樁號錐坡輸正坡輸負(fù)數(shù)。“？輸入轉(zhuǎn)角(終點方位角-起點方位角之差，左轉(zhuǎn)為負(fù)，右轉(zhuǎn)為正);R”?圓半徑FWJ=***正算時，計算得出的所求點的至置儀點方位角S點的至置儀點距離KM=***反算時，計算得出的所求點的里程H所求點位置設(shè)計計算面頂標(biāo)高LGD位置設(shè)計路面頂左半幅標(biāo)準(zhǔn)寬度LGD位置設(shè)計路面頂右半幅標(biāo)準(zhǔn)寬度TW=***邊樁放樣程序中，實測放樣邊坡點至止樁號設(shè)計頂填挖高度值(負(fù)為挖方值,正為填方值)H隧道放樣程序中測量點至設(shè)計面高度線及轉(zhuǎn)角表工程名稱：廣州至河源高速公路(惠州段)SJ-2合同段(第11標(biāo)公莊立交C匝道)交點號1PN(X)22600509.1482599561.392曲線主點樁號34063.5665723.3084006.4954067.332交點樁號半徑第一緩和曲線第一緩和曲線終第二緩和曲線起第二緩和曲線外距校正值曲線中點起點點或圓曲線起點點或圓曲線終點終點段計算方位角4C-K1+911.279567891011121314151617181920183°45′18.1″88°09′09.7″95°36′08.4″0.85766780.000-1911.27970.000-1878.6237200241988CK0+000CK0+040.857CK0+100.138CK0+159.419CK0+241.0869999299°43′39″65.720299°43′39″130.09727°52′48.8″106.831123°28′57.1″0EP2600597.796514156.435CK0+241.086S11-6-5(3)備注第1頁共1頁曲線要素直線長度及方向值(m)工程名稱：廣州至河源高速公路(惠州段)工程名稱：廣州至河源高速公路(惠州段)SJ-2合同段(第11標(biāo)公莊立交I匝道)緩和曲外距校正值線參數(shù)8BP2600695.67058°49′17.2″64°54′08.7″123°43′25.9″15°58′49.5″139°42′15.5″EP2600569.212樁號第二緩和曲線起點或圓曲線終點曲第一緩和曲線終點或圓曲線起點514488.986514627.760514799.865514880.883第一緩和曲線起點第二緩和曲線終點IK0+162.203IK0+341.960IK0+466.227要素9JD12600779.643JD22600664.760000000248.00020397268.95427393.88974.438211直線段緩和曲線長度7交點間距(m)第1頁共1頁1011122021S11-6-5(9)直線長度及方向線主點IK0+328.015IK0+198.567IK0+146.228IK0+093.889IK0+466.227IK0+273.006IK0+300.510IK0+273.006點坐標(biāo)計算方位角交點樁號值(m)備注273.006206.926IK+000203273221半徑27.16935.5135.3107IK+0000.0000.0000.000N(X)445交462351樁號CK0+000CK0+020CK0+040CK0+040.857CK0+060CK0+080CK0+100CK0+120CK0+140CK0+159.419CK0+160CK0+180CK0+200CK0+220CK0+240CK0+241.086坐N(X)2600509.1482600520.9372600536.5482600537.2972600555.2562600575.1612600594.0722600609.9092600620.9262600625.8602600625.9132600624.6112600618.4322600609.1612600598.3952600597.796標(biāo)E(Y)514063.566514047.468514035.086514034.668514028.277514027.965514034.182514046.245514062.826514081.521514082.099514101.986514120.970514138.676514155.529514156.435樁號IK0+000IK0+020IK0+040IK0+060IK0+080IK0+093.889IK0+100IK0+120IK0+140IK0+160IK0+180IK0+198.567IK0+200IK0+220IK0+240IK0+260IK0+273.006IK0+280IK0+300IK0+320IK0+328.015IK0+340IK0+360IK0+380IK0+400坐N(X)2600695.6702600705.9562600715.8332600724.8762600732.6292600736.9982600738.6