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)÷（2688r^(3)）＋b^(6)÷（506880r^(5)）—b^(8) ÷（1548228800r^(7)）→z[6]
c÷（24r）—c^(4)÷（2688r^(3)）＋c^(6)÷（506880r^(5)）—c^(8) ÷（1548228800r^(7)）→z[7]
b÷2—b^(3)÷（240r）＋b^(5)÷（34560r^(4)）→z[8]
c÷2—c^(3)÷（240r）＋c^(5)÷（34560r^(4)）→z[9]
「t1=」:z[8]＋（r＋z[7]—（r＋z[6]）cos（z[10]））÷sin（z[10]）→s◢
「t2=」:z[9]＋（r＋z[6]—（r＋z[7]）cos（z[10]））÷sin（z[10]）→t◢
「l=」:rz[10]π÷180＋（b＋c）÷2→l◢
「ly=」:l—b—c→q◢
「e=」:（r＋z[6]＋z[7]÷2）cos（z[10]））÷sin（z[10]÷2）—r→e◢
「zh=」:k—s→z[1]◢
「hy=」:z[1]＋b→z[2]◢
「qz」:z[1]＋l÷2＋（b—c）÷4→z[3]◢
「yh=」:z[1]＋l—c→z[4]◢
「hz=」:z[4]＋c→z[5]◢
x—scos（z[20]）→z[21]:y—ssin（z[20]）→z[22]
x＋tcos（z[19]）→z[25]:y＋tsin（z[19]）→z[26]
b→z[8]:b→z[9]:prog「hxy」
z[21]＋z[6]cos（z[20]）＋z[7]cos（z[20]＋90w）→z[23]
z[22]＋z[6]sin（z[20]）＋z[7]sin（z[20]＋90w）→z[24]
lbl 0
「p」?p
ifp＞z[1]:thengoto1:ifend
z[1]—p→l
「xp=」:x—（s＋l）cos（z[20]）→f◢
「yp=」:y—（s＋l）sin（z[20]）→g◢
z[20]→z
goto5
lbl 1
ifp＞z[2]:thengoto2:ifend
p—z[1]→l:l→z[8]:b→z[9]:prog「hxy」
「xp=」:z[21]＋z[6]cos（z[20]）＋z[7]cos（z[20]＋90w）→f◢
「yp=」:z[22]＋z[6]sin（z[20]）＋z[7]sin（z[20]＋90w）→g◢
z[20]＋90wl÷（brπ）→z
goto5
lbl 2
ifp＞z[4]:thengoto3:ifend
p—z[2]→l:90b÷（rπ）→z[8]:180l÷（rπ）→z[17]:rtan（z[17]÷2）→z[16]
「xp=」:z[23]＋z[16]（cos（z[20]）＋wz[18]＋cos（z[20]＋wz[18]＋wz[17]））→f◢
「yp=」:z[24]＋z[16]（sin（z[20]）＋wz[18]＋sin（z[20]＋wz[18]＋wz[17]））→g◢
z[20]＋wz[18]＋wz[17]→z
goto5
lbl 3
ifp＞z[5]:thengoto4:ifend
z[5]—p→l:l→z[8]:c→z[9]:prog「hxy」
「xp=」:z[25]—z[6]cos（z[19]）＋z[7]cos（z[19]＋90w）→f◢
「yp=」:z[26]—z[6]sin（z[19]）＋z[7]sin（z[19]＋90w）→g◢
z[19]—90wl÷（crπ）→z
goto5
lbl 4
p—z[5]→l
「xp=」:x＋（t＋l）cos（z[19]）→f◢
「yp=」:y＋（t＋l）sin（z[19]）→g◢
z[19]→z
lbl 5
ifz＜0:thenz360→z:elsez→z:ifend
「bp=」:zdms◢
lbl 6
「h」?h
ifh＝0:thengoto0:ifend
「d」?d
「xp=」:f＋dcos（z＋h）→u◢
「yp=」:g＋dsin（z＋h）→v◢
goto6
注：該道路放樣程式由本人根據卡西歐fx-4850道路放樣程式rcoor改編。在改編過程中對原基礎語句加以變動、新增，其程式內常用數值有所調整，意在增加計算後精度。
望諸位在使用過程中發現問題並反饋，謝謝。
qq：1964229814
hxy (rcoor子程式)
ifz[9]＝0:then0→z[6]:0→z[7]goto0:ifend
z[8]—z[8]^(5)÷（40rz[9]）＋z[8]^(9)÷（3456r^(4)z[9]^(4)）—z[8]^(13)÷（599040r^(6)z[9]^(6)）→z[6]
z[8]^(3)÷（6rz[9]）—z[8]^(7)÷（336r^(3)z[9]^(3)）＋z[8]^(11)÷（42240r^(5)z[9]^(5)）—z[8]^(15)÷（9676800r^(7)z[9]^(7)）→z[7]
lbl 0
程式名稱rcoor
顯示說明
x(jd1)=? y(jd1交點（jd1）座標
x(dj0)=? y(jd0交點（jd0）座標
pj路線轉角。左偏為負（即jd1所對應轉角值）
r半徑ls1緩和曲線1長度
ls2緩和曲線2長度
jd交點（jd1）樁號
驗證部分
t1切線1長度
t2切線2長度
ly圓曲線長度
l平曲線長度
e外距zh直緩點里程
hy緩圓點里程
qz曲中點里程
yh圓緩點里程
hz緩直點里程
p所求點里程樁號
xp yp所求點座標顯示
bp所求點切線方位角
h路線外一點轉角（h=0時計算下一點）
d路線外一點距點p距離（左側為負值）
5800應用程式
一 座標計算源程式 1.主程式 tyqxjs xy sz n u x0 v y0 o s0 g f0 h ls p r0 r rn q c 1 p d p r 2hpr e 180 n 1 goto 1 go to 2 lbl 1 sz w abs s o prog sub1 x xs x y ys...
FX 氫氣產品的分析
氫氣產品中雜質含量的測定氣相色譜法 1 hse 1.1 安全 1.1.1 本方法可能涉及的樣品是高度易燃，必須預先採取措施，為工作場所提供適當的通風，以將洩漏時發生火災或 的危險降至最低。樣品未分析時應在通風櫥內貯存，並遠離火種。1.1.2 樣品瓶不應裝滿。留出一定的氣化空間。1.1.3 有關裝置的...
Fx 4850P計算程式
主線高程計算 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 g...