gs文件编程出错

阅读模式 · 发表于 2015-9-16 11:17:42

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

下面是我的gs文件：
'reinit'
pathr='f:\'
paths='f:\'
pathw='f:\'
y=1979
while (y<=2014)
say y
'sdfopen 'pathr'air.'y'.nc'
'sdfopen 'paths'rhum.'y'.nc'
'set fwrite 'pathw'shum.'y'.grd'
j=1
while (j<=365)
say j
'set x 1 144'
'set y 1 73'
'set t 'j''
k=1
while (k<=17)
say k
'set z 'k''
while (k=1)
'define p=100000'
endwhile
'define e=exp(17.67*(air.1-273.15)/(air.1-29.65))*(rhum.2/100)*6.112'
'define q=622*e/(p-0.378*e)'
'set gxout fwrite'
'd q'
k=k+1
endwhile
j=j+1
endwhile
'disable fwrite'
'close 1'
'close 2'
y=y+1
endwhile
'reinit'
;
其中不知有什么错误，程序运行到
while (k=1)
'define p=100000'
endwhile
这一步就会停止，而且不会出现其他提示，不知怎么回事。请求各位给指正一下错误，多谢各位！