<< CSPlotter.m

Standard structures in R^3

DD = 3.5;
xmin = -DD;  xmax = DD;  
    dx = (xmax - xmin)/14;
ymin = -DD;  ymax = DD;  
    dy = (ymax - ymin)/16;
scale = dy;

conormalright[x_, y_, z_] = {0, 
          x, -1};
conormalleft[x_, y_, 
          z_] = {0, -x, -1};

Table[
        contactelement[{x, y, 0}, conormalleft[x, y, 0], scale], {x, xmin, 
          xmax, dx}, {y, ymin, ymax, dy}];
out = 
      Show[%, coords[xmax + 1, ymax + 1, 3.4], 
        Boxed -> False]

Export["standardleft.eps", out];
Export["standardleft.png", out];
Export["standardleft.pdf", out];

Table[
        contactelement[{x, y, 0}, conormalright[x, y, 0], scale], {x, xmin, 
          xmax, dx}, {y, ymin, ymax, dy}];
out  = 
      Show[%, coords[xmax + 1, ymax + 1, 3.4], 
        Boxed -> False]

Export["standardright.eps", out];
Export["standardright.png", out];
Export["standardright.pdf",  out];