
Needs["hirota`"]

n=3;

B[f_, g_]:=Dxt[0,2,x,t,f,g]+Dxt[3,1,x,t,f,g]+Dx[2,y,f,g];

name="Ito-b6";

myfile="h_itob6.o";

OpenLog[myfile];

hirota[B,name,n,3,3,True,True];

CloseLog[];

