m20160829

In[2]:= Table[Tooltip[Subscript[a, i,j,k],Graphics3D[Flatten[Table[Tooltip[Sphere[{i,j,k},.1],Subscript[a, i,j,k]],{i,1,4},{j,1,4},{k,1,4}],1]]],{i,1,4},{j,1,4},{k,1,4}]//MatrixForm

In[4]:= Table[Tooltip[Subscript[a, i,j],Graphics3D[Flatten[Table[Tooltip[Sphere[{i,j,1},.1],Subscript[a, i,j]],{i,1,4},{j,1,4}],1]]],{i,1,4},{j,1,4}]//MatrixForm
Out[4]//MatrixForm= (Subscript[a, 1,1]	Subscript[a, 1,2]	Subscript[a, 1,3]	Subscript[a, 1,4]
Subscript[a, 2,1]	Subscript[a, 2,2]	Subscript[a, 2,3]	Subscript[a, 2,4]
Subscript[a, 3,1]	Subscript[a, 3,2]	Subscript[a, 3,3]	Subscript[a, 3,4]
Subscript[a, 4,1]	Subscript[a, 4,2]	Subscript[a, 4,3]	Subscript[a, 4,4]

)
Table[Tooltip[Subscript[a, i,j],Graphics3D[Flatten[Table[Tooltip[Sphere[{i,j,1},.1],Subscript[a, i,j]],{i,1,4},{j,1,4}],1]]],{i,1,4},{j,1,4}]//MatrixForm
In[6]:= Graphics3D[Flatten[Table[Tooltip[{Red,Sphere[{i,j,1},.1]},Subscript[a, i,j]],{i,1,4},{j,1,4}],1]]
Out[6]=
Graphics3D[Flatten[Table[Tooltip[{Red,Sphere[{i,j,1},.1]},Subscript[a, i,j]],{i,1,4},{j,1,4}],1]]
In[8]:= Graphics3D[{{Red,Sphere[{0,0,0},.1]},{Blue,Sphere[{1,1,1},.1]}}]
Out[8]=
In[9]:= Graphics3D[{{Red,Sphere[{0,0,0},.1]},{Blue,Sphere[{1,1,1},.1]},{Green,Sphere[{1,1,1},.1]}}]
Out[9]=
In[12]:= Graphics3D[Flatten[Table[Mouseover[{Red,Sphere[{i,j,1},.1]},{Blue,Sphere[{i,j,1},.1]}],{i,1,4},{j,1,4}],1]]
Out[12]=
Graphics3D[Flatten[Table[Mouseover[{Red,Sphere[{i,j,1},.1]},{Blue,Sphere[{i,j,1},.1]}],{i,1,4},{j,1,4}],1]]
In[13]:= Graphics3D[{{Red,Sphere[{0,0,0},.1]},{Blue,Sphere[{1,1,1},.1],Sphere[{2,2,2},.1]}}]
Out[13]=
In[14]:= Graphics3D[Flatten[Table[Mouseover[{Red,Sphere[{i,j,1},.1]},{Blue,Sphere[{i,j,1},.1],Sphere[{i+1,j,1},.1],Sphere[{i,j+1,1},.1]}],{i,1,4},{j,1,4}],1]]
Out[14]=
Table[Tooltip[Subscript[a, i,j],Graphics3D[{{Flatten[Table[Tooltip[Sphere[{i,j,1},.1],Subscript[a, i,j]],{i,1,4},{j,1,4}],1]},{Red,Sphere[{i,j,1},.1]}}],{i,1,4},{j,1,4}]//MatrixForm