主線高程計算
zxsjgc（設計高程主程式）
fixm : lbl 1:｛em｝:
e」zhuang hao ″:m」ceng」:prog」sy」:
e≤a-t→f=d-b（a-e）：≠→prog 「gg1」△prog 「gg2」：m=1→f=f:
goto 2△回車m=2→f=f-0.04：goto 2△回車m=3→f=f-0.
1：goto 2△回車m=4→f=f-0.18：
goto 2△回車m=5→f=f-0.38：goto 2△回車m≥6→prog」gslx」 △回車m=7→f=f-0.
2△lbl 2:k≠0→n」heng po ″=100n▲[注:若不顯示橫坡則把前面的「▲」換為「：
」即可]f」gao cheng ″▲[注:若不顯示高程則把前面的「▲」換為「：」即可] ≠→f」gao cheng ″▲[注:
若不顯示高程則把前面的「▲」換為「：」即可]△prog 「wcjs」： [注:
若不須要計算誤差則把前面的「prog 「wcjs」：」刪除即可]goto 1
zxsggc（施工導線高程主程式）
fixm : lbl 1:｛em｝:
e」zhuang hao ″:m」ceng」:prog」sy」:
e≤a-t→f=d-b（a-e）：≠→prog 「gg1」△prog 「gg2」：m=1→f=f+0.
04*0.15[注:0.
04為第一層厚度,0.15為第一層松鋪係數]:goto 2△回車m=2→f=f-0.
04+0.06*0.15[注:
0.06為第二層厚度,0.15為第二層松鋪係數]：
goto 2△回車m=3→f=f-0.1+0.08*0.
15[注:0.08為第三層厚度,0.
15為第三層松鋪係數]：goto 2△回車m=4→f=f-0.18+0.
08*0.15[注:0.
08為第四層厚度,0.15為第四層松鋪係數]：goto 2△回車m=5→f=f-0.
26+0.32*0.25[注:
0.32為第五層厚度,0.25為第五層松鋪係數]：
goto 2△回車m≥6→prog」gslx」:f=f+0.2*0.
25[注:0.2為第六層厚度,0.
25為第六層松鋪係數]△lbl 2: prog 「wcjs」： [注:
若不須要計算誤差則把前面的「prog 「wcjs」：」刪除即可]goto 1
wcjs （計算實測與設計誤差及工程量子程式）
｛x｝:x」du shu ″:q」scgc ″=y[注:
y值每次開始前或轉站時必須存入測站的視線高程]-x/1000[注:讀數單位為公尺時不除1000] ▲w」wu cha ″=q-f▲[注:以下步驟為現場計算路基低於設計高程15mm以下部分工程量程式，若不計算可以不加或不顯示結果]w≥-15→goto 1：
≠→absk =1→v=（-w+15）*60 [注:此公式為計算距中1公尺處補償量]：goto 5≠→absk =13→v=（-w+15）*64[注:
此公式為計算距中13公尺處補償量]：goto 5≠→v=（-w+15）*80 [注:此公式為計算距中5、9公尺處補償量] △△△lbl 5:
z=z+v [注:z值每次計算前必須存入「0」，最後提出即可]：lbl 1 [注:
以上程式若不扣除15mm只須把上述體積計算公式中的「+15」去除即可；若布點位置不同則體積公式要隨著改變]
gg1（子程式1）
g=abs(a-e):h=（t-g）2÷2÷r：b＞c→a≥e→f=d-gb-h△△b＞c→a＜e→f=d+gc-h△△b＜c→a≥e→f=d-gb+h△△b＜c→a＜e→f=d+gc+h△△
gg2（子程式2）
｛k｝:k」yc ″：k＞0→prog」py2」：
≠→prog 「py1」△e≤j-i-2l→n=0.02:f=f-n( absk-1)：
≠→prog 「gg3」△
gg3（子程式3）
k= absk：e≤j-l-i→n=0.02-（0.
04÷l）×（e-j+2l+i）:f=f-n(k-1)：goto 1△回車e≤j-l→n=-0.
02:f=f-(k-1)×0.02：
goto 1△回車e≤j→n=-0.02+（0.04÷l）×（e-j+l）:
f=f-(k-1)n△lbl 1
sy（豎曲線要素）
e≤豎曲線結束點樁號→b=進入坡度：c=出去坡度：t=切線長：
r=豎曲線半徑：a=頂點樁號：d=頂點高程：
goto 2△回車重複上述步驟至最後一條豎曲線為止△lbl 2
py1（左幅橫坡要素）
e≤左幅變坡點結束點樁號→l=超高變坡段長：i=超高段長：j=左幅變坡點結束點樁號：goto 1△回車重複上述步驟至最後一段個超高段為止△lbl 1
py2（右幅橫坡要素）
e≤右幅變坡點結束點樁號→l=超高變坡段長：i=超高段長：j=右幅變坡點結束點樁號：goto 1△回車重複上述步驟至最後一段個超高段為止△lbl 1
gslx（中濕與乾燥型別要素）
e≤第一段中濕型別結束點樁號→lbl 2：f=f-0.56：
goto 1△回車e≤第一段乾燥型別結束點樁號→lbl 3：f=f-0.54：
goto 1△回車e≤下一段中濕型別結束點樁號→goto 2△回車e≤下一段乾燥型別結束點樁號→goto 3△回車重複上述後兩步至最後中濕或乾燥段為止△lbl 1
匝道高程計算
za dao gc（主程式）
fixm : lbl 1:｛e｝:e」zhuang hao ″: prog 「mlgc」：f▲goto 1
mlgc（子程式1）
prog 「mlz」：prog 「sqxy」：｛k｝:k」yc ″:k＞0→prog 「mlb2」：≠→prog 「mlb1」△prog 「bz」
sqxy（子程式2）
e≤a-t→f=d-b（a-e ）：≠→prog 「gg1」△
bz（子程式3）
k= absk：f=f-（l-（i-l）÷n×（e-j+n））×k
mlz（豎曲線要素）
e≤豎曲線結束點樁號→b=進入坡度：c=出去坡度：t=切線長：
r=豎曲線半徑：a=頂點樁號：d=頂點高程：
goto 1△回車重複上述步驟至最後一條豎曲線為止△lbl 1
mlb1（左幅橫坡要素）
e≤左幅變坡點結束點樁號→l=起點橫坡：i=終點橫坡：j=左幅變坡點結束點樁號：n=變坡段長：goto 1△回車重複上述步驟至最後一段個超高段為止△lbl 1
mlb2（右幅橫坡要素）
e≤右幅變坡點結束點樁號→l=起點橫坡：i=終點橫坡：j=右幅變坡點結束點樁號：n=變坡段長：goto 1△回車重複上述步驟至最後一段個超高段為止△lbl 1
主線座標計算
zz（主程式）
fixm : lbl 1:」zhuang hao ″？
l: prog 「yz」：prog 「zz1」：
prog 「zz2」：」yc ″?q:
if q＞0：thenrec（q，z+90）：elserec（-q，z-90）ifend
x=x+i▲y=y+j▲z→dms▲goto 1
zz1（子程式1）
πa absw÷180→c:atan(absw÷2)→f:b=0=>0→d:0→e:k-f→r:r+c→t:
s→r:u→t: b≠0=>b2÷24÷a→d：
b÷2-b3÷240÷a2→e：dtan( absw÷2)+e+f→f:c+b→c:
k-f→r:r+b→s:r+c→u:
u-b→t△
zz2（子程式2）
ifl≤r:theng+ rec（k-l，v+180）→x：h+j→y:z→v: goto 0
elseifl≤s:thenrec（f，v+180）：g+i→x:h+j→y:l-r→c: prog 「zz3」：v+90c2÷(πab) →z
w＜0=>0-j→j:v-90c2÷(πab) →z:prog 「zz4」：goto 0
elseifl≥u:thenrec（l-u+f，v+w）：g+i→x：h+j→y ：v+w→z：goto 0
elseifl≥t:thenrec（f，v+w）：g+i→x：
h+j→y ：u-l→c：prog 「zz3」：
0-i→i：v+w-90c2÷(πab) →z：w＜0=>0-j→j:
v+w+90c2÷(πab) →z
x+icos（v+w）-jsin(v+w) →x: y+i sin(v+w)+j cos（v+w）→y:goto 0
g+ rec（f，v+180）→x：h+j→y:180(l-r-b÷2) ÷a÷π→c:
a sinc+e→i:a(1- cosc)+d→j:v+c→z:
w＜0=>o-j→j:v-c→z:prog 「zz4」ifend
lbl 0：ifz＜0:thenz+360→z:elseifz≥360:thenz-360→z:ifend
zz3（子程式3）
c-c5÷（40 a2 b2) →i：c3÷（6ab)- c7÷（336（ab) 3）→j
zz4（子程式4）
x+icosv-jsinv→x: y+i sinv+jcosv→y
yz（平曲線要素）
l≤園曲線或緩和曲線終點樁號→g=交點縱座標x：h=交點橫座標y：k=交點里程：
v=進入方位角：a=半徑：w=轉角（左轉為「-「）：
b=緩和曲線長度：goto 2△回車重複上述步驟至最後一條平曲線為止△lbl 2
匝道座標計算
zd（主程式）
fixm：lbl 0：：l「zhuanghao」：
prog「qssj」：r=0→s=0→prog「zx」：goto 2△△r=s→prog「rqx」：
≠→prog「les」△
lbl 2：z＞360→z=z-360 △z＜0→z=z+360 △
x ▲y ▲z ▲
lbl 3：：q「bl」：q=0→goto 0 △d=x-qsinz：k=y+qcosz
d ▲k ▲goto 3
zx子程式<12>
i=（l-b：t=f：j=0：z=t：prog「xyzs」
yqx子程式<13>
v=180（l-b）÷r÷π：z=f+v：i=rsinv：
j=r（1-cosv：t=f：prog「xyzs」
les子程式<14>
s=0→m=0:c=abs(r(n-b):t=f:a=(l-b:
r＞0→z=90a2÷c÷π+t: ≠→z=t-90a2÷c÷π△goto 1 △
s ≠0→r ≠0→(abs s)＞(abs r)→c=abs((n-b)×sr÷(s-r: m=abs(c÷s: e=90m2÷c÷π:
a=m+(l-b: s＞0→t=f-e: z=t+90a2÷c÷π:
≠→t=f+e: z=t-90a2÷c÷π △ goto 1 △△△
FX 氫氣產品的分析
氫氣產品中雜質含量的測定氣相色譜法 1 hse 1.1 安全 1.1.1 本方法可能涉及的樣品是高度易燃，必須預先採取措施，為工作場所提供適當的通風，以將洩漏時發生火災或 的危險降至最低。樣品未分析時應在通風櫥內貯存，並遠離火種。1.1.2 樣品瓶不應裝滿。留出一定的氣化空間。1.1.3 有關裝置的...
48 50樓鋼筋除鏽施工方案
金源 納帕溪谷三期工程 鋼筋除鏽施工方案 編制 審核 審批 日期 2018年8月13日 陝西省咸陽市建築安裝工程總公司 金源 納帕溪谷專案三期工程專案部 目錄第一節 編制依據 3 第二節 工程概況 3 1 工程簡介 3 2 工程概況 3 第三節 施工現狀 4 第四節 施工準備 4 第五節 施工部署 ...
fx 5800線路放樣 RCOOR
rcoor x jd1 x y jd1 y x jd0 m y jd0 n pj a r r ls1 b ls2 c jd k 26 dimz pol x m,y n j z 20 j a z 19 abs a z 10 ifa 0 then1 w else 1 w ifend b 24r b 4 ...