06-240/QuiltPlot - Revision history

Drorbn at 15:25, 17 October 2006

2006-10-17T15:25:55Z

@@ Line 1: / Line 1: @@
 {{06-240/Navigation}}
 Code in [http://www.wolfram.com Mathematica]:
@@ Line 35: / Line 46: @@
 QuiltPlot[{x^2-y^2, 2*x*y}, {x, -10, 10, 8}, {y, 5, 10, 8}]
 </pre>

Drorbn at 15:00, 17 October 2006

2006-10-17T15:00:25Z

New page

{{06-240/Navigation}}

Code in [http://www.wolfram.com Mathematica]:

<pre>
QuiltPlot[{f_,g_}, {x_, xmin_, xmax_, nx_}, {y_, ymin_, ymax_, ny_}] :=
Module[
{dx, dy, grid, ix, iy},
SeedRandom[1];
dx=(xmax-xmin)/nx;
dy=(ymax-ymin)/ny;
grid = Table[
{x -> xmin+ix*dx, y -> ymin+iy*dy},
{ix, 0, nx}, {iy, 0, ny}
];
grid = Map[({f, g} /. #)&, grid, {2}];
Show[
Graphics[Table[
{
RGBColor[Random[], Random[], Random[]],
Polygon[{
grid[[ix, iy]],
grid[[ix+1, iy]],
grid[[ix+1, iy+1]],
grid[[ix, iy+1]]
}]
},
{ix, nx}, {iy, ny}
]],
Frame -> True
]
]

QuiltPlot[{x, y}, {x, -10, 10, 8}, {y, 5, 10, 8}]
QuiltPlot[{x^2-y^2, 2*x*y}, {x, -10, 10, 8}, {y, 5, 10, 8}]
</pre>