1. Introduction
2. Interfaces
3. Starting the Animator3
4. Layout and general notes for the user
4.1 The function of keys
4.2 Pop up menu
4.3 Slot menu
5. Explanation of the operating windows
5.1 Reading Finite Element's results: Read F.E. Data
5.2 Writing Finite Element data: Write F.E. Data
5.3 Changing the view: View
5.4 Cross section mode: Cross Section
5.5 Stereo projection: Stereo
5.6 Selection of States: State
5.7 Generating commands: Command
6. Command mode and session file
6.1 Support of the mouse
6.2 Explicit input of nodes, elements or materials
6.3 Colors
7. Creating Hard copies
7.1 Pixel dump
7.2 Postscript
8. Explanation of single functions
8.1 Stereo projection
9. Commands in alphabetical order
| command |
function |
| add |
activates elements or materials |
| ani |
controls the animation |
| bye |
finishes the program |
| col |
defines colors |
| dis |
manipulates displacements |
| era |
deactivates elements or materials |
| exp |
explosion view |
| fun |
manipulates function values |
| gri |
grid to be displayed |
| hel |
starts help browser |
| gro |
generates and deletes groups |
| ide |
informs about nodes or elements |
| opt |
options, scaling, interpolation, selects states |
| rea |
reads files incl. session files |
| rec |
records graphics to MPEG2 or RGB files |
| sty |
selects the display mode |
| txt |
writes and deletes text in the graphic window |
| vie |
view incl. clipping planes, cross sections and follow |
| wri |
writes files |
| xcm |
defines the window size and position |
10. Interface programs
11. File "a3_Color.rgb"
http://www.ets-soft.com/animator3/
English--->JapaneseEngineering Words
http://www.takanishi.com/member/glossary/GLindex_JE.html
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
set values {
北海道 青森県 岩手県 宮城県 秋田県 山形県 福島県 茨城県 栃木県
群馬県 埼玉県 千葉県 東京都 神奈川県 山梨県 長野県 新潟県 富山県
石川県 福井県 岐阜県 静岡県 愛知県 三重県 滋賀県 京都府 大阪府
兵庫県 奈良県 和歌山県 鳥取県 島根県 岡山県 広島県 山口県 徳島県
香川県 愛媛県 高知県 福岡県 佐賀県 長崎県 熊本県 大分県 宮崎県
鹿児島県 沖縄県
}
set c [ttk::combobox .cbx -values $values -width 24]
pack $c
proc OnComboSelected { w } {
puts [$w get]
}
bind $c <<ComboboxSelected>> [list OnComboSelected %W]
Tcl read item in txt file
#
# Count the number of lines in a text file
#
clear
set fp [open "C:/Temp/verify.log" r]
set number 0
#
# gets with two arguments returns the length of the line,
# -1 if the end of the file is found
#
while {[gets $fp line] != -1} {
incr number
if
puts "Line Number: $number\n"
set X $line
puts $X
}
close $fp
set num1 [lindex $X 1]
set num2 [lindex $X 2]
set num3 [lindex $X 3]
puts "Item at index 1,2,3 of the list {$X} is: $num1, $num2, $num3\n"
puts [expr $num3*2]
==================================================
#
# Count the number of lines in a text file
#
clear
set fp [open "C:/Temp/verify.log" r]
set number 0
#
# gets with two arguments returns the length of the line,
# -1 if the end of the file is found
#
while {[gets $fp line] != -1} {
incr number
if {int($number) == 1} {
puts "Line Number: $number\n"
set Y $line
puts $Y
}
if {int($number) == 2} {
puts "Line Number: $number\n"
set X $line
puts "$X\n"
}
}
close $fp
set num0 [lindex $X 0]
set num1 [lindex $X 1]
set num2 [lindex $X 2]
set num3 [lindex $X 3]
puts "Item at index 0,1,2,3 of the list {$X} is: $num0, $num1, $num2, $num3\n"
set value0 [lindex $Y 0]
set value1 [lindex $Y 1]
set value2 [lindex $Y 2]
set value3 [lindex $Y 3]
puts "Item at index 0,1,2,3 of the list {$Y} is: $value0, $value1, $value2, $value3\n"
puts "Multi num3 to 2 [expr $num3*2]"
Nice Code Tcl
#
# Count the number of lines in a text file
#
clear
set fp [open "C:/Temp/verify.log" r]
#
# gets with two arguments returns the length of the line,
# -1 if the end of the file is found
#
array set x {}
array unset x
set i 0
while {[gets $fp line] != -1} {
incr i
puts "Line Number: $i\n"
set x($i) $line
puts $x($i)
}
puts "======================================\n"
puts "Number of PID $i\n"
set pid $i
puts "======================================\n"
close $fp
for { set i 1 } { $i <= $pid } { incr i } {
puts $x($i)\n
for { set j 1 } { $j <= 5 } { incr j } {
set num($i,$j) [lindex $x($i) $j-1]
puts $num($i,$j)\n
}
}
puts "======================================\n"
set vomi [list]
set fn $num(2,2)
set ind $i
for { set i 2 } { $i <= $pid } { incr i } {
if { int($num($i,2)) > int($fn) } {
set fn $num($i,2)
set ind $i
}
lappend vomi $num($i,2)
#puts $num($i,2)\n
}
puts "Max at PID = $ind\n"
puts "Max Vonmise = $fn\n"
puts "Max Vonmise at Element = $num($ind,3)\n"
puts "Min Vonmise = $num($ind,4)\n"
puts "Min Vonmise at Element = $num($ind,5)\n"
puts "======================================\n"
puts $vomi\n
Input File
A MaV EaId MiV EiId
1 4.8 300 4 400
2 4.6 301 4.1 390
3 5.2 302 4.9 280
4 6.2 304 4.2 380
5 9.2 305 2.2 370