casio-fx3600施工放样程序！

myfreemind

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[R_P](2-4)=
shift+RUN
shift[X_Y] 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 SEC@=1/COS@
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

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

坐标反算：

程序步骤：

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=”

操作过程：

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

S1-2：计算得出的距离；

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

注：此程序可循环计算

坐标正算：

程序步骤：

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

Y” Y2”=D+J

操作过程：

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

注：此程序可循环计算。

myfreemind

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


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

yfy2003

myfreemind：快换设备啊！

缓和曲线曲线要素：

程序步骤：

B=0°1718.87′﹡L/R◢

X=L-L＾3/40/ R²◢

Y=L²/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

操作过程：

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

圆曲线加点坐标：

程序步骤：

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

C=2* R*sin A◢

I=B+ A◢

X=C*cos I+S◢

Y=C*sin I+V

操作过程：

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

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

yfy2003

缓和曲线支距法：

程序步骤：

X=L-L＾5/40/R²/Z²◢

Y= L＾3/6/R/Z

操作过程：

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

缓和曲线偏角法：

程序步骤：

A=0°572.9578′﹡L²/R/Z

操作过程：

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

yfy2003

圆曲线曲线要素：

程序步骤：

L=R﹡A﹡л/180◢

T=R﹡tan(A/2◢

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

操作过程：

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

圆曲线偏角法：

程序步骤：

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

操作过程：

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

yfy2003

竖曲线主点要素：

程序步骤：

L=R*(A-B)◢

T=1›2*L◢

E=L²/8R

操作过程：

SQXZDYS→EXE→输入R值（即竖曲线半径）→EXE→输入A值→EXE→输入B值→EXE→得出L值（即弧度）→EXE→得T值（即切线长）→EXE→得E值（即外距）

myfreemind

好帖啊，顶！！