fung792.m

来自「matlab算法集 matlab算法集」· M 代码 · 共 10 行

function y = fun792g (x)
%-----------------------------------------------------------------------
% Force integrand for Example 7.9.2
%-----------------------------------------------------------------------
   rho  = 1000;                 % water density (kg/m^3) 
   g    = 9.81;                 % gravity (m/s^2)
   f = funf792([x(1) 0]); 
   y = rho*g*f^2/2;