xwcheng
2009-08-10, 15:17
S = 0.015; Z = 1.200; SE = 0.017; a0 =
45*Pi/180; P0 = 500000; \[Mu] = 0.19; k = 5; B = 0.800; F = 10000000;
ae = ArcCos[(Z - SE + S)/Z];
m = ((1 + S/Z - Cos[x])*Cos[x])^k;
n = 1 - 5*Z/(4*(SE - S));
nn = 1 - Z/(SE - S);
p = Z/(4*(SE - S))
fs[y_] = Integrate[
Sin[y]/((Cos[y] + S*Cos[y]/Z - (Cos[y])^2))^k, {y, 0, x}]
45*Pi/180; P0 = 500000; \[Mu] = 0.19; k = 5; B = 0.800; F = 10000000;
ae = ArcCos[(Z - SE + S)/Z];
m = ((1 + S/Z - Cos[x])*Cos[x])^k;
n = 1 - 5*Z/(4*(SE - S));
nn = 1 - Z/(SE - S);
p = Z/(4*(SE - S))
fs[y_] = Integrate[
Sin[y]/((Cos[y] + S*Cos[y]/Z - (Cos[y])^2))^k, {y, 0, x}]