| 38 | #define DEBG 0 |
| 39 | |
| 40 | Mehanny::Mehanny(int tag, double alpha, double beta, double gamma, |
| 41 | double ultimatePosValue , double ultimateNegValue, double abstol, double reltol, |
| 42 | double posmodifier, double negmodifier) |
| 43 | :DamageModel(tag,DMG_TAG_Mehanny), |
| 44 | Alpha(alpha) , Beta(beta) , Gamma(gamma) , UltimatePosValue(ultimatePosValue) , UltimateNegValue(ultimateNegValue), |
| 45 | PosModifier(posmodifier), NegModifier(negmodifier),AbsTol(abstol), RelTol(reltol) |
| 46 | { |
| 47 | if ( UltimatePosValue<=0 || Alpha<0 || Beta<0 || Gamma<0 ) |
| 48 | opserr << "CumulativePeak::CumulativePeak : Incorrect arguments for the damage model"; |
| 49 | |
| 50 | if ( UltimateNegValue == 0.0 ) { |
| 51 | UltimateNegValue = UltimatePosValue; |
| 52 | } else { |
| 53 | UltimateNegValue = fabs ( UltimateNegValue ) ; |
| 54 | } |
| 55 | |
| 56 | if ( AbsTol < 0.0 ) AbsTol = 1.0; |
| 57 | if ( RelTol < 0.0 ) RelTol = 1.0; |
| 58 | if ( PosModifier < 0.0 ) PosModifier = 1.0; |
| 59 | if ( NegModifier < 0.0 ) NegModifier = 1.0; |
| 60 | |
| 61 | this->revertToStart(); |
| 62 | |
| 63 | /* |
| 64 | if ( DEBG ==1 ) |
| 65 | { |
| 66 | // Open an output file for debugging |
| 67 | char FileName[20]; // debugging |
| 68 | sprintf(FileName, "Mehanny%d.out", tag); |
| 69 | OutputFile = fopen ( FileName , "w" ); // debugging |
| 70 | fprintf( OutputFile , "\t dp\t\t pcyc\t\t pFHC\t\t pPHC\t\t ncyc\t\t nFHC\t\t nPHC\t\t dmg \n" ) ; |
| 71 | } |
| 72 | */ |
| 73 | } |
| 74 | |
| 75 | Mehanny::Mehanny() |
| 76 | :DamageModel(0,DMG_TAG_Mehanny) |
nothing calls this directly
no test coverage detected