1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
//EMF induced between two coils in a circular iron core clc; clear; area= 5*(10^-4); l=0.5; na=200; nb=500; dI=15; dt=(1/10); mr=250; mo= 4*%pi*(10^-7); mfa=na*dI; H=mfa/l; B=mo*mr*H; // Flux Linked flux=B*area; eb=nb*flux/dt; disp('volts',eb,'The Induced EMF by coil B =')