1 files changed, 19 insertions, 0 deletions
diff --git a/1026/CH12/EX12.4/Example12_4.sce b/1026/CH12/EX12.4/Example12_4.sce
new file mode 100755
index 000000000..15394b334
--- /dev/null
+++ b/1026/CH12/EX12.4/Example12_4.sce
@@ -0,0 +1,19 @@
+//chapter12,Example12_4,pg 358
+
+NA=0.5
+
+n1=1.48
+
+n2=sqrt((n1^2)-(NA^2))
+
+printf("refractive index of cladding\n")
+
+printf("n2=%.2f ",n2)
+
+alpha=asin(NA)
+
+alpha=alpha*(180/%pi)
+
+printf("\nacceptance angle\n")
+
+printf("alpha=%.2f deg",alpha)
+\ No newline at end of file