Baby Mesh

Directory[];
SetDirectory["/home/campus03/struther/Desktop/Link to Courses/4620/ClassSampleMathematica"];
NodeData=Drop[Import["Triangle.node","Table"],1][[All,{2,3}]];
ElData =Drop[Import["Triangle.element","Table"],1][[All,{2,3,4}]];
Show[
ListPlot[NodeData],
Graphics[
Table[
{Hue[RandomReal[]],Polygon[NodeData[[ElData[[i]]]] ]},
{i, Length[ElData]}
]
]
]

Plotting Surfaces in 3D

f[{x_,y_}]:=Sin[12 x y];
NumPoints=200;
Data=Table[
{x,y}=RandomReal[{0,1},{2}];
{x,y, f[{x,y}]},
{NumPoints}
];
ListPlot3D[Data,
Mesh->All]

NumPoints=24;
Data=Table[
{x,y}=RandomReal[{0,1},{2}];
{x,y,0},
{NumPoints}
];
Data1=Join[Data,{{0.5,0.5,1},{0.6,0.6,0}}];
Data2=Join[Data,{{0.5,0.5,0},{0.6,0.6,1}}];
ListPlot3D[{Data1,Data2},
Mesh->All,
PlotStyle->{{Opacity[0.6],Red}, {Opacity[0.6],Blue}}]