SHARE
TWEET

Untitled

a guest Nov 17th, 2019 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. MyGraphs = {Subscript[G, C],Subscript[G, BA1],Subscript[G, BA2],Subscript[G, WS1],Subscript[G, WS2]};
  2. tiloppg3;
  3. t1 =Flatten[tiloppg3][[2;;-1;;2]];
  4. t1 = t1/121;
  5. t2 = Flatten[tiloppg3][[1;;-1;;2]];
  6. t3 = Riffle[t2,t1];
  7. t4 = Partition[t3,2];
  8. t5 = Partition[t4, 25];
  9.  
  10.  
  11. Gs1 = ListLinePlot[t5[[1]]];
  12. Gs2 = ListLinePlot[t5[[2]]];
  13. Gs3 = ListLinePlot[t5[[3]]];
  14. Gs4 = ListLinePlot[t5[[4]]];
  15. Gs5 = ListLinePlot[t5[[5]]];
  16. Show[Subscript[CDTP, C],Subscript[DDTP, C],Subscript[BDTP, C],Gs1];
  17. Show[Subscript[CDTP, BA1],Subscript[DDTP, BA1],Subscript[BDTP, BA1]]
  18. Show[Subscript[BDTP, BA1], Subscript[CDTP, BA1], Subscript[DDTP, BA1]]
  19. Show[Subscript[BDTP, BA1],Gs3, Subscript[CDTP, BA2], Subscript[DDTP, BA2]];
  20. Show[Gs4,Subscript[BDTP, WS1], Subscript[CDTP, WS1], Subscript[DDTP, WS1]];
  21. Show[Subscript[CDTP, WS2],Gs5, Subscript[BDTP, WS2], Subscript[DDTP, WS2]];
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