* do-file for Supplementary Exercise 5.64 of IPS7e
version 15 /* works also with versions 13-14 */

* (b)
display binomialtail(1500,1000,0.7) 
* normal approximation with continuity correction
display 1-normal((1000-0.5-1500*0.7)/sqrt(1500*0.7*0.3))

* (c)
display binomialtail(1500,1201,0.7) 
* normal approximation with continuity correction
display 1-normal((1200+0.5-1500*0.7)/sqrt(1500*0.7*0.3))

* (d)
display binomialtail(1700,1201,0.7) 
display 1-normal((1200+0.5-1700*0.7)/sqrt(1700*0.7*0.3))