[原创]：CASIO FX4500/4800P程序-两线平移交点

netbee

[php]
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◢
2．平移边线
设有两条直线L1、L2，已知直线上点P1、P2、P3、P4，求交点IntP,及分别向左或向右偏移后的直线交点P。
其中P1、P2、P3、P4的输入顺序不能乱，即以前进方向为准，左边偏移量为负，右边为正。
CASIO 4800P程序：
Filename：LLOFFSET
L1:Prog “L－AND－L”
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) ◢
[/php]
这在道路，工程放样中经常用到的