谢谢你,它几乎是完美的。现在它尝试关闭我的 2 个表面。
所以我们需要连接曲线的边缘来得到一个实体。为此,我使用 stats :
然后是最终代码:
### rotation of a curve
reset session
set print $interface
stats 'interface.txt' nooutput
print sprintf("%g %g", STATS_max_y, STATS_pos_max_y)
print sprintf("%g %g", STATS_max_y, -STATS_pos_max_y)
set angle degrees
set table $Rotation
array A[1] # dummy array for plotting a single empty line
do for [i=0:360:10] {
plot "interface.txt" u ($2*cos(i)):($2*sin(i)):1 w table
plot "interface.txt" u ($2*cos(i)):($2*sin(i)):(-$1) w table
plot $interface u ($1*cos(i)):($1*sin(i)):2 w table
plot A u ("") w table
}
unset table
unset key
set border
set style fill solid 1.00 border -1
set view 62, 8, 1.245, 1.0
set ticslevel 0
set pm3d depthorder interpolate 4,4 lighting specular 0.6 at s
# set view equal xyz # uncomment to have equal x,y,z scales
splot $Rotation u 1:2:3 w pm3d lt -2 notitle
### end of code