MyGraphs = {Subscript[G, C],Subscript[G, BA1],Subscript[G, BA2],Subscript[G, WS1],Subscript[G, WS2]};
tiloppg3;
t1 =Flatten[tiloppg3][[2;;-1;;2]];
t1 = t1/121;
t2 = Flatten[tiloppg3][[1;;-1;;2]];
t3 = Riffle[t2,t1];
t4 = Partition[t3,2];
t5 = Partition[t4, 25];


Gs1 = ListLinePlot[t5[[1]]];
Gs2 = ListLinePlot[t5[[2]]];
Gs3 = ListLinePlot[t5[[3]]];
Gs4 = ListLinePlot[t5[[4]]];
Gs5 = ListLinePlot[t5[[5]]];
Show[Subscript[CDTP, C],Subscript[DDTP, C],Subscript[BDTP, C],Gs1];
Show[Subscript[CDTP, BA1],Subscript[DDTP, BA1],Subscript[BDTP, BA1]]
Show[Subscript[BDTP, BA1], Subscript[CDTP, BA1], Subscript[DDTP, BA1]]
Show[Subscript[BDTP, BA1],Gs3, Subscript[CDTP, BA2], Subscript[DDTP, BA2]];
Show[Gs4,Subscript[BDTP, WS1], Subscript[CDTP, WS1], Subscript[DDTP, WS1]];
Show[Subscript[CDTP, WS2],Gs5, Subscript[BDTP, WS2], Subscript[DDTP, WS2]];