Section.tcl

set A1 = 0.37575
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J1 = 0.319298
set Iy1 = 0.239186
set Iz1 = 0.440556

set A2 = 0.3175
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J2 = 0.273307
set Iy2 = 0.205174
set Iz2 = 0.38133

set A3 = 0.278
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J3 = 0.230671
set Iy3 = 0.17791
set Iz3 = 0.345047

set A4 = 7.68884
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J4 = 8.03844
set Iy4 = 120.961
set Iz4 = 3.55429

set A5 = 15.7678
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J5 = 12.1914
set Iy5 = 147.254
set Iz5 = 4.98566

set A6 = 9.49612
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J6 = 49.105
set Iy6 = 42.7168
set Iz6 = 21.4103

set A7 = 13.1679
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J7 = 61.7164
set Iy7 = 49.033
set Iz7 = 28.5226

set A8 = 12.0951
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J8 = 63.945
set Iy8 = 49.0669
set Iz8 = 27.9712

set A9 = 10.2321
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J9 = 56.4376
set Iy9 = 43.3418
set Iz9 = 24.9521

set A10 = 12.6238
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J10 = 65.5562
set Iy10 = 49.5384
set Iz10 = 29.1818

set A11 = 16.6999
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J11 = 138.242
set Iy11 = 117.428
set Iz11 = 59.616

set A12 = 17.035
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J12 = 145.94
set Iy12 = 124.817
set Iz12 = 62.7426

set A13 = 9.49612
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J13 = 49.105
set Iy13 = 42.7168
set Iz13 = 21.4103

set A14 = 13.1679
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J14 = 61.7164
set Iy14 = 49.033
set Iz14 = 28.5226

set A15 = 12.0951
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J15 = 63.945
set Iy15 = 49.0669
set Iz15 = 27.9712

set A16 = 10.2321
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J16 = 56.4376
set Iy16 = 43.3418
set Iz16 = 24.9521

set A17 = 12.6238
set E2 = 0
set G2 = [expr $E2/ (2+ 2 * poisson)]
set J17 = 65.5562
set Iy17 = 49.5384
set Iz17 = 29.1818

set A18 = 16.6999
set E2 = 0
set G2 = [expr $E2/ (2+ 2 * poisson)]
set J18 = 138.242
set Iy18 = 117.428
set Iz18 = 59.616

set A19 = 53.9615
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J19 = 427.019
set Iy19 = 271.273
set Iz19 = 208.211

set A20 = 53.9615
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J20 = 427.178
set Iy20 = 271.273
set Iz20 = 208.211

set A21 = 31.51
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J21 = 131.797
set Iy21 = 123.211
set Iz21 = 55.5626

set A22 = 27.09
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J22 = 96.2117
set Iy22 = 93.9176
set Iz22 = 39.8223

set A23 = 6.71573
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J23 = 20.3039
set Iy23 = 22.0284
set Iz23 = 8.45593

set A24 = 13.8407
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J24 = 29.5239
set Iy24 = 34.2249
set Iz24 = 11.5975

set A25 = 34.3407
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J25 = 171.971
set Iy25 = 156.347
set Iz25 = 74.9995

set A26 = 36.1685
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J26 = 173.344
set Iy26 = 157.751
set Iz26 = 75.0388

set A27 = 11.2104
set E2 = 0
set G2 = [expr $E2/ (2+ 2 * poisson)]
set J27 = 13.6632
set Iy27 = 4.70153
set Iz27 = 23.2029

set A28 = 11.2104
set E2 = 0
set G2 = [expr $E2/ (2+ 2 * poisson)]
set J28 = 13.6632
set Iy28 = 4.70153
set Iz28 = 23.2029

set A29 = 1
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J29 = 0.141856
set Iy29 = 0.0833333
set Iz29 = 0.0833333

set A30 = 34.3407
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J30 = 171.971
set Iy30 = 156.347
set Iz30 = 74.9995

set A31 = 27.09
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J31 = 96.2117
set Iy31 = 93.9176
set Iz31 = 39.8223

set A33 = 229.712
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J33 = 4879.07
set Iy33 = 12485.2
set Iz33 = 1528.96

set A34 = 31.51
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J34 = 131.776
set Iy34 = 123.211
set Iz34 = 55.5626

set A35 = 27.09
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J35 = 96.205
set Iy35 = 93.9176
set Iz35 = 39.8223

set A36 = 8.35073
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J36 = 22.6904
set Iy36 = 26.5777
set Iz36 = 9.29639

set A37 = 17.4407
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J37 = 39.0446
set Iy37 = 59.8541
set Iz37 = 13.8655

set A38 = 14.4407
set E2 = 0
set G2 = [expr $E2/ (2+ 2 * poisson)]
set J38 = 30.1092
set Iy38 = 35.2173
set Iz38 = 11.6155

set A39 = 27.09
set E2 = 0
set G2 = [expr $E2/ (2+ 2 * poisson)]
set J39 = 96.205
set Iy39 = 93.9176
set Iz39 = 39.8223

set A40 = 17.4407
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J40 = 39.0446
set Iy40 = 59.8541
set Iz40 = 13.8655

set A41 = 84.958
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J41 = 342.906
set Iy41 = 9835
set Iz41 = 94.1155

set A42 = 4.62
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J42 = 0.846511
set Iy42 = 1.78127
set Iz42 = 6.61815

set A45 = 526.981
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J45 = 28151.4
set Iy45 = 57548.1
set Iz45 = 9306.53

set A46 = 486.641
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J46 = 22789.8
set Iy46 = 53142.9
set Iz46 = 7328.73

set A47 = 526.981
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J47 = 28151.4
set Iy47 = 57548.1
set Iz47 = 9306.53

set A48 = 486.641
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J48 = 22789.8
set Iy48 = 53142.9
set Iz48 = 7328.73

set A49 = 526.981
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J49 = 28151.4
set Iy49 = 57548.1
set Iz49 = 9306.53

set A50 = 14.8207
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J50 = 36.9395
set Iy50 = 57.5647
set Iz50 = 13.2709

set A51 = 8.17073
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J51 = 22.1502
set Iy51 = 25.9692
set Iz51 = 9.14969

set A52 = 10.1267
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J52 = 25.5378
set Iy52 = 30.5369
set Iz52 = 10.2186

set A53 = 14.8207
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J53 = 36.9395
set Iy53 = 57.5647
set Iz53 = 13.2709

set A54 = 8.17073
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J54 = 22.1502
set Iy54 = 25.9692
set Iz54 = 9.14969

set A56 = 11.25
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J56 = 13.8037
set Iy56 = 4.74609
set Iz56 = 23.4375

set A57 = 36.1685
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J57 = 173.235
set Iy57 = 157.751
set Iz57 = 75.0388

set A58 = 26.1755
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J58 = 101.798
set Iy58 = 99.4027
set Iz58 = 43.1609

set A59 = 6.53573
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J59 = 19.6101
set Iy59 = 21.2525
set Iz59 = 8.29258

set A60 = 10.0508
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J60 = 26.1187
set Iy60 = 29.0714
set Iz60 = 10.5952

set A61 = 53.9615
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J61 = 427.137
set Iy61 = 271.273
set Iz61 = 208.211

set A62 = 36.1685
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J62 = 173.235
set Iy62 = 157.751
set Iz62 = 75.0388

set A63 = 26.1755
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J63 = 101.798
set Iy63 = 99.4027
set Iz63 = 43.1609

set A64 = 6.53573
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J64 = 19.6101
set Iy64 = 21.2525
set Iz64 = 8.29258

set A65 = 411.938
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J65 = 23257.1
set Iy65 = 10161
set Iz65 = 19304.5

set A66 = 180
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J66 = 4481.96
set Iy66 = 2160
set Iz66 = 3375

set A67 = 88
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J67 = 1048.67
set Iy67 = 469.333
set Iz67 = 887.333

set A68 = 239
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J68 = 5940.43
set Iy68 = 11376.6
set Iz68 = 1991.67

set A69 = 311.941
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J69 = 4579.2
set Iy69 = 45178.1
set Iz69 = 3914.39

set A70 = 88
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J70 = 1048.67
set Iy70 = 469.333
set Iz70 = 887.333

set A73 = 577.56
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J73 = 47629.4
set Iy73 = 27595.7
set Iz73 = 27595.7

set A74 = 171.5
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J74 = 3683.08
set Iy74 = 4203.5
set Iz74 = 1429.17

set A76 = 335.273
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J76 = 11827.3
set Iy76 = 22249
set Iz76 = 3858.46

set A78 = 335.273
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J78 = 11827.3
set Iy78 = 22249
set Iz78 = 3858.46

set A92 = 5.02588
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J92 = 2.67304
set Iy92 = 2.28807
set Iz92 = 3.44265

set A93 = 8.07615
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J93 = 8.56934
set Iy93 = 3.56024
set Iz93 = 8.29805

set A94 = 19.2698
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J94 = 52.332
set Iy94 = 35.284
set Iz94 = 27.1373

set A95 = 12.1001
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J95 = 15.0795
set Iy95 = 23.296
set Iz95 = 11.391

set A96 = 8.14333
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J96 = 6.83814
set Iy96 = 10.5229
set Iz96 = 5.15927

set A103 = 8.17073
set E1 = 35000000
set G1 = [expr $E1/ (2+ 2 * poisson)]
set J103 = 22.1502
set Iy103 = 25.9692
set Iz103 = 9.14969