外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
perlで２点間の距離を計算する(ptdist)
:perlで２点間の距離を計算する(ptdist)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof
REM #jww
REM #1-%d 始点を指示してください
REM #2%d 終点を指示してください
REM #e
#!perl -an -i.bak
if (/^hp1/) { ($x1, $y1) = @F[1,2]; }
if (/^hp2/) { ($x2, $y2) = @F[1,2];
printf "h#２点間の距離 L = %.03f\n", sqrt(($x2 - $x1) ** 2 + ($y2 - $y1) ** 2);
}
__END__
