外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
パワーシェルで２点間の勾配を計算する(ptslope)
:パワーシェルで２点間の勾配を計算する(ptslope)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
more +%%n %0 | powershell -command -
)
goto:eof
REM #jww
REM #1-%d 始点を指示してください
REM #2%d 終点を指示してください
REM #e
#!ここから more +n %0 の n 行目:最初の行は 0 行
function ptslope ($p1,$p2) #線の角度を返す
{
$x1,$y1,$x2,$y2 = ($p1 + $p2 | foreach { [double] $_ })
[math]::atan2($y2-$y1,$x2-$x1)
}
$hp = @(); foreach ($i in 0..2) { $hp += 0 }
(gc jwc_temp.txt) | foreach {
switch -regex -case ($_)
{
'^hp([12])-?\s+(\S+)\s+(\S+)' { $hp[$matches[1]]=$matches[2,3] }
}
}
&{
"h#２点間の勾配∠ = $([math]::round(((ptslope $hp[1] $hp[2])*180/[math]::pi), 3))ﾟ"
} | sc jwc_temp.txt
#ここまで powershell は 文末に必ず空白行を置いてください
