1 files changed, 10 insertions, 0 deletions
diff --git a/569/CH3/EX3.13/3_13.sci b/569/CH3/EX3.13/3_13.sci
new file mode 100755
index 000000000..51c705698
--- /dev/null
+++ b/569/CH3/EX3.13/3_13.sci
@@ -0,0 +1,10 @@
+// Calculate the true power as a percentage of measured power
+clc;
+I=30.4;
+R=0.015;
+I_true=I*(1+0.012);
+R_true=R*(1-0.003);
+P_true=(I_true^2)*R_true;
+P_measured=(I^2)*R;
+R=P_true*100/P_measured;
+disp(R,'true power as a percentage of measured power(%)=' )
+\ No newline at end of file