Advertisement
Guest User

Untitled

a guest
Sep 1st, 2015
127
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.10 KB | None
  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]
Advertisement
RAW Paste Data Copied
Advertisement