Mathematica入门习题[18]–插值

王 茂南 2017年10月4日12:27:17
评论
1042字阅读3分28秒

 

第十八题--插值

 

Mathematica入门习题[18]–插值

 

Clear["Global`*"]
time = Table[i, {i, 6, 18, 2}] ;
tempIn = {18, 20, 22, 25, 30, 28, 24};
tempOut = {15, 19, 24, 28, 34, 32, 30};
fIn = Interpolation[Transpose[{time, tempIn}], Method -> "Spline"];
fOut = Interpolation[Transpose[{time, tempOut}], Method -> "Spline"];
Plot[fIn[x], {x, 6, 18.5}, PlotLabel -> Style["室内温度", Bold, 20]]~Show~
ListPlot[Table[{x, fIn[x]}, {x, 6.5, 18.5, 2}],
PlotStyle -> {Hue[.3], PointSize[.03]}]
Plot[fOut[x], {x, 6, 18.5},
PlotLabel -> Style["室外温度", Bold, 20]]~Show~
ListPlot[Table[{x, fOut[x]}, {x, 6.5, 18.5, 2}],
PlotStyle -> {Hue[.3], PointSize[.03]}]

 

Mathematica入门习题[18]–插值

 

 

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南
  • 本文由 发表于 2017年10月4日12:27:17
  • 转载请务必保留本文链接:https://mathpretty.com/8160.html
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: