(*  $Log: euclid2.m%v $
# Revision 1.1  1995/02/13  02:02:55  bill
# Initial revision
#
# Revision 1.1  1995/02/06  20:18:08  bill
# Initial revision
#  *)
(*  Special definitions for Euclidean 2-space for use with forms.m  *)
 
 
Print["   --   Euclidean 2-Space Basis Forms   -- "]
Print["$Header: d:/math/bb/forms/euclid2.m%v 1.1 1995/02/13 02:02:55 bill Exp bill $"]
 
px = Vector[x]
py = Vector[y]
 
dx = Form[x]
dy = Form[y]
 
dxdy =  Form[x, y]
dydx = -Form[x, y]
 
tx = TForm[x]
ty = TForm[y]
 
txty =  TForm[x, y]
tytx = -TForm[x, y]
 
Efilter[zzz_] := zzz /.
  { Form[x] -> "dx",
    Form[y] -> "dy",
    TForm[x] -> "tx",
    TForm[y] -> "ty",
    Form[x,y] -> "dxdy",
    TForm[x,y] -> "txty",
    Form[] -> "",
    TForm[] -> "^1"
}