求卡西欧5800计算器隧道通用超欠挖程序（正反算）？_百度知道
求卡西欧5800计算器隧道通用超欠挖程序（正反算）？
我有更好的答案
按默认排序
正算主程序(ZS)FIX4：?S：?Z：Prog “PM-SJ”： Abs(S-O) → W：Prog &SUB1&： &XS=&：X◢&YS=&：Y◢F-90→F(需要时可以让他显示)：Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢反算主程序(FS)FIX4: ?S：?X：？Y：Prog“PM-SJ”： X→ I： Y→
J：Prog &SUB2&： &S=&：O+W→S◢&Z=&：Z◢Prog“SQX-SJ”：Prog“SQX” ：“H=”：H◢边坡放样主程序（BP-FY）Lb1 0：Prog“ZS”：“H-BG”（中桩与坡脚起算点高差值，比中桩高正，反之负）?A：H+A →B：?P（实测点高程）：?L（坡脚起算点到中桩的距离）：0.75（挖方时一级坡度） →C：1 （挖方时二级坡度）→D：1.5 （挖方时三级坡度）→E：8（挖方时一级坡高） →G：10（挖方时二级坡高） →M：15（挖方时三级坡高） →N：2 （平台宽度）→K：1 （填方时一级坡度）→I：1.5（填方时二级坡度） →J：2 （填方时三级坡度）→O：2 （填方时一级坡高）→Q：8 （填方时二级坡高）→R：10 （填方时三级坡高）→T：ifP＞B：thenGoto1：ElseGoto2Lb1 1：ifP＞B：thenL+C（P-B）→U：P-B →F：IfEnd←┘ifP＞B+G：thenL+CG+K+D（P-B-G）→U：P-B-G →F：IfEnd←┘ifP＞B+G+M：thenL+GC+2k+MD+E（P-B-G-M）→U：P-B –G-M→F：IfEnd：Goto3←┘Lb1 2：ifP≤B：thenL+I（B -P）→U： B -P →F：IfEnd←┘ifP≤B-Q：thenL+IQ+K+J（B-Q-P）→U：B-Q-P→F：IfEnd←┘ifP≤B-Q-R：thenL+IQ+2k+JR+O（B-Q-R-P）→U：B-Q-R-P→F：IfEnd：Goto3←┘Lb1 3：U-AbsZ→V：ifZ＜0：thenZ-V→Z：Else z+v→z：IfEnd←┘ “Z=”：Z◢
计算得出正确的宽度，路线左为负，右为正。“V=”V◢
宽度调整值，正为远离中线，负为向中线靠近。“PT=”：F◢
距离即将到达的填挖方平台的高度。注：由于路基的宽度和超高情况较为复杂，因此该程序的缺点是不能自动计算路基宽度和路基边缘坡脚起算点的设计高程，需要手算坡脚起算点与中桩的宽度及与中桩的高差。算例；S? 700（放样点桩号） Z？-15（试算宽度） X= Y= H=107.144
H-BG？ -0.15（边缘起算点的高程比中桩低0.15） p?150（实测高程）L? 12（起算边缘点距中桩的距离） Z=-69.509（计算得出正确的宽度）V=54.509（远离中线方向距测点54.509米），PT=25.006（距离平台高度）。
然后再次进入下一轮试算，直到V趋近于零。隧道3心圆放样主程序（SD-3XY）Lb1 0：Prog“FS”：1.5→A：1.65→B：0.89→G：2.27→C：3.3→D：2.41→E：0.51→J：“H1”：F：ifF≤H+A：then E-AbsZ→W：IfEnd：ifF＞H+A And F≤H+A+B：then√（D??-（F-H-A）??）-G-AbsZ→W：IfEnd：ifF＞H+A+B：then√（C??-（F-H-A-J）??）-AbsZ→W：IfEnd：“W=”：W◢
（水平方向的超欠挖：正为欠,负为超）Goto0正算子程序(SUB1)1÷P→ C： (P-R)÷(2HPR) → D： 180÷π→ E： 0.→
A： 0.→ B： 0.→ K： 0.→ L： 1-L→ F：1-K→ 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)G-90→T： Abs((Y-V)cosT-(X-U)sin（T）) → W： 0→ Z：Lbl 0：Prog &SUB1&： T+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL → Z：ifAbsZ&1E-6：thenGoto1：ElssW+Z
→ W：Goto 0：IfEnd←┘Lbl 1： 0→ Z：Prog &SUB1&： (J-Y)÷sinF→ Z子程序（平面数据库）PM-SJifS ≥500（线元起点里程）AndS＜769.256（线元止点里程）：Then →U（线元起点X坐标）： →V（线元起点Y坐标）：500 →O（线元起点里程）：125°16°31°→G（线元起点方位角）：269.265 →H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥769.256（线元起点里程）AndS＜806.748（线元止点里程）：Then19787.34 →U（线元起点X坐标）：→V（线元起点Y坐标）：769.256→O（线元起点里程）：125°16°31°→G（线元起点方位角）：37.492→H（线元长度）：10^（45）→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥806.748（线元起点里程）AndS＜919.527（线元止点里程）：Then→U（线元起点X坐标）：→V（线元起点Y坐标）：806.748→O（线元起点里程）：120°25°54.07°→G（线元起点方位角）：112.779→H（线元长度）：221.75→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥919.527（线元起点里程）AndS＜999.812（线元止点里程）：Then →U（线元起点X坐标）： →V（线元起点Y坐标）：919.527→O（线元起点里程）：91°17°30.63°→G（线元起点方位角）：80.285→H（线元长度）：221.75→P（线元起点曲率半径）：→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥999.812（线元起点里程）：Then →U（线元起点X坐标）：→V（线元起点Y坐标）：999.812→O（线元起点里程）：80°40°50°→G（线元起点方位角）：100→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘子程序（竖曲线数据库）SQX-SJifS≤999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）→E：0.0227（后坡度：上坡正下坡负）：600→R（竖曲线半径）：780→G（变坡点里程）：110→C（变坡点高程）：IfEnd←┘子程序（竖曲线计算公式）SQXE-F→J：ifJ＞0：then-R→R：ElssR→R：Abs（R*J÷2）→T：ifS≤G-T：thenG-S→L：C-LE→H：IfEnd←┘ifS＞G-T And S≤G： thenG-S→L：（S+T-G）??÷2÷R→N：C-LE+N → H：IfEnd←┘ifS＞G And S≤G+T： then S-G→L：（G +T- S）??÷2÷R→N：C-LF+N → H：IfEnd←┘ifS＞G+T ：thenS-G→L： C+LF → H：IfEnd←┘ 三、使用说明1、规定
(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明
S ？ 正算时所求点的里程，反算时估算点里程，反算时尽量不要超出真实测点所在的线元里程终点，即尽量向小里程估计，如超出线元终点计算器将死机。
Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)
X ？反算时所求点的X坐标
Y ？反算时所求点的Y坐标
显示部分：
正算时，计算得出的所求点的X坐标
正算时，计算得出的所求点的Y坐标
反算时，计算得出的所求点的里程
反算时，计算得出的所求点的边距H=××× 正反算时，计算得出所求点的中桩设计高程（如弯道沿边线超高时要另外考虑超高段中桩高程）四、算例
某匝道的由五段线元（直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线）组成，各段线元的要素（起点里程S0、起点坐标X0 Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线 元左右偏标志Q）如下：S0
125 16 31.00
125 16 31.00
1E45 221.75
120 25 54.07
221.75 221.75
91 17 30.63
80 40 50.00
（注意：略去计算方式及线元要素输入，请自行根据所求点所在的线元输入线元要素）
S=699.9999974
S=699.9996493
S=699.9999985
S=780.0000035
S=780.0000025
Z=- 0.H=112.759
S=780.0000016
S=870.0001137
S=870.0003175
S=870.0002748
S=939.9999786
S=939.9999862
Z=- 0. H=130.475
S=940.0000238
其他类似问题
卡西欧5800的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁CASIO+5800计算器测量计算程序_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
10页¥1.009页免费6页免费6页¥0.904页4下载券 5页免费3页免费4页免费6页免费3页2下载券
喜欢此文档的还喜欢3页免费9页免费3页免费2页1下载券24页免费
CASIO+5800计算器测量计算程序|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢韢G栵湘筢鑁n惣貟乎;N`f3sss鮥I-籄Vk稉e 搻愘`c鶃m0c6vv&蒬6; 涗&買f樝璖齈空抏bC泧ギS廠u暝9:U絪荖鬵舷僮mD'邥$帪h=tp岐貔^祗凤'~y狚誄轷:昬y朘袸煰戆媝u騶貉珉铑鰒糪γ讆套e憪Y黊+rz銃苷偑5鰐%S賔價葐!籃绦駯=]O@[它:菫nv恚c滾>.舋袱媹L妎vu=祎覮鮺醟!Pym{o歈d鏅57盢:揺WZ
蛩{Q阂4螰撌r5穟鍜4l丑,焏Z甝X鍼ⅶ6T秣浘筚魪+揅筹嵓=t箢_/-}G>=緙
啭飞7椀K狙鳔'y{帑伙^嵋绶kei#颸m"蝼蒏蔕扴_哤'檣站阱鯌+骳砡敉=樜'鲽刦燔QUU%p敘粯fW溕2lJ罣I=龙忳>>EhmM森!J獛開Y
p{nlyei
朦B璐整W紉{铗绁^萇
^亏駌挲齝フ8x髅K墯暃？燍癴(扛6jm?=/尯O1捷\&-穻k眘墥{讌0搔N&鸯蚺瞃_=梢$涘借珛嘌|
a捦,邲d矟脣㈧胹}坮褶琈0
鷪[臎渍H0=撏"欜$r棁I2誳/吴Jp懏&"闻r]╓糒C珛N=甐:v#缅R駜]hf銐铼!t2嗽|&荰7g<|'洯畁:硈搓-憎1.蒭_嚸M鑋鮴#I茁箼藜r希r駦/$墻3U馈膹b╕\蔾;陬3靤6gzB編$E:碧俙.O鳻眰"<棶\aY單:+T^$E.(A)覰咬i岍嬋fb▕揧呱_鐦Lo-楗糰o墐鱠终俤朠P巊撳酠襬&9:^V1bw贬"繭v#錺|g
A'郝#i僯o曋[P!0笶"壅:梐Q祇釜孱IU:I菢N.墯襀竱,4愵嶘
6岐
:&慲bj瓞C,棋依娤'$r蚓N:樟b3OG舥CY)S喧|4fP橣升靑酫:门s1g3圿sY守t#砼u{彿=讹@m縵砣饼茿亙2U?r庳6MZ+胩{鞯鼦6-Q硳溴_Z&;r忤懨$4綇鉔盉7碥q毼m\Nx垰騐.薲`祅$茴颈q鳯溋J楝*6狴欂m{鞣芒[uB裊h濯y篷杬苸澼杇卦
Y揝圤e鰺罩萎/_螐]况靀m-樆紒U蘷tfQ#WFg窵:(!舤*仦朳_惢枴蹬痭忎S┲菕(t螫珆W?沊肟,M+B髤YFt佺X製撐靓惺壂≦C谰隽B%4k蹚嶌|W旈`S弯*籦t2 杕3熫'~y櫵<衰鰂2t痡I,礖m-濮嘅x砭续
?P0阣秲喤8斡(I测翉眒嘴J犈渙L2 旧諕锘uiat砥+騒
z ゎ漛V隶^鍚R?r毶4籢}5掜浜皅菟d菠e弐i磆掝!輂]葪鉳e隓i(泆k4'`#嵢濫輘欰\頙E抽|擆IR2搜诐e$\N郵管桾玕AG砛23M础 胗=Ms1鉲N綅D奒!7k泵襀4詤瀦廣樥r'#淹迄蜦
檺1昫(Z\〉~碆1蒬殠琴T圏=嫓窕擲虧i倜钎Z瀋.擊H謦郤摛7濌‵漍沘岶粨a;:j: Bw#*韦欯8鼦QV墔G
Z砝n畴匘荪l_"e屰'鳙I毺4崀u#A鷷懣腝椇！e2J&蜀<讌;'N#G鮊6鷛錾涿糙j蚜銿染丅淡)/k：CV!a嶂.鵾*JI+牁d(珻#7靡蓺;s壴`IP22裀%Zaǖモ Bot裭獣氡0釪
翋觘"晊珜3#*蓀"LI"t\0E;木2+'暾7梀:Wt<婱m屶R樄窻褵z昉<0锶H
清扉L擟[節河N]硞襩鄙vu:垑铰,━昏7
G海/M潈"oz巩韾7r2 "懡{膡2!T牼0○:Y戤槖L& 匌H罹B▅2)d膏,2e})jrK杔
沞3鳓飾腏A@MYv埸嵴I?9sO,[T旌M趘饃脶B粚氅叐@ 鬿ぷ
慑蓚般Xii(yO螬
问嵮w'&'8aT钇f砯袘频s*炀w蝍鱙迊韅$[{=n伥屶襗砼Q閯B躆6
($`VH@*だbn僱m!w撦羻臞｀@皷W>;?5P(X拲漥v%+洁&蚽煾弩搼p0XO抎$x(+噗?鳁识3爉g燘=慸鐻yE芍庚嗩桅k鳞s覥c喛-{f眧隨II趗2礪憤!C踸.璄m杴搃泥ǐb嬾鴺0bJ*浈0.*'BA
蓷溂q蓻谬P炰読蕔崇蜑瀽獷
$鬌aQ鼍LT癞到CH{
编"N覫#
5>.
埼o4囪S.1
棑
>妕'z4&
8L蔝IM樵拄@]X:8炈vri徃曾k≒嵺嵼2+钐哵J5VuU溉,40灻R`JU%V孭徝

^!稜0&甁si椅聟簠3w胒筍5P奍}UU劗篺磐7)w8獙2a盦g儭m2甋溠'渁扽皮漷捝自沐籛浛596蜾梇AFOF啇M:豿
嘱鑧蚫 !-C屺蝙:搞▽4Zy<n?楫!
n承&#嗇x丬KY4柚燹亭b\9q D#'舺r檇鮪桩,椝膼憟!$睶 VUuu搎藨軌67薓6cS奛
#q趴ゞ(＠-椊劢K循(E
1&5芲`Q琓e%指#$:6鉑
譶駬r淌c萨眽产_郕鴳桹p膶燢P嚫d綷Dt崏Q砆Wezj覄Jd\(4;S#螪O滄i#勋耣j:
A//忞譶伳3椻╟鸘TTk籷kb鷖s餲nd-龢”J&棄A!g:几私Q=<
<2餬(d<MyOf_B:呚Mnb?2<誔
df匵|Y濋{Q'm圇扱D翷⒉j5踈鏩尅;J笔Y^磛爛n淈n渖6鸵冱圐鋘賩R9J摙図萄\Z奶閐筼窖\/摋)LGIvC鋖cm豞:aXm/
3.にlg贅9谶v$kP囈鸨坧鍲蹆Q$漥3[姵
v孾A傋韟Yｖf讥WおE覈,淒皶笃KK寓抙.-/尛L>&?敗埍!╗mWQ5p])桗fj`3詷耒Y.畘
u醲吣#r?咜莞F-⒘*U繳-竱-X倯D.櫞kx毕&4V*V
)枇R%-壊釐ks浸踵'譶鏾慆КKU儎R篈禡焈崍k10,RE槳)CT/嶲[fk刂橽F錐 鬎
櫺? Dｏ萹.秋7粈/儱耛CHQ劙{L諴誐泞-膉l腨垟盥媂!e皧e崷旋'F4u瓸w醈箞o,R诽軄^+蟘+哅ji1屡蚜ME姃)Tp牏礞╨wㄈ>R$虙M翃J唺Q錭P)0藻BE:)"I銝敕v"-z栄"s%`Cㄈ.Lぱ~6a90應EL促0Q 署吀C摬楬庤#+
i蝒E鎒*輑禨茐L 1倐6 ;P怈Y"d*鄜0呆-3w7
瀰#l灏VJ{鶗y-Q8梋)巌)/叡n垗h肘慜G5g夭岀?洖伉Y蔻-誯G%Z瓕梺gn)n彸帍
鄡q;u樸貲痶yrI扩77毁T柹痤攴 2,晁扭p1詴xJ'&湠H
8S糋黕]經琻:s乞槂]u珨萣'枂u釘暏*M鶨鏛X
2昍杩庖(Q
(蝿顸貎筄楊*
$篔H.籩ii<捅q徔赨佼k懜岚k妐h萉拵2I糣業)^70Z!fGVn敹BX
f颴I憇訂w笹趣H蓣图戈枇}慶_9涞煤+琓Z艺[叆揚8洡v僣盈澧寈"t7s夙琔s檝:zP紡[_<1Bz臛揳豺7Y7繿髱
樲匹∮_eA
 z排=B坫p偶-R朜嗱歟詛d(
%蚻塮R徆A竦敉/聈6 e按錯$∨瓧2\[{P乫,"
笌嫙.甙Qe蠨l闑濵#i瀦几秡贎~<?0鲟<+丰羝娇M|5萌{灼6Q鉰01婤碚o瓞蔦蟢И訰{斺墅斅
文鉾=汏万赈$\1re釠k穽願敭鄊6.齆O%T笍夷%稙κ脖.軚 28呟*x2P0f凂2g硡孁I-A9Z@約F蟁I'焋鷷陋u隑曛$爺9奃呟@礩ld3Q萳,州0B喡敓りj躎院憣|{}o8媀o鈃$閃`馥鋥1Q.鼰,y}=eo4軚嗫鋈7X[v}{t衏 棧鼞裝硈建aH褌i,\"醞YV赗輜饰嬫铂蹯2M﹤-+Z蹡"痝 6Pu:燆%3
聈XI炴^]C^瑐罸lSiS頨UWP+P蕡@,閱GK侏.m_硄0D=$锡,EcM.閹=璀HV-z2犯L梣瘓穑篩T紘寤j襢7?］絓3@
v颋E韛G芑峪:6Gq煵賺7*輪?哤俬
x殟N'薺s揾4撔産蟪坧)'=*0朇3髏婰Sw醻"W藣?篬L磎台2鍉#唲5摵籧,pE柾]飙蕀灎b泧
j恮.6諿槭N{JM丣嘷T棶綕睌3鉹姭U笋博r-狮糚K7纺w晆昪X菏,剞
愥oK7@Z^頧哘}ぶP飃楾3嘨清+K娪焻濋;3縼隖*蔇倍稯慳?苘IbI繓頜I/tp▓O甯巯捇,鈔嚶
幏韝埴F;辷┺8
藃穬jw{e 鼍6蛰6鈆xAP|煹碨5,
黱癖峐)ヴ籔'騄璹P溟FJO桪杕%E佅手DbvK矮芕瞪f<恫煨m5u0-,Φ0- 洕婭咛膿R 4鑚駕≮壕AU噘玭s
 s贯貂T琿$X勀<O繻錮`籉D>烀 s賬o牣>P姃効:厍髤}TJ烀鯭飋鸸ZF3.}钹斚
#oPa}榱0K5
8袸Nt挒fk扫褭eq 簫@t!/鮸@t\n嬦r舫嵥a>2.g鉌 ;徂1谅?(耇^
%wa耸C庇J;陞忱錭隷缅h翬du籱=7≌齈5襬!\0"~臩SB国G]蒓蚇楃騵嫃g.搡?騒x468駂黻?z8賡s幼~s鲕經″崇.MN邲鹨鄧笥c?3<菌壮梽"霄崀=熠9麮礸/睆隑涒墬3C计e採j裰{S砊4究踵塩絿yU)濅d+靔C 穾kG&->葑RmSt煠t洖=~0晧氤!惪L唐.綺/帔V鲷
阶傳蚝谺(C鼅厉贐4☉~嫍K妢P⊥+噰=W/甠昊@H绹'茤>8|й^{~賛踚衧嵸Z弅)胘僪#hi`3幸2o谭
懻啷0逜I9"J篣钍/;&礚5U*(悝v-出爞@1 P*lㄠ渭孬聛
tT*z身v觜v鳛虰潇X衃3D甌O>8覛体8\榉
p 鑬见姿_彑綎l耇f .g]率;*領g?O帛緍娜彾谞缵摱匾普貴滈zゅ萹狹rnEи =*=>鮲
;&4N柩Fe尙瑢+力ft凾,b;ieR'阣R'VH&澬#=崈':xb裥＠ss鶡{触b,搈{v祫劝儤j2
瑧ⅰ@狢訦9讈镲緖讠妩砬w>事2Y麈k6侴
j灡P!1
牅繰菓價氫tP
1鐮湒)甫m妑捙繎EX捨
K3遘▽憰1逶<(&(&(g褹94书牅臥N糠
9-妔@蜯9愴
r%9 &s%鶪璺 %擾卶疁[49;16轶釓讝S_
骘Sw邼?缓rｏj艃B!溯韂Fě]斠dq#嫀'#L{2ao9祬Y.裣尼/
M簆=閄鶜体貎"B崀+滱奣欩#瓱泎|緩骃W'喼kko?齴m轵枯鴙v蛞鹉摣~ C'晭r8橪鴱*#{看=讍垮@7%憃罔澃 !嚹 洂垷7状M&(嬜菈怕&
> 0(釿涁垖憰1{%卦寧悐El冒 滾j&2
洦擫:az'l
媷M<逅&湴 欌賳VP秝Z[侫'lB浌淢w滲L詆.emi錾輜飢~;籾鞡))"紂:
$4@鶫繌驀罖-*R
焝4詒,Il#告;Vp蛦嗼Gg縫n6嗮Lk<沉?ZA聶 "O,vB*z
尓衖埿嫷/:罡XD "懜8袗)CC栟6噯怗^W飛!M鎟@嘝嶔跰5($>S笪蕧??~7}╲?醆赔dドk}_^#5礚珿d'Y
▃_R%8y蔃數枪蛻58>禉藖&jみ猈D"BQKg锞{圊k}W=遭
烎蛕產&氡4J荩岪H
[楹鹢B7{羛p`$3蔳F皢慔23)H'惔馏IuO梭o(纟7觞禓饓p> >盵呫螂ǘ┧_鏫喆.C6師嶋\-釂/謉.脳
jみ*q T~褛鳱訌靠6=66鄧k肧狁蕮鮇}+7f控"s 韢="凄郄輤8痉膲銂涗t|颙q瑛迻)甫m鑬E|颼牁飴)咣窠u呋HM曫窖x石Tq渙K缁=齃8遠賖!霚谔甯_廑费oU鬊0岠硭s=nZ[鴄x`2[K
3GC"途6皽_鲒紣bOq
慨$H&^}慾=T汬0祭x摍yykyzZ釺
嫁崰a鐞 9B騊=厨6:9;鋪)*8鍋峙U窌4鎮D嬥璞#鸒靕彺io?*閽褏\6U藄镕覐尯瑾=!萧鹁&偰〒蝑罣蜀墇5Z諳邻°Y锷l%,堏鎬2-鸘{~V[K锶臲緒?#斆r)8r選⒍講g厖憣8*蔴Z黪趨o%zjC鮺驯;烳蛤0?194熔C7稔躜芤w碾鱼霔薷=7=4彭0嫼LQ-E&w?U363;{eq觜淫伙迆臸溯w飣煛謀鵳鰤魨"
:閕黡恚昽Ipj+夞[3c梖瀸邆)>H薕威i驷賡腼弾<T剶k遽衻鬥U:j蟌啉G}_⒓醱~jtTJ#凱ю\鵗鹝7磇
b迤杌戋abc8櫉汘訚+襋=鏔)烸沫锆+埆蓰^齞x@貽u撵摣肯O蚠沄<E迕!
zp!()暵﹠B3霷aT隤轾呃SmiA馕Ez=4~yNO?畺(载警疸鼋瓏阡濒0<勤鰸8&'(
靭Zo蕚斏勎O聊儵}熘m爢J-?5~狷钩鏥,-00~ayt鴩爺濻b>!=鄃Sc@SGQFP駖噔鞜勭h獱鲕醑棚b[擮
侖+柏翑U>
0夨.5菭df舐巰槉陜酎T煡gB珫呦%樎恵y磓銖枛V鹢=^hN鸺F膬h劑STK3O'?君绫獒( C@C)?P詴焃黡#I畝 燲[Z黿龐朔Ak/G櫘犎O
嶔"F?Zz<蘿创:vIS.bZ:oiㄔ錜冈Bj~

挡@ 疅]經0LE-+/~4?鱍^N样?^}闿y(h)e澘紝磶D腬@氦W刑矕矿櫚
呍?蹋粤z倞泸(P澔rj覈n}傀颳nZ+宖PMi$=F懡鸻浃0?刪ゾ1犨Q5}褟\,X*,b数9%-S嬰ヘ%漨└阡ha-槥{@\{vLC`e`棃I癀櫑u婊+*(8'#x坎=Kx絕a婸庋坡絘\]:雑:作l畬
\=鷐紞纥帝兯＃W/迾橒vz枋脱呦|X硣诸夔閐抜8穒6誂р 唹G樨)釐uぐ?公僶>%fG颒業K盦癱鸽3Ym!j/
)7*鲳Q.捋RR@]跣
v緤BNHR6}С探N捲y?-謳vЁ钳5ch6Ι*e圽D葅z錗:4q*y
曡a\
V01I*軨焱皌矇]入Z^/R佒e-(奫酂.僴6@6mA妘n跦e潉T奰h拫寻磠a]!気蔋梡0XO抎$ 斤/薿r)骗GX璜
吮A墏^秬潦;莦捅锦s4傧v<,'xe冸摱洬U!C\+g暅9E荋⒋-亃粙(迷%2扛60罯
啔(,{埗霏j賀t鰬謹6謈&&晆u曙j卼迳1橿O湅鍫K啂鱶筎4劎-DT%R筤圙(欱誢琁磀t4蟝蒣20A剷_1y娢i蜫$僮嬴培{4鈤1眯盢鯛羵t毼6墳D寜筿q搸.恱坼煁C瞧]誖.)E5W ,D砋蓚PTW薡晝!7N撎22I5劔濯栿肯?7_n畔通.V礘5u+5伭帩齧撒#G){{悰堐a殆Xe糔}1x V^_咺7棿E窴=蕅t宨幱4汮p蟙t尐V8摜SF獖廲$(彊b若#f=俆抿暵f9鯡╖!#RXtQd{,-H R6れk卻霫畠3ˊ魤
殞"2D桌铌苗2)"A#8"m1|Uq瀟ww杩継王b"Y捧叢ヮ*N瓌鼈汐
悯 鐶o>+B 等裏!yPbHK兲VC#J*`{.棅譩s櫎请嵅'Y:=I
誐剛<盲歰Lq'Ub毸矤~鼶m0@s@hp# 肛郌
&慔r悽&c隮澴!&(`]惤i毖
浥 B溈恝p垱廿K咉m
^2鹚DP焱a0昣V^倿◢r+飆$=D溛v2q鈪x麬#&G 贛s戩蹿C鵪'奇镘箕>\鴕醴?-?XU鰢q奘鮄`觷ぁ仾勗=QC+颸浲榏;谝砬(87々肓蚮=鄌h5琌~u砦潙硂/驾锓k粲伙.L峿ㄠ蹣燘<6濈咢埇玈髚迤錈'<葥+7&g遡
|叛叡e2壏鈂9^ 淸迾瘼)褨d郼k锪盖呡3襏]銁!\)婠爣Mg歷類
%%禖茪P} .Cx乫淉M滌蚿軾o扞u饾M祛菡D狁腱蕤PV3"*曋潴M>鹍ii鰱貭殯c襴墁;(9痧!謸4魹<x驤1D*D)#樀J$)Ha
R濄扱4Z杧熤eUe-+!S6﹫U擸&赡tqC=帇媟=傅F{乭︵焘苹9簝&[D鸓T晈钷鵴掰田-仿9!鶲苓
W悄[鄨Gl
4鯧A2汾魑P~鈕v2-Lu 敨E摀G 砎hr櫅辐2鮴馻鳀骃#嶟}`V5莙謃衴芝絜0$抹V)MF諣濾>オB蒮19δ蛐
-抣J仟獧7∞骔7(5犡凌0笊P!贖揩om隷Yˉ鋏躓璽-鮰f鱢2t/辝拓 [L惆/ー跭Hz8觾H麺驐=刋枻L朶<'捑.捈!n婜|b駋L僪_噠7殧夳h緪1YH,J丨簨壋巩撴衂這7歧筹B~麓~罩W濚佾艂msF菓浅Yl歯?U栘卞U6柁誎攥=禵lEX衋%饒旯=цT籐罫BCWZM鳟?+&P踬R闥箋雼+%鉘+R$八)Mz跆傖`2+姘席T
枙R=銏龋D贪XAGt楔d,喖A3廩wu"髠 Z稦z8懳靓b鯃氝G憯抡g貴785rM騳妕嗐95墬懶缢f搉p盎氊峼硟:扡-潰摻K鋧1絺穌疑OXUs}埳%b尬祭Yr簌$ReB彗娷s "t
譺褤衶bＪ-8燍噶搟ogH`頂4锲Z4め&KYW蟗e%$,W# 嚵睸獹w蔤e触I潟ˊq@閝ツ$+
啸;薝Fs鵃埪!暝;|>翞)AH灙u)vO+蝔覫悍1q祃庌M玄x,&)贠
4A%1+腸県.M镪`=吞Dx兑謖,+a倈虌緢%顔l'灭* |葞膥沚y焫
,6篷l鯛xy矲H"怮qbj嘐蚘yJ9M臎地n$Mr8.AG砛2荂x9L\韩5蓇!nX0瘏觵濺
28R!"I馮燳z琀zF潕睑"誺眖鉰曓I!4>銻鎸逛L簆鵓爔埣蛐ea矪u糝鵛h櫾夠w`鵯黁c谗u斺6贮*B荧鋑/>\栉@Hw\C約娖$m裫拈x~炝堙Kw鼬意 祅窔V}鉆儙V汳〩,蒭+&?|6豅B\駐R50J觔A溪摨鈗c瑏v2^ ④\"E楗P,K)`釨6bPm\牣欕:j烢a+(o}y*
!峵偠0莞敚稬K#]衰v鳙席]/(┬荪喉t.M//A? .蝊R该 ,-z铬,*z襆寳額.濙爾跽鞾jA
挎訴媑qm鼃|o鏆笱厇\
摙員kEP槊rg樌q芺02櫘l騚tV佂&搃!wァu(:涺zW)=h檢|眦蜿啩`pm撜@弄I7m牀愮&Q%uP昑)渁_娪P ^熍嫂蛆倥?`昊Wp赝Z`"6般精+15圵@檖愛I琍:懩磣墜咉掴>錾戻">獓Fs撏趤HER)畇pR8)Vh鰌亦隼I隡p覓/C| U低5z叓鹖1油肑崸2Z磱\$+jy攋耐Uu崠 讶粙齋
痉6};缦331&c伱砽v溝 !?k継鸊:鼑裏e矞}俙霭9:e鄂圞D^匰碝博K破.讨%[a0v*Dcа*韂S俋1倢咢u翑i軯M
Pj玏y嚂佅_謊zU鄞x
豬h到H|a戁股Vv訇5褥M鼊徼a灺#駤厀j惷?5汽&壽r3J9恛篲惁跊犮虘D%筺|o\w歩昰璆w暅{A5{S\2oep颰Y;5&鱊メatZ9
霅
/]竿^b?+劷*麇:64墷.隔&甕踰]稱m UIY麗伃I8嫯xA(肂禪$蔀B 旑$\穢硞QU筃荖姜灯鄛(
醹(H羥
栵C洋Bi鍢^ ]檳:眯鈪BXWN)载)7鱃 7m醧忔恌S鎬走*Z塪荠!;PtsNE嵜2p勰Z呕皨
q7昉讷JG枥W7
涁稱踉鍦趫+n4屹v枂M^M%耟e(邉k=翿侄嵈+#[楿pa*7w4wxf拓雿q屈鎿峫=閤+++虣M[T%t卾徥U莰Mㄙ2jｕ柧Sw铬蓰z1酚-遛娩x茺gWm}s*妎勝城
O3贕跠\開J/n膍燰糚7\$亨p?.F&|瑱5{|@2鮴qm觜H蔙馏铯O3x#卩駽.y2=嵕-@m撘咑岧恻敶誛>^!赽廝揸u踻涍细GG歁
.酆bmw均6/v6蛚蚮[Div!65瓅"莣ò颼9`9L~7
/@/2H2N鍾屣:迋絽gb3T樒v睜g)]臒-镰'垽儋苕[傭爃e刳T銹n
⑶螢犻彸'h峦炒'副S\芠i0*)h搵焏氍t兩<麎`汕t鰬矽s圛碋4)P蠲5i:胔H梘耓E鶚噺眖2.l晿I颭;偻vQZ厀|R鵅帛vq"W{磅P兯
j缫肛趦 S =%x鵎5#(U)/疉y剼る挮絰鰦倥溪03鹅馥:o螞d@4Ec瑜({▅∵賱逊P鮺裾xt捝梽_ 舣痌#JU*鬦z嚍鳱;ㄦ缜龈|Q氻蘱1
鏓k但Fɡ彶q|O笩t徱N|&觫 f$鐺!就S藅] 槑3堞毬;m4O嬡!v&躪N娤瀷咏1dS5揜廐!醑崯B珋狌臝(鰠"嘐岸@i癹h姁-9T耗
zbH沄v%b傕
〃L荜!7龑4螵/,绤6'探R腟+滶匰+沢浞-桳絗毶X辚R)ケL$U#4擧糓HA
犫6朑8婖嫟F"u碕凴a\羰橉GH-$槛颐绸yq囲e朓普ズIε82-踋e
>,V!貲aC断盌/殸YlZx5Z{6鷢[ R菱Kc
^1艿聀志J鬂轉掋2罆廟(綖H蟊S/k5氂^テ㏎o*K問貆饣培U哄硖箽储ㄜ+|^+鰸,慷5ja髪r&H堯橩
籀e")H侙P荡5L譞5?u玫o原仨v翲欿梉鰩y.︾F书"館QhQiE)捭m{忢;賥鋚{/#G鞫﹨_t,挻絩銬湫慦幖|湄k{忢7$k=儃#'癴:卦,摿療.<o=俜穄蹊棹v胓鳙;t5襷烊k芹"xqjW"K2卡西欧fx5800计算器 道路全线正反算程序_中华文本库
第1页/共1页
文本预览：
主程序文件名：QXJS “ZB +COM - COM”◢
Deg；Fix3:10→Dimz “1.KZ => XY” : “2.XY => KZ”: “ N=”?N:if N=1:Then Goto1:Else
Goto2:Lbi1:“K=”?K:“Z=”?Z:Prog“DAT-1”
“PJ=”?A Abs(K-O)→W:Prog“SUB1”:“FY-X”“X=”:X→X◢ ： “FY-Y”“Y=”Y→Y◢ ： F-A→F:“QX-FWJ=”:F DMS◢
0→I: 0→J
Pol(X-测站点 X 值，Y-测站点 Y 值) “α FY=”:J DMS◢ “L FY=”:I◢
Goto 1 Lbi2: “ X”?X: “ Y”?Y:X → I:Y → J: “ K”?K:Lbi3:Prog “ DAT-1”:Prog “ SUB2”:O+W → K:IF K ≥ O+H ： ThenO+H+1 →
K:Goto3:Else“K=”K→K◢ “Z=”:Z→Z◢ Goto2
子程序 SUB1(正算子程序)
10→Dimz 1 ÷ P → Z[3]:(P-R) ÷ (2HPR) → D:180 ÷ π → E:0. → Z[1]:0. → Z[2]:0. → Z[5]:0. → Z[4]:1-Z[4] → F:1-Z[5] →
M:U+W(Z[1]Cos(G+QEZ[5]W(Z[3]+Z[5]WD))+Z[2]Cos(G+QEZ[4]W(Z[3 ]+Z[4]WD))+Z[2]Cos(G+QEFW(Z[3]+FWD))+Z[1]Cos(G+QEMW(Z[3]+MW D))) →
X:V+W(Z[1]Sin(G+QEZ[5]W(Z[3]+Z[5]WD))+Z[2]Sin(G+QEZ[4]W(Z[3 ]+Z[4]WD))+Z[2]Sin(G+QEFW(Z[3]+FWD))+Z[1]Sin(G+QEMW(Z[3]+MW D))) →Y:G+QEW(Z[3]+WD)+ A→F:X+ZCos(F)→X:Y+ZSin(F)→Y 子程序 SUB2(反算子程序) 10→Dimz 90 → A:G-90 → T: Z:Lbi0:Prog Abs((Y-V)Cos(T)-(X-U)Sin(T)) “SUB1”:T+QEW(Z[3]+WD) → Z:If Abs(Z) → W:0 → → ＜
Z[4]:(J-Y)Cos(Z[4])-(I-X)Sin(Z[4])
1*10-6:Then Goto 1:Else W+Z→W: Goto 0:Lbi 1:0→Z:Prog“SUB1”： (J-Y)÷Sin（F）→Z
DAT-1(子程序数据库) If K≥起点桩号 And K≤终点桩号：Then 起点 X 坐标→U: 起点 Y 坐
标→V:起点里程→O:起边方位角→G:线元长度→H:线元起点半径→P: 线圆终点半径→R:(左偏-1，右偏 1，直线 0)→Q:IfEnd
N?选择计算方式，输入 1 表示由里程 、边距计算坐标，输入 2 表示 由坐标计算里程和边距。 U?线元起点 X 坐标。 V?线元起点 Y 坐标。 O?线元起点里程。 H？线元长度。 P?起点半径。圆曲线输入半径，缓和曲线输入 10 的 45 次方，直线输 0。 R?终点半径。圆曲线输入半径，缓和曲线输入 10 的 45 次方，直线输 0。 Q?左右偏标志（左偏 Q=-1,右偏 Q=1, 直线 Q=0） 。 K?正算时所求点的里程。 Z?正算时所求点的偏距。 （左偏取负值，右偏取正值，中线上取 0） A?正算时与路线的右偏角度。 X?反算时所求点的 X 坐标。 Y?反算时所求点的 Y 坐标。 显示部分: X=xxx,正算时，计算得出的 X 坐标。 Y=xxx, 正算时，计算得出的 Y 坐标。
I J 测站到反算点的距离和方位角。 K=xxx,反算时，计算出的所求点的里程。 Z=xxx,反算时，计算出的所求点的偏距。
第1页/共1页
寻找更多 ""