Advertisement
Guest User

Untitled

a guest
Jun 27th, 2019
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
  1. Tab1 = Table[i*10, {i, 0, 20}];
  2.  
  3. Tab2 = Table[i, {i, 0, 20}];
  4.  
  5. Tab3 = Table[i*0.1, {i, 0, 20}];
  6.  
  7. plot1 = ListPlot[Transpose[{Tab1, Tab3}],
  8. Frame -> {True, True, False, False},
  9. FrameLabel -> {"Parameter 1", "Y axis", None, None},
  10. ImagePadding -> 50, FrameTicks -> {{All, None}, {All, None}}];
  11.  
  12. plot2 = ListPlot[Transpose[{Tab2, Tab3}],
  13. Frame -> {False, False, True, True},
  14. FrameLabel -> {None, None, "Parameter 2", "Y axis"},
  15. ImagePadding -> 50, FrameTicks -> {{None, All}, {None, All}}];
  16.  
  17. Overlay[{plot1, plot2}]
  18.  
  19. tab1 = Table[i*10, {i, 0, 20}];(*Parameter 1*)
  20.  
  21. tab2 = Table[i, {i, 0, 20}];(*Parameter 2*)
  22.  
  23. tab3 = Table[i*0.1, {i, 0, 20}];
  24.  
  25. tab4 = Transpose[{tab1, tab2, tab3}];
  26.  
  27. ListDensityPlot[tab4,
  28. ColorFunction -> "Rainbow", PlotLegends -> Automatic,
  29. Frame -> True,
  30. FrameLabel -> {"Parameter 1", "Parameter 2"},
  31. LabelStyle -> Directive[Black, 14], ImageSize -> Large]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement