clc;
clear all;
P = input('Number of poles are: ');
Phi = input('Flux per pole in Wb is: ');
Z = input('Total number of armature conductors are: ');
N = input('Armature speed in rpm is: ');
V = input('Supply voltage in volts is: ');
Ra = input('Armature resistance in Ohms is: ');
W = input('1 for lap wining and 2 for wave winding: ');
if W == 1
Eb = (Phi * N * Z) / 60;
end
if W == 2
Eb = (P * Phi * N * Z)/120;
end
Ia = (V - Eb)/ Ra;
disp('Back EMF developed in the motor in volts is:'), Eb
disp('Armature current in A is: '); Ia
