PlotMatrix

matrix=HilbertMatrix[7]
matrixPlot[m_?MatrixQ]:=Module
[{pl1,pl2},
pl1=MatrixPlot[matrix,ColorFunction->"TemperatureMap",ColorFunctionScaling->True];

pl2=Graphics[
Table[
Inset[Text[matrix[[ii,jj]],FormatType->FullForm],{ii-1/2,Dimensions[matrix][[2]]-jj+1/2},{0,0},1]
,{ii,Dimensions[matrix][[1]]}
,{jj,Dimensions[matrix][[2]]}]
];

Show[pl1,pl2]
]

pl2=Graphics[
Table[
Text[matrix[[ii,jj]],{ii-1/2,Dimensions[matrix][[2]]-jj+1/2}],
,{ii,Dimensions[matrix][[1]]}
,{jj,Dimensions[matrix][[2]]}]pl2=Graphics[
Table[
Text[matrix[[ii,jj]],{ii-1/2,Dimensions[matrix][[2]]-jj+1/2}],
,{ii,Dimensions[matrix][[1]]}
,{jj,Dimensions[matrix][[2]]}]
];
];

Message

m=HilbertMatrix[9]

n=9;
list1=1/#&/@Range[2*n-1]
m=Partition[list1,n,1]
m={{1,2,3},{4,5,6}}

Options[matrixPlot]:=Flatten[{DisplayValue->True,Options[MatrixPlot]}]


matrixPlot::usage="Vylepsene kresleni matic"

matrixPlot::notMatrix="Neni matice!!";
matrixPlot[m_?MatrixQ, opts:OptionsPattern[]]:=Module[{pl1,pl2},


pl1=MatrixPlot[m, FilterRules[{opts},Options[MatrixPlot]]];

pl2=Graphics[Table[Text[m[[i,j]],{1/2+j-1,Dimensions[m][[2]]-i-1/2}],{i,Dimensions[m][[1]]},{j,Dimensions[m][[2]]}]];

If[OptionValue[DisplayValue],Show[pl1,pl2],pl1]
]

SyntaxInformation[matrixPlot]={"ArgumentsPattern"->{_,OptionsPattern[]}}

matrixPlot[m_, opts:OptionsPattern[]]:=Message[matrixPlot::notMatrix];

SetDirectory[NotebookDirectory[]]

$BaseDirectory

Needs["MatrixLibrary`"]

matrixPlot[{{1,2},{3,4}}]

Context[]

Contexts[]

matrixPlot[]

?matrixPlot

matrixPlot[{{1,3},{5,6}},DisplayValue->True,ColorFunction->Hue]

Dimensions[{{1,2,3},{1,2,3}}]

pl2=Graphics[
Table[
Text[matrix[[ii,jj]],{ii-1/2,Dimensions[matrix][[2]]-jj+1/2}],
,{ii,Dimensions[matrix][[1]]}
,{jj,Dimensions[matrix][[2]]}]
];

Array[List,Dimensions[matrix]]

Ordering

Position

Graphics[Text[123,{0,0}],Axes->True]

Graphics[Raster[{{0,0.2,0.4},{0.6,0.8,1}},{{0,0},{3,3}},{0,5}], Axes->True]

mat=HilbertMatrix[7];
{imax,jmax}=Dimensions[mat];
vysls=Flatten[Table[{i,j,mat[[i,j]]},{i,imax},{j,jmax}],1];
rect[{i_,j_,val_}]:=Graphics[{Text[val,{i+0.5,j+0.5}],Hue[val],Opacity[.5],Rectangle[{i,j}]}];
Show[rect/@vysls]

0

rect[{2,2,56}]

0

Flatten[Table[blum,{i,3},{j,3},{g,3}],1]

n=Range[20];
SeedRandom[5];
xka=Random[Integer,{1,10}]&/@Range[n];

intx=Interpolation[xka,InterpolationOrder->1]
Plot[intx[i],{i,1,10}]