麻省理工学院：《polymer engineering》p3 14

Prob. 3. 14 Define pal > Digits:=4;b[0]:=.5;d[0]:=100;d[f]:=500; Extension ratio lambda: =d[f]/d[o]: 入:=5 Final thickness >b[f]:=b[0]/1 ambda^2; 02000 Define shear modulus, compute true stress [t]: =2*G*(lambd 1/lambda 4) 110 00010 Compute final radius(mm) and internal pressure [t]*(2*[f])/r[f] 8000

Prob. 3.14 Define parameters: > Digits:=4;b[0]:=.5;d[0]:=100;d[f]:=500; Extension ratio: > lambda:=d[f]/d[0]; λ := 5 Final thickness: > b[f]:=b[0]/lambda^2; bf := .02000 Define shear modulus, compute true stress: > G:=1e6;sigma[t]:=2*G*(lambda^2 - 1/lambda^4); G := .1 107 σt := .5000 108 Compute final radius (mm) and internal pressure: > r[f]:=d[f]/2;p:=sigma[t]*(2*b[f])/r[f]; rf := 250 p := 8000. > Page 1