%% Tidy Bits clc clear format compact close all %% Cylinder Wall Thickness Calculator P=131.7; %[psi] dt=0.001; %[in] dia=0.5; %[in] for i=1:50 t(i)=i*.001; r(i)=(dia/2)+(t(i)/2); %[in] sig1(i)=((P*r(i))/t(i)); %[psi] sig2(i)=((P*r(i))/(2*t(i))); %[psi] sig3=P; num(i)=((sig1(i)-sig2(i))^2+(sig2(i)-sig3)^2+(sig3-sig1(i))^2); sigv(i)=sqrt(num(i)/2); end %% Yield Stress 6061-T6 Al sigy=40000; %[psi] Min=find(sigv