Saturday, December 21, 2019

Lists & Arrays as PlayGrounds


A=Array[1+Sin[#1Pi/4]^2+Cos[#2Pi/6]^4 &,{4,6}]
ArrayPlot[A,ColorFunction->"DeepSeaColors",ImageSize->Small]
X={{.10,.05,.95},{.09,.03,.08},{.01,.09,.91},{.04,.92,.07},{.05,.02,.04},
      { .07,.97,.05},{.06,.02,.98},{.02,.06,.03},{.01,.09,.03},{.02,.94,.01}};
X[[1;;5]]    
ArrayPlot[Transpose[X],ColorFunction->"BrightBands",ImageSize->Small]
Y=Transpose[{{1,0,1,2,0,2,1,0,1,2}}]
ArrayPlot[Transpose[Y],ColorFunction->"Rainbow",ImageSize->Small]


No comments:

Post a Comment