fortran log的表示问题 运行错误 意思是说 没有alog这个数组 fortran里不是自定义了这个函数?real::tw(0:n) 湿球温度估算值序列real::etireal::etw 饱和水汽压real,parameter::a=8.15*10**(-4)real::ej(0:n) 水汽压的
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 02:45:08
![fortran log的表示问题 运行错误 意思是说 没有alog这个数组 fortran里不是自定义了这个函数?real::tw(0:n) 湿球温度估算值序列real::etireal::etw 饱和水汽压real,parameter::a=8.15*10**(-4)real::ej(0:n) 水汽压的](/uploads/image/z/12503439-63-9.jpg?t=fortran+log%E7%9A%84%E8%A1%A8%E7%A4%BA%E9%97%AE%E9%A2%98+%E8%BF%90%E8%A1%8C%E9%94%99%E8%AF%AF+%E6%84%8F%E6%80%9D%E6%98%AF%E8%AF%B4+%E6%B2%A1%E6%9C%89alog%E8%BF%99%E4%B8%AA%E6%95%B0%E7%BB%84+fortran%E9%87%8C%E4%B8%8D%E6%98%AF%E8%87%AA%E5%AE%9A%E4%B9%89%E4%BA%86%E8%BF%99%E4%B8%AA%E5%87%BD%E6%95%B0%3Freal%3A%3Atw%280%3An%29+%E6%B9%BF%E7%90%83%E6%B8%A9%E5%BA%A6%E4%BC%B0%E7%AE%97%E5%80%BC%E5%BA%8F%E5%88%97real%3A%3Aetireal%3A%3Aetw+%E9%A5%B1%E5%92%8C%E6%B0%B4%E6%B1%BD%E5%8E%8Breal%2Cparameter%3A%3Aa%3D8.15%2A10%2A%2A%28-4%29real%3A%3Aej%280%3An%29+%E6%B0%B4%E6%B1%BD%E5%8E%8B%E7%9A%84)
fortran log的表示问题 运行错误 意思是说 没有alog这个数组 fortran里不是自定义了这个函数?real::tw(0:n) 湿球温度估算值序列real::etireal::etw 饱和水汽压real,parameter::a=8.15*10**(-4)real::ej(0:n) 水汽压的
fortran log的表示问题 运行错误 意思是说 没有alog这个数组 fortran里不是自定义了这个函数?
real::tw(0:n) 湿球温度估算值序列
real::eti
real::etw 饱和水汽压
real,parameter::a=8.15*10**(-4)
real::ej(0:n) 水汽压的计算值
real::err(0:n) 计算误差
real::ermin 计算误差的最小值
real::twmin 合理的湿球温度
do while(.true.)
输入变量
write(*,*)"相对湿度为"
read(*,*)u
write(*,*)"干球温度为"
ead(*,*)t
write(*,*)"本站气压为"
read(*,*)p
计算水汽压 t0=273.15+t
if(t>0)then
alog10(eti)=10.79574*(1-t1/t0)-5.02800*alog10(t0/t1)+1.50475*10**(-4)*(1-10**((-8.2969*(t0/t1-1))))+0.42873*10**(-3)*(10**(4.76955*(1-t1/t0))-1)+0.78614
else
alog10(eti)=-9.09685)*(t1/t0-1)-3.56654*alog10(t1/t0)+0.87682*(1-t0/t1)+0.78614
end if
e=eti*u
算出误差序列
tw(0)=t-15
do i=0,n
if(tw(i)>0)then
alog10(etw)=10.79574*(1-t1/t0)-5.02800*alog10(t0/t1)+1.50475*10**(-4)*(1-10**((-8.2969*(t0/t1-1))))+0.42873*10**(-3)*(10**(4.76955*(1-t1/t0))-1)+0.78614
else
alog10(etw)=-9.09685)*(t1/t0-1)-3.56654*alog10(t1/t0)+0.87682*(1-t0/t1)+0.78614
end if
ej(i)=etw-a*p*(t-tw(i)) 算出水汽压的计算值
err(i)=abs(e-ej(i))
if(i==n) exit
tw(i+1)=tw(i)+0.01
end do
算出最合适的湿球温度
errmin=err(0)
do i=1,n
if(err(i)
fortran log的表示问题 运行错误 意思是说 没有alog这个数组 fortran里不是自定义了这个函数?real::tw(0:n) 湿球温度估算值序列real::etireal::etw 饱和水汽压real,parameter::a=8.15*10**(-4)real::ej(0:n) 水汽压的
alog10(eti)=10.79574*(1-t1/t0)-5.02800*alog10(t0/t1)+1.50475*10**(-4)*(1-10**((-8.2969*(t0/t1-1))))+0.42873*10**(-3)*(10**(4.76955*(1-t1/t0))-1)+0.78614
这句你想做什么?
等号左边是alog10(eti) 是一个函数返回值.
等号右边是一个表达式.
你不能让一个函数返回值等于一个表达式.这从逻辑上就是说不通的.
你是想解方程么?