代码搜索结果

SUBROUTINE clm_main ( kpt, ivt, msl, maxsnl, istep, dtime, dlat, & ! soil information csol, porsl, phi0, bsw, &

SUBROUTINE lake (msl ,istep ,idlak ,dlat ,dtime ,& zlak ,dzlak ,zilak ,hu ,ht ,& hq ,us ,vs ,tm ,qm ,&

% Twodimensional heat conduction % Finite Volume Method % SOR clear all; x=[];y=[];T=[];Told=[];Su=[];Sp=[];ap=[];ae=[];aw=[];as=[];an=[]; great = 1.e20; lambda = 10; % thermal conductivity alf

%Temperature distribution in a rod %See example 9 %Finite volume method %TDMA clear all; T = [];P=[];Q=[];ae=[];aw=[];ap=[];analytical=[]; nn = input('Number of control volumes = '); n = nn+2;%

%Temperature distribution in a rod %See example 9 %Finite difference methof %TDMA clear all; T = [];P=[];Q=[];analytical=[]; nn = input('Number of increment = ') n = nn+1;% number of grid poin

%Temperature distribution in a rod %See example 9 %Discretization method: Finite difference % Solution method: SOR clear all; T = [];x=[];P=[];Q=[]; nn = input('Number of increment = ') n = n

% Twodimensional heat conduction % Finite Volume Method % Line by Line TDMA with SOR clear all; x=[];y=[];T=[];Told=[];Su=[];Sp=[];ap=[];ae=[];aw=[];as=[];an=[]; Q=[];P=[]; great = 1e20; lambda

/*********************************************************************************** Project: SHTxx demo program (V2.1) Filename: SHTxx_Sample_Code.c Prozessor: 80C51

#include"stdio.h" main() { float T[4][7],sum,avg; int i,j; float f1,*f2; clrscr(); sum=avg=0; scanf("%f",&T[0][0]); sum=sum+T[0][0]; for(i=0;i

#include"stdio.h" main() { float T[4][7],sum,avg; int i,j; float f1,*f2; clrscr(); sum=avg=0; f1=1.0; f2=&f1; for(i=0;i