SHARE
TWEET

Untitled

a guest Jun 19th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. data = {{2200, 5}, {1700, 10}, {1050, 20}, {640, 50}, {420, 100}};
  2. lm = LinearModelFit[data, {rpm^3, rpm^2, rpm}, rpm];
  3.  
  4. data1 = {{600, 5}, {800, 10}, {400, 20}, {640, 50}, {440, 100}};
  5.   lm1 = LinearModelFit[data1, {rpm^3, rpm^2, rpm}, rpm];
  6.  
  7. Show[ListPlot[{data, data1}, Filling -> Bottom],
  8.  ListLinePlot[{data, data1}],
  9.  Plot[lm[rpm], {rpm, 0, 125}, PlotLabel -> {"Natural"},
  10.   AxesLabel -> {rpm, [Mu]}, PlotLabels -> {"A6", "A7"}]]
  11.      
  12. Show[
  13.  ListPlot[{data, data1}, Filling -> Bottom, PlotLabels -> {"A6", "A7"}]
  14.  , ListLinePlot[{data, data1}]
  15.  , Plot[lm[rpm], {rpm, 0, 125}]
  16.  , PlotLabel -> "Natural"
  17.  , AxesLabel -> {"rpm", "[Mu]"}
  18.  ]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top