00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034 #include <CriteriaReductionMeritFunctionCheck.h>
00035 #include <MeritFunctionCheck.h>
00036 #include <ReliabilityConvergenceCheck.h>
00037 #include <math.h>
00038 #include <Vector.h>
00039
00040
00041 CriteriaReductionMeritFunctionCheck::CriteriaReductionMeritFunctionCheck(ReliabilityConvergenceCheck *passedReliabilityConvergenceCheck)
00042 :MeritFunctionCheck()
00043 {
00044 theReliabilityConvergenceCheck = passedReliabilityConvergenceCheck;
00045 }
00046
00047 CriteriaReductionMeritFunctionCheck::~CriteriaReductionMeritFunctionCheck()
00048 {
00049 }
00050
00051
00052
00053
00054
00055
00056
00057 int
00058 CriteriaReductionMeritFunctionCheck::check(Vector u_old,
00059 double g_old,
00060 Vector grad_G_old,
00061 double stepSize,
00062 Vector stepDirection,
00063 double g_new,
00064 Vector grad_G_new)
00065 {
00066
00067 Vector u_new = u_old + stepSize*stepDirection;
00068
00069
00070
00071 int numCrit = theReliabilityConvergenceCheck->getNumberOfCriteria();
00072
00073
00074
00075 int i;
00076 Vector oldCriteriaValues(numCrit);
00077 Vector newCriteriaValues(numCrit);
00078
00079
00080
00081 theReliabilityConvergenceCheck->check(u_old,g_old,grad_G_old);
00082 for (i=1; i<=numCrit; i++) {
00083 oldCriteriaValues(i-1) = theReliabilityConvergenceCheck->getCriteriaValue(i);
00084 }
00085
00086
00087
00088 theReliabilityConvergenceCheck->check(u_new,g_new,grad_G_new);
00089 for (i=1; i<=numCrit; i++) {
00090 newCriteriaValues(i-1) = theReliabilityConvergenceCheck->getCriteriaValue(i);
00091 }
00092
00093
00094
00095 bool OK = true;
00096 for (i=1; i<=numCrit; i++) {
00097 if (newCriteriaValues(i-1)>oldCriteriaValues(i-1)) {
00098 OK = false;
00099 }
00100 }
00101
00102
00103
00104 if (OK) {
00105 return 1;
00106 }
00107 else {
00108 return -1;
00109 }
00110 }
00111
00112
00113
00114
00115
00116 double
00117 CriteriaReductionMeritFunctionCheck::getMeritFunctionValue(Vector u,
00118 double g,
00119 Vector grad_G)
00120 {
00121 opserr << "CriteriaReductionMeritFunctionCheck::getMeritFunctionValue() -- this method" << endln
00122 << " is not implemented in this specific class." << endln;
00123
00124 return 0.0;
00125 }
00126
00127 int
00128 CriteriaReductionMeritFunctionCheck::updateMeritParameters(Vector u,
00129 double g,
00130 Vector grad_G)
00131 {
00132 opserr << "CriteriaReductionMeritFunctionCheck::updateMeritParameters() -- this method" << endln
00133 << " is not implemented in this specific class." << endln;
00134
00135 return 0;
00136 }