积分无法计算

楚香饭

1. 我建议你换一本教科书。
都什么年代了，还用这么古老的代码风格，真是痛心。
放弃固定格式吧，放弃全部大写吧，放弃DATA语句吧，放弃 DO 数字 CONTINUE 吧
老代码尚且可以忍受，自己书写代码，为什么还要用这种古老的风格呢？？

2. 一定要书写 Implicit None，否则你出错了自己都不知道。比如 F3 函数里，你忘了定义 N 是 double，编译器误以为是 integer，结果就出现不可预料的后果。

3. 你的问题结果非常大，double 已经不足以承受。
特别是 F5 函数
  F5=(1/3.1415926)*(COS(b*(e-IC(b))))*EXP(-1*b*IS(b))
当 b 到 7.8 以后，IS 返回就是 -190 多。EXP 已经 10的500次方了。