SHARE
TWEET

Untitled

a guest Sep 1st, 2015 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     name = "Chart";
  2.     nrname = Table[StringJoin[name, ToString[j]], {j, 1, 5}];
  3.        
  4.     sscsv =
  5.       Table[
  6.         Import["C:\\Filepath\\graph_" <> ToString[i] <> ".csv", "Data",
  7.           "HeaderLines" -> 1],
  8.         {i, 5}];
  9.    
  10.     s1 = Abs[sscsv[[1]]];
  11.     s5 = Abs[sscsv[[5]]];
  12.    
  13.     ss1 = s1[[All, {2, 3}]];
  14.     ss5 = s5[[All, {2, 3}]];
  15.    
  16.     sss1 = Cases[ss1, {_, x_ /; x > 8.9}];
  17.     sss5 = Cases[ss5, {_, e_ /; e > 8.9}];
  18.    
  19.     Labeled[
  20.       ListLinePlot[{sss1, sss5},
  21.         PlotRange -> {{40, 47}, {0, 360}},
  22.         PlotStyle -> {{Red, Thick}, {Blue, Thick}},
  23.         PlotLegends ->
  24.           Placed[{"Graph 1", "Graph 2"}, Right],
  25.         Ticks ->
  26.           {{5, 10, 15, 20, 25, 30, 35, 40, 45, 50},
  27.            {0, 25, 50, 75, 100, 125, 150, 175, 200, 225, 250, 275,
  28.             300, 325, 350, 375, 400}},
  29.         PlotLabel ->
  30.           Style[name, FontFamily -> "Arial", FontSize -> 20, FontColor -> Black],
  31.         GridLines -> Automatic,
  32.         Filling -> {1 -> {2}}],
  33.       {"Axis 1", " Axis 2"}, {Bottom, Left},
  34.       RotateLabel -> True]
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