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