c[[{1,5,-3}]] {1/2,1/6,1/98}
Apply[Plus,a] 2500
Apply[Times,a]
2725392139750729502980713245400918633290796330545803413734328823443106201171875
Apply[Plus,b] 385
Apply[Times,b] 13168189440000
Apply[Plus,c]
11677821270331852073640165685691639305439/2788815009188499086581352357412492142272 Apply[Times,c]
11677821270331852073640165685691639305439/2788815009188499086581352357412492142272 1/93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
e=Table[RandomReal[],{10}]
{0.230843,0.277505,0.658351,0.0668512,0.722918,0.15122,0.63301,0.253828,0.374543,0.742873}
Sort[e]
{0.0668512,0.15122,0.230843,0.253828,0.277505,0.374543,0.63301,0.658351,0.722918,0.742873}
f=RandomReal[{11,20},10]
{16.7045,18.2893,16.031,11.9766,13.5078,18.3714,12.6226,11.8448,18.5671,18.5001}
Reverse [Sort[ f]]
{18.5671,18.5001,18.3714,18.2893,16.7045,16.031,13.5078,12.6226,11.9766,11.8448} 六、讨论 教师评语
实验二 用曲线图形研究函数特性
一、实验目的
熟悉基本初等函数的图形，熟悉Mathematia数学软件的曲线绘图命令。 二、实验原理
知道基本初等函数概念、学习教材第二章2.2节、2.4节内容——用Mathematia数学软件绘制平面及空间曲线。
三、实验所用主要仪器 计算机
四、实验内容
1．在习题二的1-4题中各任选1题绘制平面曲线图形。
2．每位同学随机给出一些平面点列，画出点列并连接点列为折线。 3．在习题二的8题中任选2题绘制空间曲线图形。 四、实验步骤与结果
P45-1.1=Plot[x^4-5x^3+7x^2-3x,{x,-0.5,3.5}]
Set::write: Tag _Plus_ in _-1.1+P45_ is Protected. ?
?13246 p45-2.1=
ImplicitPlot[x4+y3?1,{x,-1.5,1.5}]
Set::write: Tag _Plus_ in _-2.1+p45_ is Protected. ?
?1.50.51.0
P45-3.1=ParametricPlot[{3t/(1+t^3),3t^2/(1+t^3)},{t,-6,6}] Set::write: Tag _Plus_ in _-3.1+P45_ is Protected. ?
421.00.50.51.01.52.024 P45-4.1= PolarPlot[2t,{t,0,3Pi}] Set::write: Tag _Plus_ in _-4.1+P45_ is Protected. ? ?51015 Mi={{1,2.3},{2,4.9},{3,6.4},{4,7.0},{5,6.5},{6,6.8},{7,8.0},{8,10.6}} ListPlot[Mi] {{1,2.3},{2,4.9},{3,6.4},{4,7.},{5,6.5},{6,6.8},{7,8. },{8,10.6}} 246810
ListPlot[Mi,PlotJoined?True]
2 46810
ParametricPlot3D[{x=0.5*t^2,y=0.1*t^3,z=9*Cos[2*t]},{t,0,6}]
101520?05 ParametricPlot3D[{x=Cos[(t/10)]*Cos[t],y=Cos[(t/10)]*Sin[t],z=Sin[(t/10)]},{t,0,24*?}]
?0.00.51.0 五、讨论
教师评语
