1樓:匿名使用者
4800公路測量放樣計算程式
casio fx-4800p計算器程式
da di——n e (公路彎道座標計算)
k「jd」:r:s「ls」:f「pj——l-r+」:a「zh——n」:b「zh——e」:c「jd——n」:d「jd——e」
m「zh」=k-(r+s2÷(24r))tan(abs f÷2)-s÷2+s^3÷(240r2)▲
n「hy」=m+s▲
o「qz」=m+(πrabs f÷180+s)÷2▲
z[1]「yh」=m+πrabs f÷180▲
q「hz」= z[1]+s▲
t=k-m▲
l=q-m▲
e=(r+s2÷(24r))÷cos(f÷2)-r▲
lb1 0::g「zhuang hao」:g<o==>z=g-m≠=>z=q-g:△
:u「i——b out+in-」
z<s+0.005==>h=tan-1(24z2s2r2-z^6)÷(48z^3r^3-6z^4sr)):v=z-z^5÷(40s2r2)+usin h:
w=z^3÷(6sr)-z ^7÷(336z^3r^3)-ucos h:≠=>h=180(z-s÷2)÷(πr):v=rsin h+s÷2-s^3÷(240r2)+usin h:
w=r-rcos h+ s2÷(24r)-ucos h:△
f<0==>g<o==>x=v:y=w:≠=>x=t+tcos f-vcos f-wsin abs f:
y=tsin abs f-vsin abs f+wcos f:△≠=>g<o==>x=v:y=-w:
≠=>x=t+tcos f-vcos f-wsin abs f:y=vsin abs f-tsin abs f-wcos f:△△
c=a==>d≥b==>p=90:≠=>p=270:△≠=>c<a==>p= tan-1((d-b)÷(c-a))+180:
≠=>p= tan-1((d-b)÷(c-a)):△△
i「com——n」=a+√(x2+y2)cos(p-tan-1(y÷x))▲
j「com——e」=b+√(x2+y2)sin(p-tan-1(y÷x))▲
g=g+20
goto 0
程式執行
輸入:jd? ——交點樁號
r? ——圓曲線半徑
ls? ——緩和曲線長度
pj——l-r+? ——偏角 右偏為正
zh——n? ——zh點n座標
zh——e? ——zh點e座標
jd——n? ——jd點n座標
jd——e? ——jd點e座標
輸出:zh= ——zh點樁號
hy= ——hy點樁號
qz= ——qz點樁號
yh= ——yh點樁號
hz= ——hz點樁號
t= ——切線長
l= ——曲線長
e= ——外矢距
再輸入:zhuang hao? ——輸入任一點樁號
i——b out+in-? ——距中線距離(外側為正)
再輸出:com——n= ——計算出n座標
com——e= ——計算出e座標
以此迴圈——再輸入——再輸出
程式中各字母所代表的含義:
a——zh點n座標
b——zh點e座標
c——jd點n座標
d——jd點e座標
e——外矢距
f——偏角(右偏為正)
g——彎道內任一點樁號
h——彎道內任一點切線角
i——計算出的n座標
j——計算出的e座標
k——交點樁號
l——曲線長
m——zh點樁號
n——hy點樁號
o——qz點樁號
p——zh--jd方位角
q——hz點樁號
r——圓曲線半徑
s——緩和曲線長度
t——切線長
u——距中線距離(外側為正)
v——支距
w——支距
x——彎道內座標
y——彎道內座標
z——任一點曲線長度
z[1]——yh點樁號
另個程式
公路逐樁座標計算程式
(可以計算對稱、不對稱緩和曲線)
lb1 0
z=?v=?w=v+2:fixm
{k}lb1 1
k>z[w+5z+4]=>w=w+1:goto 1⊿ (判斷樁號在哪個交點範圍,就是該交點曲線起點至下一交點曲線起點)
s=k-z[w+5z+3] (計算該樁號與曲線起點的距離)
r=z[w+2z+2]:l=z[w+3z+2]:e=z[w+4z+2] (讀取該交點曲線要素r、ls1 、ls2)
pol(z[w]-z[w-1],z[w+z+2]-z[w+z+1]) (計算該交點與下一交點直線方位角)
j<0=>j=j+360⊿
a=jpol(z[w-1]-z[w-2],z[w+z+1]-z[w+z]) (計算該交點與上一交點直線方位角)
j<0=>j=j+360⊿
c=a-j:a=j (計算偏角)
w=v+2=>goto2⊿ (如果樁號在起點與第一交點曲線起點之間,則轉 lb1 2 )
i=abs(tan(c÷2))
m=l÷2-l^3÷240r^2:n=e÷2-e^3÷240r^2
p=l^2÷6r-l^4÷336r^3-r(1-cos(90l÷πr))
q=e^2÷6r-e^4÷336r^3-r(1-cos(90e÷πr))
d=(p-q)i÷2 : f=(p+q+2r)i÷2
m=f+m-d:q=f+n+d
n=πrabsc÷180+(l+e)÷2
x=z[w-1]-mcosa
y=z[w+z+1]-msina
m=z[w-1]+qcos(a+c)
v=z[w+z+1]+qsin(a+c)
q=absc÷c
s≤l=>p=0:goto3⊿ (如果樁號在第一緩和曲線內,則轉 lb1 3)
s≤n-e=>s=s-l:goto4⊿(如果樁號在圓曲線內,則轉 lb1 4)
s≤n=>s=n-s
q=-q:a=a+c-180:x=m:y=v:l=e:p=180:goto3 ⊿ (如果樁號在第二緩和曲線內,則轉 lb1 3)
p=a+c:s=s-n:d=m+scosp:f=v+ssinp
goto6 (如果樁號在直線內,則轉 lb1 6)
lb1 2
p=a+c
d=z[w-1]+scosp
f=z[w+z+1]+ssinp:goto6
lb1 3
i=s-s^5÷40r^2÷l^2+s^9÷3456r^4÷l^4
j=q(s^3÷6rl-s^7÷336r^3÷l^3)
p=p+a+90qs^2÷πrl:goto5
lb1 4
m=90(2s+l)÷πr
i=rsinm+l÷2-l^3÷240r^2
j=q(l^2÷24r+r(1-cosm))
p=a+qm
lb1 5
d=x+icosa-jsina:f=y+jcosa+isina
lb1 6
d〃x=〃◢ (結果顯示x座標)
f〃y=〃◢ (結果顯示y座標)
p〃at=〃◢ (結果顯示該樁號方位角)
:b〃s〃o〃⊿〃 (輸入邊樁距離,交角)
p=p+o
l〃xb〃=d+bcosp◢ (結果顯示邊樁x座標)
m〃yb〃=f+bsinp◢ (結果顯示邊樁y座標)
以上是座標計算程式,括號內是程式計算的大致原理及說明,中間部分為直線、圓曲線、緩和曲線計算的各種公式,大家也知道,書上也有。
該程式是最基本的,如再加幾條語句就可以處理斷鏈。
該程式還需變數輸入,把整條線路曲線要素一次輸入到4800中,就可以計算線路任意中、邊樁座標。
2樓:匿名使用者
349023404
我給你座標,直接在cad中生成
因為這裡有字數限制,沒辦法把座標都貼上過來。
你找我吧,那天我在外地,沒法回答
如何在CAD中快速圖層,如何在CAD中快速新建圖層?
1 執行cad編輯器,在 格式 選單可以找到 管理圖層 圖 層狀態管理器版 圖層權工具 等圖層功能,選擇 管理圖層 可以對圖層進行編輯。2 在命令列輸入la,按回車鍵,同樣可以編輯圖層。3 呼叫圖層編輯視窗後,點 擊左上角的 新增項次 即 可新增 新建圖層。4 新建圖層後,可以給圖層設定名稱,並對圖...
CAD中如何直接繪製矩形倒角圓角
cad並沒有ps的圓角矩形功能,所以只有先繪製完矩形以後才能進行倒圓角。一 到圓角的基本操作 1 我們可以繪製任意的圖形來進行下面的練習,但必須事先知道圖形的尺寸,以便可以設定合理的圓角半徑。繪製一個尺寸為200x150的矩形,如下圖所示。2 輸入f,按空格鍵或回車 後面都簡寫為回車 執行圓角命令,...
如何在cad中給圓內填充顏色,如何在CAD中給圓內填充顏色
選擇填充剖面線。線型選擇solid。最後給剖面線上色 快捷鍵 h 填充,選擇填充邊界 cad中將一個圓填充顏色怎麼弄的?1 點圖案填充,選擇漸變色。2 點拾取點,選擇圓內部一點,確定填充邊界,選擇完畢回車 空格 3 設定需要的顏色,點顏色後面的方塊按鈕,可以更換顏色,並且調節顏色的深淺,設定好點確定...