This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: lengthy = sqrt((XX(i+1) - XX(i))^2+(YY(i+1)-YY(i))^2); %ds areay = lengthy*ts; Iyspline = Iyspline + areay*((XX(i+1)-XX(i))/2-centp)^2; end Iyspline; I %web Ixweb = h*th^3/12; Iyweb = th*h^3/12; I %spar Ixspar = ss^4/12; Iyspar = Ixspar; I Ix = (Ixspline)+(Ixweb)+(2*(Ixspar+areas*(h/2)^2)) Iy = (Iyspline+areap*(centp-centroid)^2)+(Iyweb+areaw*(centw-centroid)^2)+ (Iyspar+areas*(cents-centroid)^2) ( %shear center %chart X = .33*area/h X sigma = 0; phi0 = 0; ty = 1; t for i = 1:1:size(XX,2)-1 sigma = sigma + (abs(XX(i))*ts*sqrt((XX(i+1) - XX(i))^2+(YY(i+1)-YY(i))^2)); end e H = [0, 0]; I = [h/2, -h/2]; JJ = -h/2:1:h/2; J WW = spline(I, H, JJ); W for i = 1:1:size(JJ,2)-1 sigma = sigma + abs(JJ(i))*th; end e phi1 = -(ty/Ix)*sigma + phi0; p tau1 = phi1/10; t...
View Full Document
This note was uploaded on 09/18/2011 for the course EC 101 taught by Professor Staff during the Spring '09 term at INSA Toulouse.
- Spring '09