1 files changed, 12 insertions, 0 deletions
diff --git a/2075/CH4/EX4.14/pe4_14.sce b/2075/CH4/EX4.14/pe4_14.sce
new file mode 100755
index 000000000..48e1742c9
--- /dev/null
+++ b/2075/CH4/EX4.14/pe4_14.sce
@@ -0,0 +1,12 @@
+//example 4.14
+clc; funcprot(0);
+// Initialization of Variable
+R=8//resistance
+V=5//voltage
+//calculation
+Vl=V-1;
+Vp=Vl-1;
+Vr=Vp/2^.5;
+P=Vr^2/R;
+disp(P*1000,"pwer deliverd in mwatt")
+clear()