四结点四边形等参元插值函数的计算

程序名称
　　　 shapef(s,t,xl,xsj,shp)――四结点四边形等参元插值函数的计算
　 功　能
　　　本程序用以计算四结点四边形等参元的Jacobi矩阵，Jacobi行列式的值及导数之间的变换。
　 使用说明
　　　 子程序语句 subroutine shapef(s,t,xl,xsj,shp)
　　　 参数说明
　　　　◎ s，t 实变量，输入参数，自然坐标下所求点的座标值。
　　　　◎ xl 实变量，输入参数，结点坐标。其中xl(1,i)表示x方向坐标，xl(2,i)表示y方向坐标。
　　　　◎ xsj 实变量，输出参数，所求点Jacobi行列式的值。
　　　　◎ shp 实变量，输出参数。其中shp（1，i）是插值函数对x的偏导，shp（2，i）是插值函数对y的偏导，
　　　　　 shp（3，i）是插值函数。
　 方法简介
　　　四结点四边形自然坐标下的插值函数：
　　　　　　　　 　　　
　　　由等参元的概念得：
　　　则导数之间的变换为：
　　　　　　　　
　 程序（提供下载）