traceaxes
axesarrow
%%unites
%%ticks
%%tracerepere
%%marks
%%quadrillage
-0.5 7 setxrange
-1 5 setyrange
/payoff {0 5} def
/st {7 0} def
$$
pay-off
$$
payoff [1.5 1.5] drtexlabel
$$
S_T
$$
st [1.5 1.5] dltexlabel
/f {setxvar
#rpn# 1
} def
/g {setxvar
#rpn# 0
} def
/strike {3 0} def
continu
rouge
3 15 {f} (\]-) Courbe
bleu
0 3 {g} (\]-\]) Courbe
$$
K
$$
noir
strike point
strike [1.5 1.5] ultexlabel