aml 做的 scs曲线计算径流模型

/*accept the arguments
&s oddem05 = [response 'Enter your dem' oddem05]
&s odlu05 = [response 'enter your lu' odlu05]
&s FC = [response '田间持水量状态下的土壤含水量' 0.25]
&S SAT = [response '饱和状态下的土壤含水量' 0.25]
&s SW = [response '降雨前土壤含水量' 0.2]
&s Rday = [response '日降雨量(mm)' 200]
/*define the internal var
&s slp = slp
&s cn2 = cn2
&s cn3 = cn3
&s cn2s = cn2s
&s cn3s = cn3s
&s cn1s = cn1s
&s smax = smax
&s smin = smin
&s w2 = w2
&s w1 = w1
&s s = s
/*define the result val
&s Qsurf = Qsurf
/* the process of the computing
%slp% = slope(oddem05, percentrise)
items %odlu05%.vat
list %odlu05%.vat
if(%odlu05% == 1)
%cn2% = 83
else if(%odlu05% == 2)
%cn2