fmcmap/tp117r2.map


If Cut/Copy and Paste fails, then click here for download.


fmcTitle("tp117r2"):
# Source version 1
# Simple APM canonicalizer version 1.3
# FMCMAP back end version 1.1
asin := proc(x::algebraic) local y: y := arcsin(x): RETURN(y): end:
atan := proc(x::algebraic) local y: y := arctan(x): RETURN(y): end:
myownabs := proc(x::algebraic) local y: y := fmc_m_abs(x): RETURN(y): end:
a24a := 4/10:
a24b := 4:
a24 := a24a:
ivxhs_1 := 0.001:
ivxhs_2 := 0.001:
ivxhs_3 := 0.001:
ivxhs_4 := 0.001:
ivxhs_5 := 0.001:
ivxhs_6 := 0.001:
ivxhs_7 := 60:
ivxhs_8 := 0.001:
ivxhs_9 := 0.001:
ivxhs_10 := 0.001:
ivxhs_11 := 0.001:
ivxhs_12 := 0.001:
ivxhs_13 := 0.001:
ivxhs_14 := 0.001:
ivxhs_15 := 0.001:
lbx_1 := 0:
lbx_2 := 0:
lbx_3 := 1:
lbx_4 := 0:
lbx_5 := 1:
lbx_6 := 1:
lbx_7 := 0:
lbx_8 := 0:
lbx_9 := 0.09:
lbx_10 := 0:
lbx_11 := 0.1:
lbx_12 := 0.3:
lbx_13 := 0.3:
lbx_14 := 0.2:
lbx_15 := 0.1:
ivx_1 := (1/2)*(abs(ivxhs_1 - lbx_1) + (ivxhs_1 + lbx_1)):
ivx_2 := (1/2)*(abs(ivxhs_2 - lbx_2) + (ivxhs_2 + lbx_2)):
ivx_3 := (1/2)*(abs(ivxhs_3 - lbx_3) + (ivxhs_3 + lbx_3)):
ivx_4 := (1/2)*(abs(ivxhs_4 - lbx_4) + (ivxhs_4 + lbx_4)):
ivx_5 := (1/2)*(abs(ivxhs_5 - lbx_5) + (ivxhs_5 + lbx_5)):
ivx_6 := (1/2)*(abs(ivxhs_6 - lbx_6) + (ivxhs_6 + lbx_6)):
ivx_7 := (1/2)*(abs(ivxhs_7 - lbx_7) + (ivxhs_7 + lbx_7)):
ivx_8 := (1/2)*(abs(ivxhs_8 - lbx_8) + (ivxhs_8 + lbx_8)):
ivx_9 := (1/2)*(abs(ivxhs_9 - lbx_9) + (ivxhs_9 + lbx_9)):
ivx_10 := (1/2)*(abs(ivxhs_10 - lbx_10) + (ivxhs_10 + lbx_10)):
ivx_11 := (1/2)*(abs(ivxhs_11 - lbx_11) + (ivxhs_11 + lbx_11)):
ivx_12 := (1/2)*(abs(ivxhs_12 - lbx_12) + (ivxhs_12 + lbx_12)):
ivx_13 := (1/2)*(abs(ivxhs_13 - lbx_13) + (ivxhs_13 + lbx_13)):
ivx_14 := (1/2)*(abs(ivxhs_14 - lbx_14) + (ivxhs_14 + lbx_14)):
ivx_15 := (1/2)*(abs(ivxhs_15 - lbx_15) + (ivxhs_15 + lbx_15)):
fmcInitialValue('x_1', ivx_1):
fmcStrongLowerBound('x_1', lbx_1):
fmcInitialValue('x_2', ivx_2):
fmcStrongLowerBound('x_2', lbx_2):
fmcInitialValue('x_3', ivx_3):
fmcStrongLowerBound('x_3', lbx_3):
fmcInitialValue('x_4', ivx_4):
fmcStrongLowerBound('x_4', lbx_4):
fmcInitialValue('x_5', ivx_5):
fmcStrongLowerBound('x_5', lbx_5):
fmcInitialValue('x_6', ivx_6):
fmcStrongLowerBound('x_6', lbx_6):
fmcInitialValue('x_7', ivx_7):
fmcStrongLowerBound('x_7', lbx_7):
fmcInitialValue('x_8', ivx_8):
fmcStrongLowerBound('x_8', lbx_8):
fmcInitialValue('x_9', ivx_9):
fmcStrongLowerBound('x_9', lbx_9):
fmcInitialValue('x_10', ivx_10):
fmcStrongLowerBound('x_10', lbx_10):
fmcInitialValue('x_11', ivx_11):
fmcStrongLowerBound('x_11', lbx_11):
fmcInitialValue('x_12', ivx_12):
fmcStrongLowerBound('x_12', lbx_12):
fmcInitialValue('x_13', ivx_13):
fmcStrongLowerBound('x_13', lbx_13):
fmcInitialValue('x_14', ivx_14):
fmcStrongLowerBound('x_14', lbx_14):
fmcInitialValue('x_15', ivx_15):
fmcStrongLowerBound('x_15', lbx_15):
c_1 := (-15) + 16*x_1 + (7/2)*x_3 - 2*x_6 + x_7 + x_8 - x_9 - x_10 + 60*x_11 - 40*x_12 - 20*x_13 + 64*x_14 -
20*x_15 + 12*x_11^2:
c_2 := (-27) - 2*x_1 + 2*x_2 + 2*x_4 + 9*x_5 + x_7 + 2*x_8 - 2*x_9 - x_10 - 40*x_11 + 78*x_12 - 12*x_13 -
62*x_14 + 64*x_15 + 24*x_12^2:
c_3 := (-36) - 2*x_3 + 2*x_5 + 4*x_6 + x_7 + 3*x_8 - 3*x_9 - x_10 - 20*x_11 - 12*x_12 + 20*x_13 - 12*x_14 -
20*x_15 + 30*x_13^2:
c_4 := (-18) - x_1 - a24*x_2 + 4*x_4 - x_5 + x_7 + 2*x_8 - 4*x_9 - x_10 + 64*x_11 - 62*x_12 - 12*x_13 +
78*x_14 - 40*x_15 + 18*x_14^2:
c_5 := (-12) - 2*x_2 + x_4 + (14/5)*x_5 + x_7 + x_8 - 5*x_9 - x_10 - 20*x_11 + 64*x_12 - 20*x_13 - 40*x_14 +
60*x_15 + 6*x_15^2:
mf := 40*x_1 + 2*x_2 + (1/4)*x_3 + 4*x_4 + 4*x_5 + x_6 + 40*x_7 + 60*x_8 - 5*x_9 - x_10 + 30*x_11^2 -
40*x_11*x_12 - 20*x_11*x_13 + 64*x_11*x_14 - 20*x_11*x_15 + 39*x_12^2 - 12*x_12*x_13 - 62*x_12*x_14 +
64*x_12*x_15 + 10*x_13^2 - 12*x_13*x_14 - 20*x_13*x_15 + 39*x_14^2 - 40*x_14*x_15 + 30*x_15^2 + 8*x_11^3 +
16*x_12^3 + 20*x_13^3 + 12*x_14^3 + 4*x_15^3:
myminfun := mf:
myabsdevnod0_0 := myownabs(myminfun - 32.34867896572271):
myreldevnod0_0 := myownabs(myminfun/32.34867896572271 - 1):
myabsdevnod0_1 := myownabs(x_1):
myreldevnod0_1 := myownabs(x_1):
myabsdevnod0_2 := myownabs(x_2):
myreldevnod0_2 := myownabs(x_2):
myabsdevnod0_3 := myownabs(x_3 - 5.174040727698173):
myreldevnod0_3 := myownabs(x_3/5.174040727698173 - 1):
myabsdevnod0_4 := myownabs(x_4):
myreldevnod0_4 := myownabs(x_4):
myabsdevnod0_5 := myownabs(x_5 - 3.06110868775845):
myreldevnod0_5 := myownabs(x_5/3.06110868775845 - 1):
myabsdevnod0_6 := myownabs(x_6 - 11.83954566480073):
myreldevnod0_6 := myownabs(x_6/11.83954566480073 - 1):
myabsdevnod0_7 := myownabs(x_7):
myreldevnod0_7 := myownabs(x_7):
myabsdevnod0_8 := myownabs(x_8):
myreldevnod0_8 := myownabs(x_8):
myabsdevnod0_9 := myownabs(x_9 - 0.1038961907706158):
myreldevnod0_9 := myownabs(x_9/0.1038961907706158 - 1):
myabsdevnod0_10 := myownabs(x_10):
myreldevnod0_10 := myownabs(x_10):
myabsdevnod0_11 := myownabs(x_11 - 0.3):
myreldevnod0_11 := myownabs(x_11/0.3 - 1):
myabsdevnod0_12 := myownabs(x_12 - 0.3334676065346071):
myreldevnod0_12 := myownabs(x_12/0.3334676065346071 - 1):
myabsdevnod0_13 := myownabs(x_13 - 0.4):
myreldevnod0_13 := myownabs(x_13/0.4 - 1):
myabsdevnod0_14 := myownabs(x_14 - 0.4283101047816988):
myreldevnod0_14 := myownabs(x_14/0.4283101047816988 - 1):
myabsdevnod0_15 := myownabs(x_15 - 0.2239648735607981):
myreldevnod0_15 := myownabs(x_15/0.2239648735607981 - 1):
myabsdevnod1_0 := (1/2)*(myownabs(myabsdevnod0_0 - myabsdevnod0_1) + (myabsdevnod0_0 + myabsdevnod0_1)):
myreldevnod1_0 := (1/2)*(myownabs(myreldevnod0_0 - myreldevnod0_1) + (myreldevnod0_0 + myreldevnod0_1)):
myabsdevnod1_2 := (1/2)*(myownabs(myabsdevnod0_2 - myabsdevnod0_3) + (myabsdevnod0_2 + myabsdevnod0_3)):
myreldevnod1_2 := (1/2)*(myownabs(myreldevnod0_2 - myreldevnod0_3) + (myreldevnod0_2 + myreldevnod0_3)):
myabsdevnod1_4 := (1/2)*(myownabs(myabsdevnod0_4 - myabsdevnod0_5) + (myabsdevnod0_4 + myabsdevnod0_5)):
myreldevnod1_4 := (1/2)*(myownabs(myreldevnod0_4 - myreldevnod0_5) + (myreldevnod0_4 + myreldevnod0_5)):
myabsdevnod1_6 := (1/2)*(myownabs(myabsdevnod0_6 - myabsdevnod0_7) + (myabsdevnod0_6 + myabsdevnod0_7)):
myreldevnod1_6 := (1/2)*(myownabs(myreldevnod0_6 - myreldevnod0_7) + (myreldevnod0_6 + myreldevnod0_7)):
myabsdevnod1_8 := (1/2)*(myownabs(myabsdevnod0_8 - myabsdevnod0_9) + (myabsdevnod0_8 + myabsdevnod0_9)):
myreldevnod1_8 := (1/2)*(myownabs(myreldevnod0_8 - myreldevnod0_9) + (myreldevnod0_8 + myreldevnod0_9)):
myabsdevnod1_10 := (1/2)*(myownabs(myabsdevnod0_10 - myabsdevnod0_11) + (myabsdevnod0_10 + myabsdevnod0_11)):
myreldevnod1_10 := (1/2)*(myownabs(myreldevnod0_10 - myreldevnod0_11) + (myreldevnod0_10 + myreldevnod0_11)):
myabsdevnod1_12 := (1/2)*(myownabs(myabsdevnod0_12 - myabsdevnod0_13) + (myabsdevnod0_12 + myabsdevnod0_13)):
myreldevnod1_12 := (1/2)*(myownabs(myreldevnod0_12 - myreldevnod0_13) + (myreldevnod0_12 + myreldevnod0_13)):
myabsdevnod1_14 := (1/2)*(myownabs(myabsdevnod0_14 - myabsdevnod0_15) + (myabsdevnod0_14 + myabsdevnod0_15)):
myreldevnod1_14 := (1/2)*(myownabs(myreldevnod0_14 - myreldevnod0_15) + (myreldevnod0_14 + myreldevnod0_15)):
myabsdevnod2_0 := (1/2)*(myownabs(myabsdevnod1_0 - myabsdevnod1_2) + (myabsdevnod1_0 + myabsdevnod1_2)):
myreldevnod2_0 := (1/2)*(myownabs(myreldevnod1_0 - myreldevnod1_2) + (myreldevnod1_0 + myreldevnod1_2)):
myabsdevnod2_4 := (1/2)*(myownabs(myabsdevnod1_4 - myabsdevnod1_6) + (myabsdevnod1_4 + myabsdevnod1_6)):
myreldevnod2_4 := (1/2)*(myownabs(myreldevnod1_4 - myreldevnod1_6) + (myreldevnod1_4 + myreldevnod1_6)):
myabsdevnod2_8 := (1/2)*(myownabs(myabsdevnod1_8 - myabsdevnod1_10) + (myabsdevnod1_8 + myabsdevnod1_10)):
myreldevnod2_8 := (1/2)*(myownabs(myreldevnod1_8 - myreldevnod1_10) + (myreldevnod1_8 + myreldevnod1_10)):
myabsdevnod2_12 := (1/2)*(myownabs(myabsdevnod1_12 - myabsdevnod1_14) + (myabsdevnod1_12 + myabsdevnod1_14)):
myreldevnod2_12 := (1/2)*(myownabs(myreldevnod1_12 - myreldevnod1_14) + (myreldevnod1_12 + myreldevnod1_14)):
myabsdevnod3_0 := (1/2)*(myownabs(myabsdevnod2_0 - myabsdevnod2_4) + (myabsdevnod2_0 + myabsdevnod2_4)):
myreldevnod3_0 := (1/2)*(myownabs(myreldevnod2_0 - myreldevnod2_4) + (myreldevnod2_0 + myreldevnod2_4)):
myabsdevnod3_8 := (1/2)*(myownabs(myabsdevnod2_8 - myabsdevnod2_12) + (myabsdevnod2_8 + myabsdevnod2_12)):
myreldevnod3_8 := (1/2)*(myownabs(myreldevnod2_8 - myreldevnod2_12) + (myreldevnod2_8 + myreldevnod2_12)):
myabsdevnod4_0 := (1/2)*(myownabs(myabsdevnod3_0 - myabsdevnod3_8) + (myabsdevnod3_0 + myabsdevnod3_8)):
myreldevnod4_0 := (1/2)*(myownabs(myreldevnod3_0 - myreldevnod3_8) + (myreldevnod3_0 + myreldevnod3_8)):
zmyabsdevmax := myabsdevnod4_0:
zmyreldevmax := myreldevnod4_0:
obj := myminfun:
fmcMinimum(obj):
fmcInequality('ci_1', c_1):
fmcInequality('ci_2', c_2):
fmcInequality('ci_3', c_3):
fmcInequality('ci_4', c_4):
fmcInequality('ci_5', c_5):
fmcEscortFloat('x_1', x_1):
fmcEscortFloat('x_2', x_2):
fmcEscortFloat('x_3', x_3):
fmcEscortFloat('x_4', x_4):
fmcEscortFloat('x_5', x_5):
fmcEscortFloat('x_6', x_6):
fmcEscortFloat('x_7', x_7):
fmcEscortFloat('x_8', x_8):
fmcEscortFloat('x_9', x_9):
fmcEscortFloat('x_10', x_10):
fmcEscortFloat('x_11', x_11):
fmcEscortFloat('x_12', x_12):
fmcEscortFloat('x_13', x_13):
fmcEscortFloat('x_14', x_14):
fmcEscortFloat('x_15', x_15):
fmcEscortFloat('myminfun', myminfun):
fmcEscortFloat('zmyabsdevmax', zmyabsdevmax):
fmcEscortFloat('zmyreldevmax', zmyreldevmax):
fmcControlMinimum(1, 0):
# End Model

Stephan K.H. Seidl