Mathematica程序 由图象求Cos.docVIP

Mathematica程序由图象求Cos[Cos[...[Cos[x]]]]的极限x=Input["输入起始值",0.935];y={{x,0}};For[i=1,i<50,i++,y=Append[y,{x,Cos[x]}];y=...