Modeling Options
Add an extra argument B=1 (buy), B = -1 (sell)
call_option(B,S,C,E,P) :-
0 <= S, S <= E/100, P = -C * B.
call_option(B,S,C,E,P) :-
S >= E/100, P = (100*S - E - C)*B.
call_option(1, 7, 200, 300, P)
The goal (the original call option question)