summaryrefslogtreecommitdiff
path: root/671/CH2/EX2.5
diff options
context:
space:
mode:
Diffstat (limited to '671/CH2/EX2.5')
-rwxr-xr-x671/CH2/EX2.5/2_5.sce15
1 files changed, 15 insertions, 0 deletions
diff --git a/671/CH2/EX2.5/2_5.sce b/671/CH2/EX2.5/2_5.sce
new file mode 100755
index 000000000..91c2413fc
--- /dev/null
+++ b/671/CH2/EX2.5/2_5.sce
@@ -0,0 +1,15 @@
+function [Rab,Rbc,Rca]=star_to_delta(Ra,Rb,Rc)
+ X=Ra*Rb+Rb*Rc+Rc*Ra
+ Rab=X/Rc
+ Rbc=X/Ra
+ Rca=X/Rb
+endfunction
+
+function p=parallel(r1,r2)
+ p=r1*r2/(r1+r2)
+endfunction
+
+[Rx,Ry,Rz]=star_to_delta(8,4,2)
+
+Req_ad=parallel(parallel(4,Rx)+parallel(12,Rz),parallel(3,Ry))
+disp(Req_ad) \ No newline at end of file