Su jogu
sujogu[a_,b_,c_]:=
Module[{quadratu,rettangulu,l1,l2,l3,l4,
j=a,h=b,k=c},
pq=Table[N[x+I y],
{x,0,k},{y,0,k}];
coordquad=Map[{Re[#],Im[#]}&,pq,{2}];
orquad=Map[Line,coordquad];
verquad=Map[Line,Transpose[coordquad]];
quadratu=Show[Graphics[Join[orquad,verquad]],
AspectRatio->Automatic,
DisplayFunction->Identity];
pr=Table[N[x+I y],
{x,k+2,k+h+2},{y,0,k+h}];
coordrett=Map[{Re[#],Im[#]}&,pr,{2}];
orizzrett=Map[Line,coordrett];
verrett=Map[Line,Transpose[coordrett]];
rettangulu=Show[Graphics[Join[orizzrett,verrett]],
AspectRatio->Automatic,
DisplayFunction->Identity];
l1=Show[Graphics[{RGBColor[1,0,0],
Thickness[0.008],
Line[
{{0,0},{k,0},{k,k},{0,k},{0,0},{k,j},{0,j}}]}],
DisplayFunction->Identity];
l2=Show[Graphics[{RGBColor[1,0,0],
Thickness[0.008],
Line[
{{j,j},{h,k}}]}],
DisplayFunction->Identity];
l3=Show[Graphics[{RGBColor[1,0,0],
Thickness[0.008],
Line[
{{k+2,0},{h+k+2,0},{h+k+2,h+k},{k+2,h+k},
{k+2,0},{h+k+2,h+k}}]}],
DisplayFunction->Identity];
l4=Show[Graphics[{RGBColor[1,0,0],
Thickness[0.008],
Line[
{{k+2,k},{k+2+j,k},{k+2+h-j,h},{k+2+h,h}}]}],
DisplayFunction->Identity];
Show[quadratu,rettangulu,l1,l2,l3,l4,
DisplayFunction->$DisplayFunction];];
sujogu[3,5,8]
sujogu[5,8,13]
