NetBee 发表于 2005-1-14 16:28:00

casiofx4800P程序-两线平移交点

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">1</FONT>．两直线交点<FONT face="Times New Roman"> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">设有两直线<FONT face="Times New Roman">L1</FONT>、<FONT face="Times New Roman">L2</FONT>，直线上的坐标分别为<FONT face="Times New Roman">P1</FONT>、<FONT face="Times New Roman">P2</FONT>、<FONT face="Times New Roman">P3</FONT>、<FONT face="Times New Roman">P4</FONT>。交点坐标为<FONT face="Times New Roman">INTP</FONT>，则：<FONT face="Times New Roman"> <o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">CASIO 4800P</FONT>程序：<FONT face="Times New Roman"> <o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">Filename</FONT>：<FONT face="Times New Roman">L</FONT>－<FONT face="Times New Roman">AND</FONT>－<FONT face="Times New Roman">L <o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L1:O”L1X<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="1" UnitName="”">1”</st1:chmetcnv>P”L1Y<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="1" UnitName="”">1”</st1:chmetcnv>Q”L1X<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="2" UnitName="”">2”</st1:chmetcnv>R”L1Y<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="2" UnitName="”">2”</st1:chmetcnv>U”L2X<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="1" UnitName="”">1”</st1:chmetcnv>V”L2Y<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="1" UnitName="”">1”</st1:chmetcnv>W”L2X<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="2" UnitName="”">2”</st1:chmetcnv>Z”L2Y<st1:chmetcnv w:st="on" TCSC="0" NumberType="1" Negative="False" HasSpace="False" SourceValue="2" UnitName="”">2”</st1:chmetcnv> <o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L2:I=(R-P)/(Q-O) <o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L3: J=(Z-V)/(W-U) <o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L4:X</FONT>”<FONT face="Times New Roman">INTX</FONT>”<FONT face="Times New Roman">=(V-P+IO-JU)/(I-J) </FONT>◢<FONT face="Times New Roman"> <o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L5:Y</FONT>”<FONT face="Times New Roman">INTY</FONT>”<FONT face="Times New Roman">=I(X-O)+P</FONT>◢<FONT face="Times New Roman"> <o:p></o:p></FONT>

NetBee 发表于 2005-1-14 16:29:00

本帖最后由 作者 于 2005-2-18 22:50:16 编辑 <br /><br /> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">2</FONT>．平移边线<FONT face="Times New Roman"> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">设有两条直线<FONT face="Times New Roman">L1</FONT>、<FONT face="Times New Roman">L2</FONT>，已知直线上点<FONT face="Times New Roman">P1</FONT>、<FONT face="Times New Roman">P2</FONT>、<FONT face="Times New Roman">P3</FONT>、<FONT face="Times New Roman">P4</FONT>，求交点<FONT face="Times New Roman">IntP,</FONT>及分别向左或向右偏移后的直线交点<FONT face="Times New Roman">P</FONT>。<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">其中<FONT face="Times New Roman">P1</FONT>、<FONT face="Times New Roman">P2</FONT>、<FONT face="Times New Roman">P3</FONT>、<FONT face="Times New Roman">P4</FONT>的输入顺序不能乱，即以前进方向为准，左边偏移量为负，右边为正。<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">CASIO 4800P</FONT>程序：<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">Filename</FONT>：<FONT face="Times New Roman">LLOFFSET <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L1:Prog </FONT>“<FONT face="Times New Roman">L</FONT>－<FONT face="Times New Roman">AND</FONT>－<FONT face="Times New Roman">L</FONT>”<FONT face="Times New Roman"> ――――――★此句<FONT face="Times New Roman">fx4500p中不要引号</FONT>。<o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L2:E”OFFSET<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chmetcnv UnitName="l" SourceValue="1" HasSpace="True" Negative="False" NumberType="1" TCSC="0" w:st="on">1 L</st1:chmetcnv>-R+”F”OFFSET<st1:chmetcnv UnitName="l" SourceValue="2" HasSpace="True" Negative="False" NumberType="1" TCSC="0" w:st="on">2 L</st1:chmetcnv>-R+” <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L3: Fixm<SPAN style="mso-spacerun: yes">               </FONT></SPAN>――――――★此句<FONT face="Times New Roman">Fx4800P</FONT>专用，<FONT face="Times New Roman">fx4500p</FONT>不用输入。<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L4:Pol((Q-O),(R-P) <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L5:J&lt;0=&gt;J=J+360</FONT>◣<FONT face="Times New Roman">G=J </FONT>――――――★<FONT face="Times New Roman">fx4500p</FONT>将<FONT face="Times New Roman">J</FONT>改为<FONT face="Times New Roman">W</FONT>输入。<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L6:Pol((W-U),(Z-V)) <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L7:J&lt;0=&gt;J=J+360</FONT>◣<FONT face="Times New Roman"> H=J </FONT>――――――★<FONT face="Times New Roman">fx4500p</FONT>将<FONT face="Times New Roman">J</FONT>改为<FONT face="Times New Roman">W</FONT>输入<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L8:K=H-G : K&lt;-180=&gt;K=K+360</FONT>◣<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L9:K&gt;180=&gt;K=K-360</FONT>◣<FONT face="Times New Roman"> <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L10:M=F/sinK : N=E/sinK <o:p></o:p></FONT>



<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">L11:X</FONT>”<FONT face="Times New Roman">PX</FONT>”<FONT face="Times New Roman">=X+NcosH+Mcos(G+180) </FONT>◢<FONT face="Times New Roman"> <o:p></o:p></FONT>


L12:Y”PY”=Y+NsinH+Msin(G+180) ◢

NetBee 发表于 2005-1-14 16:30:00

NetBee 发表于 2005-1-14 16:34:00

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

chb81 发表于 2005-1-23 20:08:00

xue       xi       zhong....

xtaije 发表于 2005-3-23 22:04:00

有交会的程序吗？朋友。谢谢
页: [1]
查看完整版本: casiofx4800P程序-两线平移交点