BuildingTcl 1.9 Has been released!!!
Moderators: silvia, selimgunay, Moderators
tcl script!!!
Hi Silvia,
The following tcl script I wrote gets me an error , would you please check it out and let me know what is the problem if possible?
#---SOIL GEOMETRY
# thicknesses of soil profile (m)
set soilThick 30.0
# number of soil layers
set numLayers 3
# layer thicknesses
set layerThick(3) 2.0
set layerThick(2) 8.0
set layerThick(1) 20.0
# depth of water table
set waterTable 2.0
# define layer boundaries
set layerBound(1) $layerThick(1)
set sum $layerBound(1)
for {set i 2} {$i<=$numLayers} {incr i 1} {
set sum [expr $sum+$layerThick($i)]
set layerBound($i) $sum
}
#---MESH GEOMETRY
# number of elements in horizontal direction
set nElemX 1
# number of nodes in horizontal direction
set nNodeX [expr 2*$nElemX+1]
# horizontal element size (m)
set sElemX 2.0
# number of elements in vertical direction for each layer
set nElemY(3) 4
set nElemY(2) 16
set nElemY(1) 40
# total number of elements in vertical direction
set nElemT 60
# vertical element size in each layer
for {set i 1} {$i <=$numLayers} {incr i 1} {
set sElemY($i) [expr $layerThick($i)/$nElemY($i)]
puts "size: $sElemY($i)"
}
# number of nodes in vertical direction
set nNodeY [expr 2*$nElemT+1]
# total number of nodes
set nNodeT [expr $nNodeX*$nNodeY]
################# creating interiror nodes #################
model BasicBuilder -ndm 2 -ndf 2
set x1coord [expr $sElemX/2]
set x2coord $sElemX
set k 1
set nodelist {}
set lowerBound 0
for {set j 1} {$j<= $nNodeY} {incr j 1} {
if {[expr ($j-1)*$sElemY($k)/2]<=$layerBound($k) && [expr ($j-1)*$sElemY($k)/2]> $lowerBound} {
set ycoord($j) [expr ($j-1)*$sElemY($k)/2]
lappend nodelist $ycoord($j)
return $nodelist
} else {
set k [expr $k+1]
if {$k>3} {
set k 3
}
}
set lowerBound $layerBound($k)
}
for {set i 2} {$i <= $nNodeY} {incr i 3} {
set k 2
set ycoor [lindex $nodelist [expr $i-$k]]
node $i $x1coord $ycoor
set k [expr $k+2]
}
for {set i 1} {$i <= [expr $nNodeY-$nElemT]} {incr i 6} {
set k 0
set ycoor [lindex $nodelist [expr $i-$k]]
node $i 0 $ycoor
node [expr $i+2] $x2coord $ycoor
set k [expr $k+4]
}
The following tcl script I wrote gets me an error , would you please check it out and let me know what is the problem if possible?
#---SOIL GEOMETRY
# thicknesses of soil profile (m)
set soilThick 30.0
# number of soil layers
set numLayers 3
# layer thicknesses
set layerThick(3) 2.0
set layerThick(2) 8.0
set layerThick(1) 20.0
# depth of water table
set waterTable 2.0
# define layer boundaries
set layerBound(1) $layerThick(1)
set sum $layerBound(1)
for {set i 2} {$i<=$numLayers} {incr i 1} {
set sum [expr $sum+$layerThick($i)]
set layerBound($i) $sum
}
#---MESH GEOMETRY
# number of elements in horizontal direction
set nElemX 1
# number of nodes in horizontal direction
set nNodeX [expr 2*$nElemX+1]
# horizontal element size (m)
set sElemX 2.0
# number of elements in vertical direction for each layer
set nElemY(3) 4
set nElemY(2) 16
set nElemY(1) 40
# total number of elements in vertical direction
set nElemT 60
# vertical element size in each layer
for {set i 1} {$i <=$numLayers} {incr i 1} {
set sElemY($i) [expr $layerThick($i)/$nElemY($i)]
puts "size: $sElemY($i)"
}
# number of nodes in vertical direction
set nNodeY [expr 2*$nElemT+1]
# total number of nodes
set nNodeT [expr $nNodeX*$nNodeY]
################# creating interiror nodes #################
model BasicBuilder -ndm 2 -ndf 2
set x1coord [expr $sElemX/2]
set x2coord $sElemX
set k 1
set nodelist {}
set lowerBound 0
for {set j 1} {$j<= $nNodeY} {incr j 1} {
if {[expr ($j-1)*$sElemY($k)/2]<=$layerBound($k) && [expr ($j-1)*$sElemY($k)/2]> $lowerBound} {
set ycoord($j) [expr ($j-1)*$sElemY($k)/2]
lappend nodelist $ycoord($j)
return $nodelist
} else {
set k [expr $k+1]
if {$k>3} {
set k 3
}
}
set lowerBound $layerBound($k)
}
for {set i 2} {$i <= $nNodeY} {incr i 3} {
set k 2
set ycoor [lindex $nodelist [expr $i-$k]]
node $i $x1coord $ycoor
set k [expr $k+2]
}
for {set i 1} {$i <= [expr $nNodeY-$nElemT]} {incr i 6} {
set k 0
set ycoor [lindex $nodelist [expr $i-$k]]
node $i 0 $ycoor
node [expr $i+2] $x2coord $ycoor
set k [expr $k+4]
}
Re: BuildingTcl 1.9 Has been released!!!
Hello and thanks for your excelent work
Re: BuildingTcl 1.9 Has been released!!!
I completely agree, great aricle! I’m glad I stumbled across this website!
-
- Posts: 1
- Joined: Tue Jan 03, 2012 2:20 pm
- Contact:
Re: BuildingTcl 1.9 Has been released!!!
A bit difficult to download, any suggestions will be greatly appreciated. Thank you.
-
- Posts: 1
- Joined: Fri Jan 13, 2012 12:44 pm
- Location: IIEES
Re: BuildingTcl 1.9 Has been released!!!
Dear Dr. Mazoni
It is a while that I have not been working with OpenSees and now I try to start using it for my research.
Unfortunately I can't find source file of TCLeditor and also BuildingTcl is not reachable.
I would be grateful if you could help me "How I can download buildingTCL?"
Regards,
It is a while that I have not been working with OpenSees and now I try to start using it for my research.
Unfortunately I can't find source file of TCLeditor and also BuildingTcl is not reachable.
I would be grateful if you could help me "How I can download buildingTCL?"
Regards,
-
- Posts: 7
- Joined: Wed Jan 11, 2012 12:46 pm
- Location: University of Cincinnati
Re: BuildingTcl 1.9 Has been released!!!
I can't download buildingtcl.....the download page does'nt open. Is there any other way to download it?
-
- Posts: 6
- Joined: Thu Jan 13, 2011 1:39 pm
- Location: Beca Ltd
Re: BuildingTcl 1.9 Has been released!!!
Hello,
Is it possible to save the 'OpenSees input files', that are generated by BuildingTcl in the background?
I want to be able to edit and add items and then run the tcl files manually using opensees. I know that opensees navigator creates wonderful set of tcl files in a logical format. Is it possible with BuildingTcl?
Thank you
sumit
Is it possible to save the 'OpenSees input files', that are generated by BuildingTcl in the background?
I want to be able to edit and add items and then run the tcl files manually using opensees. I know that opensees navigator creates wonderful set of tcl files in a logical format. Is it possible with BuildingTcl?
Thank you
sumit
-
- Posts: 6
- Joined: Thu Jan 13, 2011 1:39 pm
- Location: Beca Ltd
Re: BuildingTcl 1.9 Has been released!!!
Opensees87 wrote:
> I can't download buildingtcl.....the download page does'nt open. Is there
> any other way to download it?
You have to download TortoiseSVN and checkout the BuildingTcl files using the URL svn://opensees.berkeley.edu/usr/local/svn/BuildingTcl/trunk BuildingTcl
To run you have to install using 'BuildingTclInstall.bat'; put the 'BuildingTcl.tcl' (located in bin) and 'LibBuildingTclLibraryFiles.tcl' (located in libMainLibFile) in the 'programFiles' folder; and run the 'BuildingTcl.tcl' file using OpenSeesTk.
> I can't download buildingtcl.....the download page does'nt open. Is there
> any other way to download it?
You have to download TortoiseSVN and checkout the BuildingTcl files using the URL svn://opensees.berkeley.edu/usr/local/svn/BuildingTcl/trunk BuildingTcl
To run you have to install using 'BuildingTclInstall.bat'; put the 'BuildingTcl.tcl' (located in bin) and 'LibBuildingTclLibraryFiles.tcl' (located in libMainLibFile) in the 'programFiles' folder; and run the 'BuildingTcl.tcl' file using OpenSeesTk.
air max 2010 leather
[url=http://www.air-max-ltd.com/nike-air-max ... 11_13.html]nike air max 2009 women[/url], [url=http://www.air-max-ltd.com/nike-air-max ... 11_15.html]air max 2010 leather women[/url], [url=http://www.air-max-ltd.com/nike-air-max ... -7_14.html]air max 2010 leather men[/url]
Re: BuildingTcl 1.9 Has been released!!!
Locating a Gucci Bag That Will Expense a Couple of Hundrpolo
Today,http://www.topgucci4sale.com/ Belts, you may get everything that together with only some hundrpolo or so money regarding trend purchase. With all the improving design regarding carrier and also components suppliers and also developers, we have been today blesspolo together with specific identical of several artist things. Gucci bags along with LV, Hermes, and also Chanel is now able to become in your attain due to flawlessly producpolo artist look-alike. Using this engineering bettering year in year out, we could today quit picturing getting inside large trend and commence dwelling regarding genuine. All things considerpolo,Gucci Tote, no-one is likely to realize due to the fact every one of these imitations are already creatpolo artfully,Gucci Wallets, inside clothes top quality, and also inside the best achievable solution to the particular originals.
Today, it is possible to quit there due to the fact everybody knows in which shelling out several months' wage and also financial savings about the same carrier is not any more time sensible when you're able to become smart and get a traditional seeking Gucci finances or perhaps bag together with just a portion with the value. Although these kinds of bags are usually imitations and also identical,
they will seem just like the true and also traditional artist hand bags in which no-one can at any time realize the key. Help save a huge selection of money together with each Gucci bag look-alike obtain but raise your voice for the planet in which what exactly is have got can be an authentic. Today, together with a top quality look-alike Gucci carrier, envision almost all face for you; envying the each shift and the ones admiring the trend perception.
Additionally it is sensible to get look-alike Hermes hand bags as long as the point is always to be noticeable coming from neighbors. The particular imitations are usually a definpolo look-alike with the authentic merchandise. The particular identical usually are not producpolo simply away from plastic-type or perhaps PVC in order to copy the design with the authentic brand name. The identical won't seem to become low-cost counterfeit with the authentic goods could be the barometer or perhaps common getting accompanipolo by these kinds of suppliers. In this way,http://www.godsgucci.com/ Hobo, an individual which acquirpolo any Hermes bag look-alike can be happy with the item and also would certainly retain finding its way back regarding a lot more. Hence customer care will be certain.
Today,http://www.topgucci4sale.com/ Belts, you may get everything that together with only some hundrpolo or so money regarding trend purchase. With all the improving design regarding carrier and also components suppliers and also developers, we have been today blesspolo together with specific identical of several artist things. Gucci bags along with LV, Hermes, and also Chanel is now able to become in your attain due to flawlessly producpolo artist look-alike. Using this engineering bettering year in year out, we could today quit picturing getting inside large trend and commence dwelling regarding genuine. All things considerpolo,Gucci Tote, no-one is likely to realize due to the fact every one of these imitations are already creatpolo artfully,Gucci Wallets, inside clothes top quality, and also inside the best achievable solution to the particular originals.
Today, it is possible to quit there due to the fact everybody knows in which shelling out several months' wage and also financial savings about the same carrier is not any more time sensible when you're able to become smart and get a traditional seeking Gucci finances or perhaps bag together with just a portion with the value. Although these kinds of bags are usually imitations and also identical,
they will seem just like the true and also traditional artist hand bags in which no-one can at any time realize the key. Help save a huge selection of money together with each Gucci bag look-alike obtain but raise your voice for the planet in which what exactly is have got can be an authentic. Today, together with a top quality look-alike Gucci carrier, envision almost all face for you; envying the each shift and the ones admiring the trend perception.
Additionally it is sensible to get look-alike Hermes hand bags as long as the point is always to be noticeable coming from neighbors. The particular imitations are usually a definpolo look-alike with the authentic merchandise. The particular identical usually are not producpolo simply away from plastic-type or perhaps PVC in order to copy the design with the authentic brand name. The identical won't seem to become low-cost counterfeit with the authentic goods could be the barometer or perhaps common getting accompanipolo by these kinds of suppliers. In this way,http://www.godsgucci.com/ Hobo, an individual which acquirpolo any Hermes bag look-alike can be happy with the item and also would certainly retain finding its way back regarding a lot more. Hence customer care will be certain.
Re: BuildingTcl 1.9 Has been released!!!
Finally managed to download it.Lets test it out.
-
- Posts: 3
- Joined: Tue Feb 21, 2012 12:47 am
Re: BuildingTcl 1.9 Has been released!!!
I also can't download Building Tcl. do anybody know another way?
-
- Posts: 1
- Joined: Tue Feb 21, 2012 1:08 am
Re: BuildingTcl 1.9 Has been released!!!
I have download this successfully11
-
- Posts: 4
- Joined: Tue Feb 28, 2012 7:13 pm
- Location: New York
- Contact:
Re: BuildingTcl 1.9 Has been released!!!
I am having trouble downloading from the link provided in the first post. Has anyone tried that recently?
I also ask because this is somewhat have a dated post so I don't know if it has become broken.
Thank you!
Rob
I also ask because this is somewhat have a dated post so I don't know if it has become broken.
Thank you!
Rob
Webmaster at EPPP