利用Mathematica做一个小程序，可以是验证，也可以是求解。请IT高手帮忙。

用mathematica 5.0 内置的ImplicitPlot计算一个问题，当键入时会出现下面问题：

<<Graphics'ImplicitPlot'

Get::noopen: Cannot open Graphics.

ImplicitPlot'Failed'

其实应该是：

<<Graphics`ImplicitPlot`

这个题的问题就出在符号输入有误，这里的一撇`应该是Tab键上面的那个撇，而不是单引号。初学mathematica软件包的同学经常犯这种错误。

Plot[Sin[x], {x, 0, 6 Pi}]

Plot[Cos[x], {x, 0, 6 Pi}]

Limit[1/x, x ->0]

Limit[Sin[x], x ->0]

D[Sin[x], x]

D[1/x, x]

Integrate[Cos[x], x]

Integrate[3 x, x]

上面应该是你要的答案，你最好再问问其它人。

注意：字母的大小写；数字与字母之间有一个空格；要知道上面的特殊符号是如何输入进mathematica的

那40分你可以自己留着了。

Ran[n_]:=Module[{A,i,t=0},

A=Table[0,{i,1,n}](* 保存随机结果 *)

SeedRandom[](* 用当前时间作为随机的种子 *)

For[i=1,i<=n,i++,

A[[i]]=Random[Integer](* 产生随机数0或者1,0：反面，1：正面 *)

If[A[[i]]==1,

t=t+1

]

]

Print["正面频率：",t," 概率：",1.0t/n]

(*Print[A]去掉星号和括号可以输出随机结果*)

]

具体已发你邮箱，注意查收，满意请给分哦！

---