%<実験サンプル> %omega edge xoffst yoffst 0.15 200.0 50.0 0.0 "Ex. 6" "Rigid rotation" 剛体回転 0.15 50.0 50.0 0.0 "Ex. 7" "Rankine vortex" ランキン渦 %<メモ> %omega: 剛体回転の角速度 %edge: 剛体回転域の半径 %xoffst: 流体塊(正方形)の初期位置 x 座標 %yoffst: 流体塊(正方形)の初期位置 y 座標 %ランキン渦: % if(r .le. redge) then % vtan = r*omega % else % vtan = redge**2 *omega/r % end if