-
Notifications
You must be signed in to change notification settings - Fork 22
/
Spring_Rigid.tcl
24 lines (19 loc) · 905 Bytes
/
Spring_Rigid.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
##################################################################################################################
# Spring_Rigid.tcl
#
# SubRoutine to construct a rotational spring with a very large stiffness
#
##################################################################################################################
#
# Input Arguments:
#------------------
# SpringID Spring ID
# NodeI Node i ID
# NodeJ Node j ID
#
# Written by: Dr. Ahmed Elkady, University of Southampton, UK
#
##################################################################################################################
proc Spring_Rigid {SpringID NodeI NodeJ} {
element zeroLength $SpringID $NodeI $NodeJ -mat 99 99 99 -dir 1 2 6 -doRayleigh 1;;
}