function out=BF_CurlE(u,v,w,n)
if n==1
    out=[0,0,-2+9*u];
elseif n==2
    out=[0,0,-2+9*v];
elseif n==3
    out=[0,2-9*u,0];
elseif n==4
    out=[0,2-9*w,0];
elseif n==5
    out=[0,-2+9*u,2-9*u];
elseif n==6
    out=[0,7-9*u-9*v-9*w,-7+9*u+9*v+9*w];
elseif n==7
    out=[-2+9*v,0,0];
elseif n==8
    out=[-2+9*w,0,0];
elseif n==9
    out=[2-9*v,0,-2+9*v];
elseif n==10
    out=[-7+9*u+9*v+9*w,0,7-9*u-9*v-9*w];
elseif n==11
    out=[-2+9*w,2-9*w,0];
elseif n==12
    out=[7-9*u-9*v-9*w,-7+9*u+9*v+9*w,0];
elseif n==13
    out=[-3*u,-3*v,6*w];
elseif n==14
    out=[3*u,-6*v,3*w];
elseif n==15
    out=[3*u,3*v,6-9*u-9*v-6*w];
elseif n==16
    out=[-3*u,6*v,3-9*v-3*w];
elseif n==17
    out=[-3*u,-6+9*u+6*v+9*w,-3*w];
elseif n==18
    out=[3*u,-3+3*v+9*w,-6*w];
elseif n==19
    out=[6-6*u-9*v-9*w,3*v,3*w];
elseif n==20
    out=[3-3*u-9*w,-3*v,6*w];
end
end