casiofx4800P程序-两线平移交点

NetBee

1．两直线交点

设有两直线L1、L2，直线上的坐标分别为P1、P2、P3、P4。交点坐标为INTP，则：

CASIO 4800P程序：

Filename：L－AND－L

L1:O”L1X1”P”L1Y1”Q”L1X2”R”L1Y2”U”L2X1”V”L2Y1”W”L2X2”Z”L2Y2”

L2:I=(R-P)/(Q-O)

L3: J=(Z-V)/(W-U)

L4:X”INTX”=(V-P+IO-JU)/(I-J) ◢

L5:Y”INTY”=I(X-O)+P◢

NetBee

2．平移边线

设有两条直线L1、L2，已知直线上点P1、P2、P3、P4，求交点IntP,及分别向左或向右偏移后的直线交点P。

其中P1、P2、P3、P4的输入顺序不能乱，即以前进方向为准，左边偏移量为负，右边为正。

CASIO 4800P程序：

Filename：LLOFFSET

L1:Prog “L－AND－L” ――――――★此句fx4500p中不要引号。

L2:E”OFFSET1 L-R+”F”OFFSET2 L-R+”

L3: Fixm ――――――★此句Fx4800P专用，fx4500p不用输入。

L4:Pol((Q-O),(R-P)

L5:J<0=>J=J+360◣G=J ――――――★fx4500p将J改为W输入。

L6:Pol((W-U),(Z-V))

L7:J<0=>J=J+360◣ H=J ――――――★fx4500p将J改为W输入

L8:K=H-G : K<-180=>K=K+360◣

L9:K>180=>K=K-360◣

L10:M=F/sinK : N=E/sinK

L11:X”PX”=X+NcosH+Mcos(G+180) ◢ L12:Y”PY”=Y+NsinH+Msin(G+180) ◢

NetBee

NetBee

由于在施工放样中经常用到，从这条线向左偏多少米，再从那条线向左偏多少米之类的问题，所以就编了这个程序。

chb81

xue         xi         zhong....

xtaije

有交会的程序吗？朋友。谢谢