summaryrefslogtreecommitdiff
path: root/494/CH2/EX2.1/2_1.sce
blob: d1c52ef64f65b8b0f2b3eb0c86c7e2fbf27e27d3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//All the quantities are in SI units
v_inf = 240; //freestream velocity
l = 1;       //wavelength of the wall
h = 0.01;    //amplitude of the wall
M_inf = 0.7; //freestream mach number
b = sqrt(1-(M_inf^2));
x = l/4;
y = l;

function temp = u(x,y)
temp = v_inf*(1 + (h/b*2*%pi/l*cos(2*%pi*x/l)*exp(-2*%pi*b*y/l)));
endfunction

function temp = v(x,y)
temp = -v_inf*h*2*%pi/l*sin(2*%pi*x/l)*exp(-2*%pi*b*y/l);
endfunction

d = 1e-10;

du = derivative(u,x,d);

dv = derivative(v,y,d);

grad_V = du + dv;

test = (b-(1/b))*v_inf*h*((2*%pi/l)^2)*exp(-2*%pi*b);

printf("\nRESULT\n-------\nThe time rate of change of the volume of the fluid element per unit volume is: %1.4f s-1\n", grad_V)