with(finance): with(stats): with(plots): S:=350.80: K:=350.00: r:=0.0049: T:=7/12: C:= sig -> S* (1.0 + erf((ln(S/K)+(r+sig^2/2)*T)/(sig*sqrt(2*T))))/2 - K*exp(-r*T)*(1.0+ erf((ln(S/K)+(r-sig^2/2)*T)/(sig*sqrt(2*T))))/2; Zio2I0kkc2lnRzYiRiU2JEkpb3BlcmF0b3JHRiVJJmFycm93R0YlRiUsJiomSSJTR0YlIiIiLCYkIiM1ISIiRiwtSSRlcmZHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRiU2IyooLCYtSSNsbkdGMzYjKiZGK0YsSSJLR0YlRjBGLComLCZJInJHRiVGLCokOSQiIiMjRixGQ0YsSSJUR0YlRixGLEYsRkJGMC1JJXNxcnRHRjM2IywkRkVGQ0YwRixGLEZEKihGPUYsLUkkZXhwR0YzNiMsJComRkBGLEZFRixGMEYsLCZGLkYsLUYyNiMqKCwmRjlGLComLCZGQEYsRkEjRjBGQ0YsRkVGLEYsRixGQkYwRkZGMEYsRixGV0YlRiVGJQ== QyQ+SSJ6RzYiLUkmc29sdmVHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHRiU2JC8tSSJDR0YlNiNJJHNpZ0dGJSQiJXFbISIjRjAiIiI= JCIrY1Y6MFghIzU= LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzY2LUkjbWlHRiQ2JVEmVmFsdWVGJy8lJ2l0YWxpY0dRJXRydWVGJy8lLG1hdGh2YXJpYW50R1EnaXRhbGljRictSSNtb0dGJDYtUSJ+RicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0Y9LyUpc3RyZXRjaHlHRj0vJSpzeW1tZXRyaWNHRj0vJShsYXJnZW9wR0Y9LyUubW92YWJsZWxpbWl0c0dGPS8lJ2FjY2VudEdGPS8lJ2xzcGFjZUdRJjAuMGVtRicvJSdyc3BhY2VHRkwtRjY2L1EkZm9yRicvJSVib2xkR0YxL0YzUSVib2xkRicvJStmb250d2VpZ2h0R0ZVRjtGPkZARkJGREZGRkhGSkZNRjUtRiw2JVEnR29vZ2xlRidGL0YyRjUtRiw2JVEqcXVhcnRlcmx5RidGL0YyRjUtRiw2JVErdm9sYXRpbGl0eUYnRi9GMkY1LUYsNiVRI29uRidGL0YyRjUtRiw2JVEkRmViRidGL0YyRjUtSSNtbkdGJDYkUSMxOUYnRjlGNS1GLDYlUSR3YXNGJ0YvRjJGNS1GYm82JFEmNTguNjNGJ0Y5Rjk= QyY+JkkkS2V4RzYiNiMiIiIkIiYrNSQhIiMhIiI/KEkiaUdGJiIiI0YoIiIqSSV0cnVlRyUqcHJvdGVjdGVkRz4mRiU2I0YuLCYmRiU2IywmRi5GKEYsRihGKCQiJSs1RitGKEYo JCImKz8kISIj JCImK0kkISIj JCImK1MkISIj JCImK10kISIj JCImK2ckISIj JCImK3EkISIj JCImKyFRISIj JCImKyFSISIj QzQ+JkklQ2FsbEc2IjYjIiIiJCIlSXAhIiMhIiI+JkYlNiMiIiMkIiU/akYrRiw+JkYlNiMiIiQkIiU1ZEYrRiw+JkYlNiMiIiUkIiU/Y0YrRiw+JkYlNiMiIiYkIiVxW0YrRiw+JkYlNiMiIickIiU/VEYrRiw+JkYlNiMiIigkIiUtUkYrRiw+JkYlNiMiIikkIiVdS0YrRiw+JkYlNiMiIiokIiVRSkYrRig= JCIlUUohIiM= QyQ/KEkiaUc2IiIiIkYmIiIqSSV0cnVlRyUqcHJvdGVjdGVkR0MkPkkiS0dGJSZJJEtleEdGJTYjRiQ+Jkkkdm9sR0YlRi8tSSZzb2x2ZUc2JEYpSShfc3lzbGliR0YlNiQvLUkiQ0dGJTYjSSRzaWdHRiUmSSVDYWxsR0YlRi9GPEYm JCImKzUkISIj JCIrOWpRXFghIzU= JCImKz8kISIj JCIrQjlOJFwlISM1 JCImK0kkISIj JCIrbmF3MFchIzU= JCImK1MkISIj JCIrTSNcUHolISM1 JCImK10kISIj JCIrY1Y6MFghIzU= JCImK2ckISIj JCIrU0g/Jj4lISM1 JCImK3EkISIj JCIrMDJsY1YhIzU= JCImKyFRISIj JCIrZDF6IjMlISM1 JCImKyFSISIj JCIrRV4oZUclISM1 QyQtSSpwb2ludHBsb3RHNiI2JjwjLUkkc2VxRyUqcHJvdGVjdGVkRzYkNyQmSSRLZXhHRiU2I0kiaUdGJSZJJHZvbEdGJUYvL0YwOyIiIiIiKi9JJmNvbG9yR0YlSSRyZWRHRiUvSSdzeW1ib2xHRipJLXNvbGlkZGlhbW9uZEdGJS9JK3N5bWJvbHNpemVHRiUiIz1GNQ== NiYtJSdQT0lOVFNHNis3JCQiJStKISIiJCIrOWpRXFghIzU3JCQiJStLISIiJCIrQjlOJFwlISM1NyQkIiUrTCEiIiQiK25hdzBXISM1NyQkIiUrTSEiIiQiK00jXFB6JSEjNTckJCIlK04hIiIkIitjVjowWCEjNTckJCIlK08hIiIkIiolSD8mPiUhIio3JCQiJStQISIiJCIrMDJsY1YhIzU3JCQiJStRISIiJCIrZDF6IjMlISM1NyQkIiUrUiEiIiQiK0VeKGVHJSEjNS0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiEhIiIkIiIhISIiLSUnU1lNQk9MRzYkJS5fU09MSURESUFNT05ERyIjPS0lJVJPT1RHNictJSlCT1VORFNfWEc2IyQiJCFSISIiLSUpQk9VTkRTX1lHNiMkIiQrIiEiIi0lLUJPVU5EU19XSURUSEc2IyQiJXFNISIiLSUuQk9VTkRTX0hFSUdIVEc2IyQiJSFlJCEiIi0lKUNISUxEUkVORzYi LUkjbWlHNiMvSSttb2R1bGVuYW1lRzYiSSxUeXBlc2V0dGluZ0dJKF9zeXNsaWJHRic2JVEkYD9gRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0Yn