proc Series_GM_Analyze { SeriesName Damping GM_Name_List dt { Model_Descp "" } } {  #Input Model  source "Model\0_Main.tcl"  #Damping Ratio Define  Rayleigh_Proc 1 2 $Damping  #Gravity_Analysis  Gravity_Proc 10  ##Time History LoadTag  set gmLoadCaseTag 1000  ##Foreach LoadCase Name  foreach GM_Name $GM_Name_List {    set direct_name "$SeriesName\$GM_Name"    #Create Directory    file mkdir $direct_name    #Define Recorder    Recorder_Proc $direct_name    #Ground Motion Analysis    set TimeCost [SeriesGroundMotionAnalysis $gmLoadCaseTag $GM_Name $dt $Model_Descp]    }    #Analysis Time    puts "*$Model_Descp $GM_Name Finish with [format "%.0f" $TimeCost] second."    #Update loadcase tag    set gmLoadCaseTag [expr $gmLoadCaseTag + 3]    #Remove old recorder    remove recorders    #Time back to Zero    loadConst -time 0.0  }  #Clear All  wipe All  #Return  return 0}
#GroundMotion Analysisproc SeriesGroundMotionAnalysis { LoadTag GM_Name dt { Model_Descp "" } } {  #Define FileName_List  set iGMfileList [list "GroundMotion//X//$GM_Name.txt" "GroundMotion//Y//$GM_Name.txt" "GroundMotion//Z//$GM_Name.txt"]  #Define Direction  set iGMdirList [list "1" "2" "3"]   #Define Factors  set iGMfactList [list 1.0 1.0 1.0]  #Define Ground Motion  foreach GMFile $iGMfileList GMDir $iGMdirList GMFact $iGMfactList {    #Define Load Case    pattern UniformExcitation $LoadTag $GMDir -accel "Series -dt $dt -filePath $GMFile -factor $GMFact"    incr LoadTag  }  #Get File PrtNumber  set PrtNum [GetFilePrtNum "GroundMotion\X\$GM_Name.txt"]  set Duration [expr $PrtNum * $dt + 10]  #GMDAnalyze_Proc  return [GMDAnalyze_Proc $Duration $dt "$Model_Descp $GM_Name"]}

#Model Descpset Model_Descp "OpenSEES"#Damping Ratioset Damping 0.05#Series Nameset seriesName "GMSeries1"#Ground Motion Descpset GM_Name_List [list "GM1_04g" "GM1_06g"] #Digital Intervalset dt 0.02#Input TCLsource "Model\12_OSM.tcl"#Series AnalysisSeries_GM_Analyze $seriesName $Damping $GM_Name_List $dt $Model_Descp