<< CSPlotter.m

Overtwisted contact structure in R^3

ymin = -4;  ymax = 4; 
    dy = (ymax - ymin)/15; 
xmin = 0;  xmax = 2  Pi ;  
    dx = (xmax - xmin)/18;
scale  =  dx ;

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

    
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, 4], Boxed -> False]

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

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

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