gusucode.com > symbolic工具箱matlab源码程序 > symbolic/@sym/fortran.m
function f = fortran(s,varargin) %FORTRAN Fortran representation of a symbolic expression. % FORTRAN(S) is a fragment of Fortran that evaluates symbolic expression S. % FORTRAN(S,'file',FILE) writes an optimized code fragment to file FILE. % % Examples: % syms x % f = taylor(log(1+x)); % fortran(f) = % % t0 = x-x**2*(1.0D0/2.0D0)+x**3*(1.0D0/3.0D0)-x**4*(1.0D0/4.0D0)+x* % ~*5*(1.0D0/5.0D0) % % H = sym(hilb(3)); % fortran(H) = % % H(1,1) = 1 % H(1,2) = 1.0D0/2.0D0 % H(1,3) = 1.0D0/3.0D0 % H(2,1) = 1.0D0/2.0D0 % H(2,2) = 1.0D0/3.0D0 % H(2,3) = 1.0D0/4.0D0 % H(3,1) = 1.0D0/3.0D0 % H(3,2) = 1.0D0/4.0D0 % H(3,3) = 1.0D0/5.0D0 % % See also SYM/PRETTY, SYM/LATEX, SYM/CCODE. % Copyright 1993-2014 The MathWorks, Inc. res = generateCode(s,inputname(1),'fortran',varargin{:}); if ~isempty(res) f = res; end