how to find numerical integration
Afficher commentaires plus anciens
I have used symbolic function but integration is find out so please tell me how to find out numeral integration
ans =
numeric::int((176343*((94012642221359104*cos((167*sin((2386892850511152799*(1 - ((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/72057594037927936 - (7774895278537957*(378225 - 376996*((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/144115188075855872))/5000 - (344*pi)/365 + (6430765568396071*sin((2386892850511152799*(1 - ((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/36028797018963968 - (7774895278537957*(378225 - 376996*((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/72057594037927936))/18446744073709551616))/5627929523088023125 + 9007199254740992/9004687236940837)^2*(exp((31029607056644986387*(1 - ((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/1441151880758558720 - (101073638620993441*(378225 - 376996*((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/2882303761517117440)/2 + exp((45350964159711903181*(1 - ((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/1441151880758558720 - (147723010292221183*(378225 - 376996*((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/2882303761517117440)/2)^((7774895278537957*(378225 - 376996*((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/144115188075855872 - (2386892850511152799*(1 - ((7814264961000375*cos((pi*(15*t - 180))/180))/9007199254740992 + 4661913071013161/36028797018963968)^2)^(1/2))/72057594037927936)*(1 - ((67859321620704652583*x)/4398046511104000000 - ((8384940271926931*x)/1125899906842624 - 813339206376912307/562949953421312)*(6809975917315847/(8796093022208*(364110078143449/1073741824 - (6809975917315847*x)/4398046511104)^(1/2)) - 32372/15625) + (8384940271926931*(364110078143449/1073741824 - (6809975917315847*x)/4398046511104)^(1/2))/1125899906842624 - 21474655534042043958857503198413/4951760157141521099596496896)^2/(256*((8384940271926931*x)/1125899906842624 - 813339206376912307/562949953421312)*((32372*x)/15625 + (364110078143449/1073741824 - (6809975917315847*x)/4398046511104)^(1/2) - 2561098211509023/4398046511104)))^(1/2)*(-((8384940271926931*x)/1125899906842624 - 813339206376912307/562949953421312)*((32372*x)/15625 + (364110078143449/1073741824 - (6809975917315847*x)/4398046511104)^(1/2) - 2561098211509023/4398046511104))^(1/2))/40, x == 0..194)
 
clear all
clc
n = 172;
H = 20000;
CF = 0.5;
V_wind =10;
%%Constants taken
u = [7.447323 2.071808 9.010095 7.981491 194];
a = u(1); % 7.447323;
b = u(2); % 2.071808;
c = u(3); % 9.010095;
d = u(4); % 7.981491;
l = u(5); % 194;
%%Profile
x = (0:0.1:u(5));
f = 1/8.*(sqrt(u(1).*(u(5)-x).*(u(2).*x-u(5)*sqrt(u(3))+sqrt(u(3)*u(5).^2-u(4)*u(5).*x))));
D = 2*max(f);
R = D/2;
clear x
syms x zi t
y = 1/8.*(sqrt(u(1).*(u(5)-x).*(u(2).*x-u(5)*sqrt(u(3))+sqrt(u(3)*u(5).^2-u(4)*u(5).*x))));
y1 = diff(y);
y2 = sqrt(1+y1.^2);
y3 = y*y2;
nb = [sin(atan(y1)), cos(atan(y1))*cos(zi), -cos(atan(y1))*sin(zi)]
%%constants
alpha = 0.15;
albedo_ground = 0.35;
albedo_cloud = 0.5;
P_sea = 101325;
e = 0.0167;
T_g = 280; %temperature of ground in k
T_cl = 262.15; % assuming cloud at altitude 4km in k
R = 6371000; %redius of earth
epsilon_e = 0.95;
alpha_ir = 0.85;
sigma = 5.67.*10.^-8;
[T_oa, P_oa, rho_oa] = atmos(H);
delta = 23.45.*sin((pi/180)*(360/365)*(284+n));
w = 15*(12-t);
phi = 18.975;
theta = acos(sin((pi/180).*delta).*sin((pi/180).*phi)+cos((pi/180).*delta).*cos((pi/180).*phi).*cos((pi/180).*w));
%
psi = asin((sin(pi/180).*w).*cos((pi/180).*delta)/cos(theta));
I = [cos(psi)*sin(theta), cos(psi)*cos(theta), -sin(theta)];
n1 = dot(I,nb);
MA = 2.*pi.*n/365;
M = (5466.4/P_sea).*(sqrt(1229+(614.*sin(theta)).^2)-614.*sin(theta)); %call fun
Tau_atm = 0.5.*(exp(-0.65.*M)+exp(-0.95.*M));
zita = MA+2.*e.*sin(M)+1.25.*e.^2.*sin(2.*M);
ID = (1367.*Tau_atm.^M).*((1+e.*cos(zita))./(1-e.^2)).^2;
I_d = (1/2).*ID.*sin(theta).*(1.-Tau_atm.^M)./(1.-1.4.*log(Tau_atm));
Q_D = n.*alpha.*ID.*y3;
Q = int(Q_D,x,0,l);
vpa(Q,5)
1 commentaire
per isakson
le 14 Juin 2015
and attach the code with the help of the paper-clip-button
Réponses (0)
Catégories
En savoir plus sur Code Performance dans Centre d'aide et File Exchange
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!