$ONEMPTY

SETS
   RFD                / 1*1 /
   I                  / 1*1 /

PARAMETER T_DELTA(RFD)
/
1     -64452.739441
/
;


PARAMETER TOLERANCE(RFD)
/
1     0.100000
/
;


TABLE DELTA(RFD,I)
$ONDELIM
RFD,1
1,-200.235084
$OFFDELIM
;

display delta;

VARIABLES
   X(I)
   D_HDG
   TARGET;

* -------- EQUATION SECTION ------------------------------------------

EQUATIONS
   OTHER(RFD)
   E_DHEDGE
   E_HEDGE
   E_DTOLL(RFD)
   E_DTOLU(RFD);

VARIABLES DEFVAR(RFD);

OTHER(RFD)..
  DEFVAR(RFD) =E= SUM(I,X(I)*DELTA(RFD,I)) - T_DELTA(RFD);

E_DHEDGE..
  SUM(RFD,SQR(DEFVAR(RFD))) =E= D_HDG;

E_HEDGE.. 
  D_HDG =E= TARGET;

E_DTOLL(RFD)..
  DEFVAR(RFD) =G= 
    -TOLERANCE (RFD) * ABS (T_DELTA(RFD));

E_DTOLU(RFD)..
  DEFVAR(RFD) =L= 
    TOLERANCE (RFD) * ABS (T_DELTA(RFD));

MODEL Hedge
/
   OTHER,
   E_DHEDGE,
   E_DTOLL,
   E_DTOLU
/;

* option nlp = minos5;

other.scale(rfd) = 1e2;
defvar.scale(rfd) = 1e2;
e_dtoll.scale(rfd) = 1e2;
Hedge.scaleopt = 1;

SOLVE Hedge MINIMIZING D_HDG USING NLP;