Question

学过fortran的请进 Fortran 这是几个fortran的表达式请翻译成数学公式

UELEG(I,J)=(y*y-1.)**2*x*x*ex
DUE1 (I,J)=(y*y-1.)**2*(2.*x-x*x)*ex
---------------------------
akp=ak1
akpy=ak2*pi
skpx2=dsin(akp*x)*dsin(akp*x)*ex
skpy2=dsin(akpy*y)*dsin(akpy*y)

Answer 1

UELEG(I,J)=(y*y-1.0)^2 * x * x * ex
DUE1 (I,J)=(y*y-1.0)*^2 * (2.0*x - x*x) * ex
---------------------------
akp=ak1
akpy=ak2*pi(即圆周率)
skpx2=sin(akp*x)*sin(akp*x)*ex
skpy2=sin(akpy*y)*sin(akpy*y)
所谓的dsin意思是参数是double类型，即双精度实数类型的。