Parameter study

This forum is for issues related to parallel processing
and OpenSees using the new interpreters OpenSeesSP and OpenSeesMP

Moderator: selimgunay

Post Reply
CHANDANA
Posts: 11
Joined: Thu Jan 21, 2016 1:57 am
Location: KTU

Parameter study

Post by CHANDANA » Sun Oct 09, 2016 10:56 pm

Sir,

I was trying to study the example parameter study using parallel processing given in the site.But, i was not able to access the file peerRecords.txt. I kindly request for your help to learn about this example.

Thanks
Chandana M

fmk
Site Admin
Posts: 5883
Joined: Fri Jun 11, 2004 2:33 pm
Location: UC Berkeley
Contact:

Re: Parameter study

Post by fmk » Mon Oct 10, 2016 9:02 am


CHANDANA
Posts: 11
Joined: Thu Jan 21, 2016 1:57 am
Location: KTU

Re: Parameter study

Post by CHANDANA » Mon Oct 10, 2016 10:23 am

Thank you sir

CHANDANA
Posts: 11
Joined: Thu Jan 21, 2016 1:57 am
Location: KTU

Re: Parameter study

Post by CHANDANA » Sun Nov 20, 2016 3:03 am

Sir,

I tried an analysis of a different 2D frame with the help of the parametric study example and the program was run using just two input ground motion file. But, i obtained the same result for both the input motion.

The program file is as below:
wipe
set pid [getPID]
set Np [getNP]
set recordsFileID [open "peerRecord.txt" r]
set count 0;

source ReadRecord.tcl

set tStart [clock clicks -milliseconds]

foreach gMotion [split [read $recordsFileID] \n] {
if {[expr $count % $Np] == $pid} {

source model.tcl
source analysis.tcl

set ok [doGravity]

loadConst -time 0.0

if {$ok == 0} {
set gMotionList [split $gMotion "/"]

set gMotionDir [lindex $gMotionList end-1]

set gMotionNameInclAT2 [lindex $gMotionList end]

set gMotionName [string range $gMotionNameInclAT2 0 end-4 ]


ReadRecord ./$gMotionDir$gMotionName.AT2 ./$gMotionDir$gMotionName.dat dT nPts



set Gaccel "Series -dt $dT -file $gMotionDir$gMotionName.AT2 -factor 1";

pattern UniformExcitation 2 1 -accel $Gaccel;


if {$nPts != 0} {

recorder Node -file $gMotionDir$gMotionName.out -node 3 4 -dof 1 disp

doDynamic [expr $dT*$nPts] $dT

if {$ok == 0} {
puts "$gMotionDir $gMotionName OK"
} else {
puts "$gMotionDir $gMotionName FAILED"
}

} else {
puts "$gMotion - NO RECORD"
}
}

wipe
}
incr count 1;
}
set tEnd [clock clicks -milliseconds]
set duration [expr $tEnd-$tStart]

puts "Duration $duration"
--------------------------
I kindly request for your help to solve this.

Thanks
Chandana M

Post Reply