summaryrefslogtreecommitdiff
path: root/1319/CH4/EX4.7/4_7.sce
blob: 077c11f937886380af5a9f76f32123c5e1c90c4f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Dynamometer wattmeter power calculation of the load

clc;
clear;

P=250; // Power Recorded by the wattmeter

V=200; // Load voltage

R=2000; // Resistance of the highly non-inductive pressure coil

I=V/R; // Ohm's Law

Pcoil=V*I; // Power Absorbed by the pressure coil

Pl=P-Pcoil; // Power taken by the load

printf('The Power taken by the load = %g watts. \n',Pl)