1樓：譚文亮愛段紅飛
fx－4500p座標計算程式根據座標計算方位角
l1 a「x1＝」：b「y1＝」：pol(c「x2」－a，d「y2」－b：「s＝」▲w＜0w＝w＋360△w：「alf(1~2)＝」
直線段座標計算l1 x「x(0)」：y「y(0)」：s「s(0)」：
a「alf」l2 lb12l3 ：l「lx」l4 m「x(z)」＝x＋(l－s)cosa▲l5 n「y(z)」＝y＋(l－s)sina▲l6 ：b「b(l)」：
q「q」l7 o「x(l)」＝m＋bcos(a＋q＋180)▲l8 p「y(l)」＝n＋bsin(a＋q＋180)▲l9 ：c「b(r)」l10 u「x(r)」＝m＋ccos(a＋q)▲l11 v「y(r)」＝n＋csin(a＋q)▲l12 goto 2
園曲線段座標計算l1 s「s(0)-km」：x「x(0)」：y「y(0)」：
a「alf」：r「r」：k「k(l＝1,r＝2)」l2 lb1 2l3 ：
l「l(x)」l4 v＝180／π×（l－s）／r：w＝v／2l5 c＝a＋(-1)k×w：d＝2rsinw：
f＝a＋(-1)k×vl6 m「x(z)」＝x＋dcosc▲l7 n「y(z)」＝y＋dsinc▲l8 ：e「b(l)」：q「q」l9 o「x(l)」＝m＋ecos(f＋q＋180)▲l10 p「y(l)」＝n＋esin(f＋q＋180)▲l11 ：
g「b(r)」l12 t「x(r)」＝m＋gcos(f＋q)▲l13 u「y(r)」＝n＋gsin(f＋q)▲l14 goto 2
正向緩和曲線段座標計算l1 s「zh-km」：x「x(zh)」：y「y(zh)」：
a「alf」：r「r」：h「ls」：
k「k(l＝1,r＝2)」l2 lb1 2l3 ：l「l(x)」l4 d＝30（l－s）2／π／r／h：c＝l－s－（l－s）5／90／（r×h）2：
b＝a＋d(-1)k：e＝a＋3d(-1)kl5 u「x(z)」＝x＋ccosb▲l6 v「y(z)」＝y＋csinb▲l7 ：g「b(l)」：
q「q」l8 f「x(l)」＝u＋gcos(e＋q＋180)▲l9 i「y(l)」＝v＋gsin(e＋q＋180)▲l10 ：j「b(r)」l11 m「x(r)」＝u＋jcos(e＋q)▲l12 n「y(r)」＝v＋jsin(e＋q)▲l13 goto 2
卵形曲線座標計算l1 s「km-yh」：e「x(yh)」：f「y(yh)」：
g「alf」：b「r1」：d「a」：
k「k(l＝1,r＝2)」：q「r1-r2x＝1,d＝2)」l2 lb1 2l3 ：z「l(x)」l4 j「l1」＝d2／b：
r「rp」＝d2b／(d2＋(-1)q(z－s)b)：l「lp」＝d2／rl5 m＝(l－j)－(l5－j5)／40／d4＋(l9－j9)／3456／d8l6 n＝(l3－j3)／6／d2－(l7－j7)／336／d6＋(l11－j11)／42240／d10l7 t＝g－(-1)q(-1)k×j2×90／d2／πl8 x「x(z)」＝e＋(-1)qmcost－(-1)knsint▲l9 y「y(z)」＝f＋(-1)qmsint＋(-1)kncost▲l10 a「alf(p)」＝g＋(-1)k(z－s)×90×(1／b＋1／r)／πl11 ：h「b(l)」：
u「q」l12 w「x(l)」＝x＋hcos(a＋u＋180)▲l13 v「y(l)」＝y＋hsin(a＋u＋180)▲l14 ：c「b(r)」l15 i「x(r)」＝x＋ccos(a＋u)▲l16 p「y(r)」＝y＋csin(a＋u)▲l17 goto 2
卡西歐4500的程式集附閉合導線計算附閉合導線計算
1、源程式
f1 a1l1 defm 4n-2l2 n:a:b:
pol(c-a,d-b):w<0=>w=w+360⊿t=wl3k=0=>m=t+180:e=c:
f=d:goto 0: ≠>e:
f: pol(g-e,h-f):w<0=>w=w+360⊿m=wl4 lbl 0:
l=0:u=0:i=0:
r=2:z[1]=tl5 lbl 1::z[r]+360:
⊿r=n+1=>goto 2: ≠>r=r+1:goto 1l6 lbl 2:
p」jb」=(z[n+1]-m) ◢q」jl」=40√n◢r=2l7 lb1 3::z[n+r]=s: l=l+s◢l8 z[2n-1+r]=rec(s,(z[r]-p(r-1)/n)):
u=u+vl9z[3n-2+r]=w:i=i+w:n=r=>got 4:
≠>r=r+1:goto 3l10lbl 4: p=u+c-e◢q=i+d-f◢l11 g」1:
m」=l/pol(p,q) ◢r=2l12lbl 5:x」xi」=c+z[2n-1+r]-pz[n+r]/l◢y」yi」=d+z[3n-2+r]-qz[n+r]/l◢l13 r=n=>goto 6: ≠>r=r+1:
c=x: d=y:goto5l14 lbl 6:
」end」
2、說明（1）、本程式可計算附和導線和閉合導線的座標，計算的座標系經過角度閉合差及座標增量閉合差分配後的結果，能顯示角度閉合差、增量閉合差及導線全長的相對精度；（2）、輸入的觀測角為導線的左角。3、程式代號註釋n—導線觀測角的折角數；a、b—導線起始點所後視的已知點的座標x,y；c、d—導線起始點（即設站點）的座標x,y；e、f—導線終點（已知點）的座標x,y；g、h—在導線終點設站觀測前視已知點的座標x,y；t—起始站後視至起始點的方位角；m—終點站至前視已知點的方位角；j—觀測的左角值；jb—角度閉合差；jl—允許的角度閉合差，程式中是以40√n計算的，如和要求的不一致，可改一下l6語句中的有關部分。s—所測導線的邊長；l—邊長的累計數；u—△x的累計數；i—△y的累計數；p—x座標的閉合差；q—y座標的閉合差；k—轉換符，當k=0時為計算閉合導線，當k≠0（任意數）時為計算附和導線。
面積計算（多邊形法）
1、源程式f1 a2l1 n: p=a: q=b:
s=0:i=2l2lbl 0::f=(a+c)(b-d):
s=s+fl3 a=c:b=d:i=i+1l4 i≦n=>goto0⊿l5 f=(c+p)(d-q):
s=s+f:s」w」=s/2◢
1、說明：（1）、本程式適用於所測斷面為多邊形閉合圖形的面積計算。（2）、折點座標按順時針方向輸入，得出的面積為正，否則為負，絕對值是一樣的。
2、程式代號註釋a、b—計算面積起始點縱橫座標；c、d—各轉折點的縱橫座標；s—代表計算過程中的有關面積；s「w」—為圖形最後需要的計算面積。n—多邊形的折點個數。
體積計算
1、源程式f1 a3l1 j=0:h=0:wgl2 lbl0::
nab: p=a: q=b:
s=0:i=1l3 lbl 1::s=s+(a+c)(b-d)/2:
a=c:b=d:i=i+1l4igoto 1⊿s=s+(c+p)(d+q)/2◢l5 j≠1=>goto 2:
≠>l=g-h:v=(r+s+√（r*s))*l/3◢⊿w=w+v◢l6lbl 2:r=s:
h=g:j=1::g:
goto 0
2、說明（1）、程式可自動計算每一斷面面積，當進行到第二個斷面時就會顯示出1~2斷面間的體積，而後再進行第三斷面面積計算，並累計出1~3斷面之間的體積。。。。。。，直到最後得出需算斷面間的總體積。（2）、座標輸入時，應按順時針方向逐個輸入折點座標，這樣得出的面積為正值，一個樁號折點輸入完後，程式自動進入下一樁號的輸入狀態。
3、程式代號註釋g—斷面樁號；a、b—斷面起算折點的座標；c、d—斷面上其他折點座標；s—斷面面積；l—斷面間距；v—本斷面與前一斷面之間計算出的體積。n—g樁號斷面上的折點個數；w—本斷面之前所有體積之和。
在任意控制點上測定直線上的任意位置與高程資料計算
1、源程式f1 a4l1 a」x」:b」y」:e」z0」:
c」x1」: d」y1」:f」z1」:
g」h0」:il2 lbl 0:: ljvl3 k=tanf:
t=tan(e+l)l4 x」xp」=(b-d-at+kc)/(k-t)◢y」yp」=b+tx-at◢l5 s=√（（x-a）2+（y-b）2）l6h=g+stanj+i-v◢goto 0
2、說明（1）、本程式功能：在已知斷面上某一點的座標及斷面方向的方位角後，可直接將儀器架設在鄰近控制點上，為測設各個斷面上的點提供資料，不需要一定要將儀器架設在斷面樁上測設斷面，而所測的斷面點均有座標和高程。（2）、基本原理：
如圖所示，a、b為已知控制點，其方位角為z0，斷1-斷2為斷面線控制樁，其方位角z1可以算出，儀器架設在a點，後視b點，轉角l1、l2、l3。。。。。。，這時a~1、a~2，。。。。。。的方位角也為已知，根據解析幾何，兩方位直線相交，可解出1#，2#。。。。。。
的座標及其與a的距離。
3、程式代號註釋a、b—測站點座標c、d—斷面樁點座標l—觀測斷面點的水平角j—觀測斷面點的豎直角v—覘標高s—測站至斷面測點的距離h—斷面測點的高程i—儀器高z0—測站至後視點的方位角z1—斷面線的方位角
豎曲線計算
1、源程式f1 a5l1 badtrzl2 lbl 0::cl3z≧1=>h=a+(b-a)/t*(c-d)-(c-d)2/(2r) ◢≠>h=a+(b-a)/t*(c-d)+ (c-d)2/(2r) ◢l4 goto0
2、說明（1）、本程式的功能是根據道路施工縱斷面圖上的設計資料，算出豎曲線上各加樁點的高程；（2）、本程式適用於由小樁號向大樁號端方向計算，在鍵入全部已知資料後，當c出現時，只要鍵入該點的樁號，高程立即會顯示出來。
3、程式代號註釋a—起點（或終點）高程c—需計算點的樁號t—豎曲線切線長d—起點（或終點）高程r—豎曲線半徑h—c樁號處的高程b—切線交點的高程z—曲線凹凸判斷符z≧1時為凸曲線，z<0時為凹曲線。
兩點測角前方交會座標計算
1、源程式f1 a6l1 abcdefl2 x「xp」=（a/tanf+c/tane-b+d）/(1/tane+1/tanf)◢l3 y「yp」=（b/tanf+d/tane-c+a）/(1/tane+1/tanf)◢
說明：e—1#點的觀測角f—2#點的觀測角1#、2#點的編號時應注意：面向交會點p的左側定為1#點，右側定為2#點。
住房按揭貸款計算器，房貸計算器如何計算的
若是等額本息方式還款,2010年11月開始還330000元分240個月 20年 的商業貸款,那麼要還到2030年10月 按照國家基準利率調整及浮動和你提供的以下情況計算,在這240個月內支出的貸款總利息為202992.73元 2010年11月起,按照年利率6.14 打7.5折,還到2010年12月,...
如何擷取windows系統自帶計算器程式的介面圖
win r calc 或開啟附件 計算器 確保計算器程式處於活動 按下alt print screen sysrq 兩個鍵，然後開啟畫圖 mspaint 或其他圖形程式，新建 貼上即可擷取windows系統自帶的計算器程式的介面 電腦中怎麼快速調出自帶計算器？一 首先，開啟 windows10系統 ...
住房貸款計算器，房貸計算器如何計算的
按新的條例，你這個已經算二套房了。我們這裡的首付比例是60 各個地方解釋不一樣，主要看當地。你要多看當地報紙，如果有新的政策他們會及時公佈。但也要看中介公司的誠信。比如我們這裡是5號公佈的，但檔案規定的是從1號開始的網籤都不算。我這裡中介就是壞，現在手續辦不下去，錢也不好退，上了當。你千萬別像我這樣...