mathematica codes

multi plot mathematica for loop