summaryrefslogtreecommitdiff
path: root/42/CH7/EX7.5/sadiku_7_5.sce
blob: 6c15dbcb592ec107d55ed55094fe614ff841327f (plain)
1
2
3
4
5
6
7
8
9
10
11
clear;
clc;
i0=-10,i4=10;
H0=.5*i0*-1;// in the positive Y direction
H4=.5*i4*-1*-1;//in the positive Y direction
H=H0+H4;
disp(H, 'H at (1,1,1) =')
H0=.5*i0*-1;//in the positive Y direction
H4=.5*i4*-1;//in the negative Y direction
H=H0+H4;
disp(H,'H at (0,-3,10 =)');