- 积分
- 438
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-4-5
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
t=1
while(t<=168)
'clear'
'set t 't
'q time'
m_time=subwrd(result,3)
'set grads off'
'set grid off'
'set gxout shaded'
'set ccols 1 2 3 11 0'
'set clevs -60 -50 -32 -20'
*'set cmax -10'
'd tbb+100-273.15'
*'cbarn'
'set gxout contour'
'set cstyle 1'
'set clevs -60 -50 -32 -20 -10'
'd tbb+100-273'
*第一次
'q w2xy 123.60 32.99'
x1=subwrd(result,3)
y1=subwrd(result,6)
'q w2xy 119.86 45.00'
x2=subwrd(result,3)
y2=subwrd(result,6)
'set line 1 1 10'
*'draw line 'x1' 'y1' 'x2' 'y2''
*第二次
'q w2xy 126.97 31.99'
x3=subwrd(result,3)
y3=subwrd(result,6)
'q w2xy 122.95 45.00'
x4=subwrd(result,3)
y4=subwrd(result,6)
'set line 1 1 10'
'draw line 'x3' 'y3' 'x4' 'y4''
'set mpdset hires'
'set mpdset cnworld cnriver'
'set map 1 1 6'
'draw map'
'enable print d:\zkx\tbb.gmf'
'draw title TBB,'m_time
'print'
t=t+1
endwhile
'disable print'
|
|