casio-fx3600施工放样程序！

myfreemind 发表于 2004-3-28 13:26:00

1。算坐标原程序

1 2 3 4 (0,0) D @ 1 3 4 x=0+Dcos@ 2 3 4 y=0+Dsin@

 2。计算距离和方位原程序 1 2 3 4 (1,1) (0,0)

(1-3)shift(2-4)= shift+RUN shift

3。通过半径R，I角计算切线长(T)和外矢距(E)

INPUT:R,I OUTPUT:T,E

1 2 假设R=1,I=90度 R I

1 2 T=R*Tg(I/2) 1 2 E=R{SEC(I/2)-1} because <A href="mailto:SEC@=1/COS" target="_blank" >SEC@=1/COS</A>@ 1 2 SO E=R*{1/COS(I/2)-1}

 4。通过半径R和切线长T计算I角 1 2 INPUT:R,T OUTPUT:I

I=2arctg(T/R)

yfy2003 发表于 2004-3-28 13:35:00

我来添加Casio Fx-4800P的程序

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p>
 坐标反算：<o:p></o:p>

程序步骤：<o:p></o:p>

C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C,F-D:I”S1-2=”◢

J≤O=>J=J+360△J”A1-2=”

操作过程：<o:p></o:p>

ZBFS→EXE→输入X1值→EXE→输入Y1值→EXE→输入X2值→EXE→Y2→EXE→EXE→EXE

S1-2：计算得出的距离；<o:p></o:p>

A1-2：计算得出的角度。（按shift°′″ 转换为60进制的角度）<o:p></o:p>

注：此程序可循环计算

 坐标正算：<o:p></o:p>

程序步骤：<o:p></o:p>

C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R◢

Y” Y2”=D+J

操作过程：<o:p></o:p>

ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离→EXE→输入A1-2角度（例125°31′23.25″）→EXE→EXE

注：此程序可循环计算。<o:p></o:p>

</o:p>

myfreemind 发表于 2004-3-28 13:40:00

Y兄，你的设备先进啊，呵呵

我的3600步数太少，很多好的程序都没法写，现在就期待单位更新换代啦~~

yfy2003 发表于 2004-3-28 13:42:00

<A name=8042>myfreemind</A>：快换设备啊！

 缓和曲线曲线要素：<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

程序步骤：<o:p></o:p>

B=0°1718.87′﹡L/R◢

X=L-L＾3/40/ R2◢

Y=L2/6/ R◢

P=Y-R(1-cos B◢

Q= X-Rsin B◢

T=(R+P)tan(A/2)+Q◢

E=(R+P)(cos(A/2))-1-R◢

Z= R(A-2B)л/180+2L◢

J=2T-Z◢

D=X-Y/tan B

操作过程：<o:p></o:p>

HQQXYS→EXE→输入L值（即缓和曲线总长）→EXE→输入R值（即圆曲线半径）→EXE→得β角度→EXE→得Xh值→EXE→得Yh值→EXE→得P值→EXE→得Q值→EXE→输入A角（例125°31′23.25″）→EXE→得T值→EXE→得E值→EXE→得Z值→EXE→得J值→EXE→得D值

注：此程序可循环计算。

yfy2003 发表于 2004-3-28 13:43:00

圆曲线加点坐标：<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

程序步骤：<o:p></o:p>

A=(D-Z)*90/R/л◢

C=2* R*sin A◢

I=B+ A◢

X=C*cos I+S◢

Y=C*sin I+V

操作过程：<o:p></o:p>

YQXJDZB→EXE→输入D值（即圆曲线段内任一点桩号）→EXE→输入Z值（即ZY点桩号）→EXE→输入R值（即圆曲线半径）→EXE→得出A值（即圆曲线任一点桩号至ZY点的偏角值）→EXE→得出C值（即圆曲线任一点桩号至ZY点的弦长）→EXE→输入B值（即ZY到交点的方位角）→EXE→得出I值（即B值+A值的和）→EXE→输入S值（即圆曲线ZY点X1坐标）→EXE→得出X值（即圆曲线段任一点桩号的X坐标）→EXE→输入V值（即圆曲线ZY点Y1坐标）→EXE→得出Y值（即圆曲线段任一点桩号的Y坐标）

注：此程序可循环计算。

myfreemind 发表于 2004-3-28 13:45:00

Y兄，我主要是想单位以后外业都用PDA，装VB程序！：）

yfy2003 发表于 2004-3-28 13:54:00

缓和曲线支距法：<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

程序步骤：<o:p></o:p>

X=L-L＾5/40/R2/Z2◢

Y= L＾3/6/R/Z

操作过程：<o:p></o:p>

HQZJF→EXE→输入L值（即缓和曲线段内任一点桩号到ZH点的距离）→EXE→输入R值（即圆曲线半径）→EXE→输入Z值（即缓和曲线总长）→EXE→得Xh值→EXE→得Yh值



 缓和曲线偏角法：<o:p></o:p>

程序步骤：<o:p></o:p>

A=0°572.9578′﹡L2/R/Z

操作过程：<o:p></o:p>

HQPJF→EXE→输入L值（即缓和曲线段内任一点桩号到ZH点的距离）→EXE→输入R值（即圆曲线半径）→EXE→输入Z值（即缓和曲线总长）→EXE→求得A值（即是偏角值）按shift°′″转换为60进制的数值。<o:p></o:p>

yfy2003 发表于 2004-3-28 13:57:00

圆曲线曲线要素：<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

程序步骤：<o:p></o:p>

L=R﹡A﹡л/180◢

T=R﹡tan(A/2◢

E=R((cos(A/2))-1-1

操作过程：<o:p></o:p>

YQXQXYS→EXE→输入R值（即圆曲线半径）→EXE→输入A值（即圆曲线A角，例125°31′23.25″）→EXE→求得L值→EXE→求得T值→EXE→求得E值



 圆曲线偏角法：<o:p></o:p>

程序步骤：<o:p></o:p>

A=(D-X)﹡90/R/л

操作过程：<o:p></o:p>

YQXPJF→EXE→输入D值（即圆曲线段任一点桩号）→EXE→输入X值（即ZY点桩号）→EXE→输入R值（即圆曲线半径）→EXE→求得A角（即圆曲线段任一点桩号的偏角，按shift°′″转换为60进制的角度。

yfy2003 发表于 2004-3-28 13:57:00

myfreemind 发表于 2004-3-28 14:52:00

好帖啊，顶！！

页: [1] 2

明经CAD社区's Archiver

casio-fx3600施工放样程序！