(please e-mail me if you find this script useful -- mail to: opensees@peer.berkeley.edu attn: silvia)
I have created a script that figures out the geometric properties of a W section. please make sure that the Wsection you want is in the libraryMatrix.
you can use this with the Wsection procedure in the examples manual.
Here is where you would call the proc and then i list the proc:
and here is the file LibWsecProps.tcl:source LibUnits.tcl; # define system of units
source LibWsecProps.tcl;
# STEEL section properties
set sectLabel W24x117;
set propVec [findWprops $sectLabel];
set Area [expr [lindex $propVec [set ispot 0]] *$in2];
set d [expr [lindex $propVec [incr ispot 1]] *$in2];
set bf [expr [lindex $propVec [incr ispot 1]] *$in];
set tf [expr [lindex $propVec [incr ispot 1]] *$in];
set tw [expr [lindex $propVec [incr ispot 1]] *$in];
set Ixx [expr [lindex $propVec [incr ispot 1]] *$in4];
set Iyy [expr [lindex $propVec [incr ispot 1]] *$in4];
again, I welcome any comments you may have!!!!proc findWprops {Wid} {
source LibUnits.tcl
# in × lb/ft Area (in2) d (in) bf (in) tf (in) tw (in) Ixx (in4) Iyy (in4)
set Wmatrix {
W27x178 52.3 27.81 14.085 1.19 0.725 6990 555
W27x161 47.4 27.59 14.02 1.08 0.66 6280 497
W27x146 42.9 27.38 13.965 0.975 0.605 5630 443
W27x114 33.5 27.29 10.07 0.93 0.57 4090 159
W27x102 30 27.09 10.015 0.83 0.515 3620 139
W27x94 27.7 26.92 9.99 0.745 0.49 3270 124
W27x84 24.8 26.71 9.96 0.64 0.46 2850 106
W24x162 47.7 25 12.955 1.22 0.705 5170 443
W24x146 43 24.74 12.9 1.09 0.65 4580 391
W24x131 38.5 24.48 12.855 0.96 0.605 4020 340
W24x117 34.4 24.26 12.8 0.85 0.55 3540 297
W24x104 30.6 24.06 12.75 0.75 0.5 3100 259
W24x94 27.7 24.31 9.065 0.875 0.515 2700 109
W24x84 24.7 24.1 9.02 0.77 0.47 2370 94.4
W24x76 22.4 23.92 8.99 0.68 0.44 2100 82.5
W24x68 20.1 23.73 8.965 0.585 0.415 1830 70.4
W24x62 18.2 23.74 7.04 0.59 0.43 1550 34.5
W24x55 16.2 23.57 7.005 0.505 0.395 1350 29.1
W21x147 43.2 22.06 12.51 1.15 0.72 3630 376
W21x132 38.8 21.83 12.44 1.035 0.65 3220 333
W21x122 35.9 21.68 12.39 0.96 0.6 2960 305
W21x111 32.7 21.51 12.34 0.875 0.55 2670 274
W21x101 29.8 21.36 12.29 0.8 0.5 2420 248
W21x93 27.3 21.62 8.42 0.93 0.58 2070 92.9
W21x83 24.3 21.43 8.355 0.835 0.515 1830 81.4
W21x73 21.5 21.24 8.295 0.74 0.455 1600 70.6
W21x68 20 21.13 8.27 0.685 0.43 1480 64.7
W21x62 18.3 20.99 8.24 0.615 0.4 1330 57.5
W21x57 16.7 21.06 6.555 0.65 0.405 1170 30.6
W21x50 14.7 20.83 6.53 0.535 0.38 984 24.9
W21x44 13 20.66 6.5 0.45 0.35 843 20.7
W18x119 35.1 18.97 11.265 1.06 0.655 2190 253
W18x106 31.1 18.73 11.2 0.94 0.59 1910 220
W18x97 28.5 18.59 11.145 0.87 0.535 1750 201
W18x86 25.3 18.39 11.09 0.77 0.48 1530 175
W18x76 22.3 18.21 11.035 0.68 0.425 1330 152
W18x71 20.8 18.47 7.635 0.81 0.495 1170 60.3
W18x65 19.1 18.35 7.59 0.75 0.45 1070 54.8
W18x60 17.6 18.24 7.555 0.695 0.415 984 50.1
W18x55 16.2 18.11 7.53 0.63 0.39 890 44.9
W18x50 14.7 17.99 7.495 0.57 0.355 800 40.1
W18x46 13.5 18.06 6.06 0.605 0.36 712 22.5
W18x40 11.8 17.9 6.015 0.525 0.315 612 19.1
W18x35 10.3 17.7 6 0.425 0.3 510 15.3
W16x100 29.4 16.97 10.425 0.985 0.585 1490 186
W16x89 26.2 16.75 10.365 0.875 0.525 1300 163
W16x77 22.6 16.52 10.295 0.76 0.455 1110 138
W16x67 19.7 16.33 10.235 0.665 0.395 954 119
W16x57 16.8 16.43 7.12 0.715 0.43 758 43.1
W16x50 14.7 16.26 7.07 0.63 0.38 659 37.2
W16x45 13.3 16.13 7.035 0.565 0.345 586 32.8
W16x40 11.8 16.01 6.995 0.505 0.305 518 28.9
W16x36 10.6 15.86 6.985 0.43 0.295 448 24.5
W16x31 9.12 15.88 5.525 0.44 0.275 375 12.4
W16x26 7.68 15.69 5.5 0.345 0.25 301 9.59
W14x665 196 21.64 17.65 4.52 2.83 12400 4170
W14x605 178 20.92 17.415 4.16 2.595 10800 3680
W14x550 162 20.24 17.2 3.82 2.38 9430 3250
W14x500 147 19.6 17.01 3.5 2.19 8210 2880
W14x455 134 19.02 16.835 3.21 2.015 7190 2560
W14x426 125 18.67 16.695 3.035 1.875 6600 2360
W14x398 117 18.29 16.59 2.845 1.77 6000 2170
W14x370 109 17.92 16.475 2.66 1.655 5440 1990
W14x342 101 17.54 16.36 2.47 1.54 4900 1810
W14x311 91.4 17.12 16.23 2.26 1.41 4330 1610
W14x283 83.3 16.74 16.11 2.07 1.29 3840 1440
W14x257 75.6 16.38 15.995 1.89 1.175 3400 1290
W14x233 68.5 16.04 15.89 1.72 1.07 3010 1150
W14x211 62 15.72 15.8 1.56 0.98 2660 1030
W14x193 56.8 15.48 15.71 1.44 0.89 2400 931
W14x176 51.8 15.22 15.65 1.31 0.83 2140 838
W14x159 46.7 14.98 15.565 1.19 0.745 1900 748
W14x145 42.7 14.78 15.5 1.09 0.68 1710 677
W14xI32 38.8 14.66 14.725 1.03 0.645 1530 548
W14x120 35.3 14.48 14.67 0.94 0.59 1380 495
W14x109 32 14.32 14.605 0.86 0.525 1240 447
W14x99 29.1 14.16 14.565 0.78 0.485 1110 402
W14x90 26.5 14.02 14.52 0.71 0.44 999 362
W14x82 24.1 14.31 10.13 0.855 0.51 882 148
W14x74 21.8 14.17 10.07 0.785 0.45 796 134
W14x68 20 14.04 10.035 0.72 0.415 723 121
W14x61 17.9 13.89 9.995 0.645 0.375 640 107
W14x53 15.6 13.92 8.06 0.66 0.37 541 57.7
W14x48 14.1 13.79 8.03 0.595 0.34 485 51.4
W14x43 12.6 13.66 7.995 0.53 0.305 428 45.2
W14x38 11.2 14.1 6.77 0.515 0.31 385 26.7
W14x34 10 13.98 6.745 0.455 0.285 340 23.3
W14x30 8.85 13.84 6.73 0.385 0.27 291 19.6
W14x26 7.69 13.91 5.025 0.42 0.255 245 8.91
W14x22 6.49 13.74 5 0.335 0.23 199 7
W12x336 98.8 16.82 13.385 2.955 1.775 4060 1190
W12x305 89.6 16.32 13.235 2.705 1.625 3550 1050
W12x279 81.9 15.85 13.14 2.47 1.53 3110 937
W12x252 74.1 15.41 13.005 2.25 1.395 2720 828
W12x230 67.7 15.05 12.895 2.07 1.285 2420 742
W12x210 61.8 14.71 12.79 1.9 1.18 2140 664
W12x190 55.8 14.38 12.67 1.735 1.06 1890 589
W12x170 50 14.03 12.57 1.56 0.96 1650 517
W12x152 44.7 13.71 12.48 1.4 0.87 1430 454
W12x136 39.9 13.41 12.4 1.25 0.79 1240 398
W12x120 35.3 13.12 12.32 1.105 0.71 1070 345
W12x106 31.2 12.89 12.22 0.99 0.61 933 301
W12x96 28.2 12.71 12.16 0.9 0.55 833 270
W12x87 25.6 12.53 12.125 0.81 0.515 740 241
W12x79 23.2 12.38 12.08 0.735 0.47 662 216
W12x72 21.1 12.25 12.04 0.67 0.43 597 195
W12x65 19.1 12.12 12 0.605 0.39 533 174
W12x58 17 12.19 10.01 0.64 0.36 475 107
W12x53 15.6 12.06 9.995 0.575 0.345 425 95.8
W12x50 14.7 12.19 8.08 0.64 0.37 394 56.3
W12x45 13.2 12.06 8.045 0.575 0.335 350 50
W12x40 11.8 11.94 8.005 0.515 0.295 310 44.1
W12x35 10.3 12.5 6.56 0.52 0.3 285 24.5
W12x30 8.79 12.34 6.52 0.44 0.26 238 20.3
W12x26 7.65 12.22 6.49 0.38 0.23 204 17.3
W12x22 6.48 12.31 4.03 0.425 0.26 156 4.66
W12x19 5.57 12.16 4.005 0.35 0.235 130 3.76
W12x16 4.71 11.99 3.99 0.265 0.22 103 2.82
W12x14 4.16 11.91 3.97 0.225 0.2 88.6 2.36
W10x112 32.9 11.36 10.415 1.25 0.755 716 236
W10x100 29.4 11.1 10.34 1.12 0.68 623 207
W10x88 25.9 10.84 10.265 0.99 0.605 534 179
W10x77 22.6 10.6 10.19 0.87 0.53 455 154
W10x68 20 10.4 10.13 0.77 0.47 394 134
W10x60 17.6 10.22 10.08 0.68 0.42 341 116
W10x54 15.8 10.09 10.03 0.615 0.37 303 103
W10x49 14.4 9.98 10 0.56 0.34 272 93.4
W10x45 13.3 10.1 8.02 0.62 0.35 248 53.4
W10x39 11.5 9.92 7.985 0.53 0.315 209 45
W10x33 9.71 9.73 7.96 0.435 0.29 170 36.6
W10x30 8.84 10.47 5.81 0.51 0.3 170 16.7
W10x26 7.61 10.33 5.77 0.44 0.26 144 14.1
W10x22 6.49 10.17 5.75 0.36 0.24 118 11.4
W10x19 5.62 10.24 4.02 0.395 0.25 96.3 4.29
W10x17 4.99 10.11 4.01 0.33 0.24 81.9 3.56
W10x15 4.41 9.99 4 0.27 0.23 68.9 2.89
W10x12 3.54 9.87 3.96 0.21 0.19 53.8 2.18
W8x67 19.7 9 8.28 0.935 0.57 272 88.6
W8x58 17.1 8.75 8.22 0.81 0.51 228 75.1
W8x48 14.1 8.5 8.11 0.685 0.4 184 60.9
W8x40 11.7 8.25 8.07 0.56 0.36 146 49.1
W8x35 10.3 8.12 8.02 0.495 0.31 127 42.6
W8x31 9.13 8 7.995 0.435 0.285 110 37.1
W8x28 8.25 8.06 6.535 0.465 0.285 98 21.7
W8x24 7.08 7.93 6.495 0.4 0.245 82.8 18.3
W8x21 6.16 8.28 5.27 0.4 0.25 75.3 9.77
W8x18 5.26 8.14 5.25 0.33 0.23 61.9 7.97
W8x15 4.44 8.11 4.015 0.315 0.245 48 3.41
W8x13 3.84 7.99 4 0.255 0.23 39.6 2.73
W8x10 2.96 7.89 3.94 0.205 0.17 30.8 2.09
W6x20 5.87 6.2 6.02 0.365 0.26 41.4 13.3
W6x16 4.74 6.28 4.03 0.405 0.26 32.1 4.43
W6x15 4.43 5.99 5.99 0.26 0.23 29.1 9.32
W6x12 3.55 6.03 4 0.28 0.23 22.1 2.99
W6x9 2.68 5.9 3.94 0.215 0.17 16.4 2.19
W5x19 5.54 5.15 5.03 0.43 0.27 26.2 9.13
W5x16 4.68 5.01 5 0.36 0.24 21.3 7.51
W4x13 3.83 4.16 4.06 0.345 0.28 11.3 3.86
}; # close matrix
set match 0
for {set i 1} {$i <=158} {incr i 1} {
set ispot [expr ($i-1)*8]
set Wlabel [lindex $Wmatrix $ispot]
if {$Wid==$Wlabel} {
# in × lb/ft Area (in2) d (in) bf (in) tf (in) tw (in) Ixx (in4) Iyy (in4)
set Area [expr [lindex $Wmatrix [incr ispot 1]] *$in2];
set d [expr [lindex $Wmatrix [incr ispot 1]] *$in2];
set bf [expr [lindex $Wmatrix [incr ispot 1]] *$in];
set tf [expr [lindex $Wmatrix [incr ispot 1]] *$in];
set tw [expr [lindex $Wmatrix [incr ispot 1]] *$in];
set Ixx [expr [lindex $Wmatrix [incr ispot 1]] *$in4];
set Iyy [expr [lindex $Wmatrix [incr ispot 1]] *$in4];
set vetto "$Area $d $bf $tf $tw $Ixx $Iyy";
set match 1
}; # end if
}; # end for i's
if {$match==1} {
puts "found W-section match"
return $vetto
} else {
puts "found no W-section match"
return $match
}
}; # end of proc