1 files changed, 15 insertions, 0 deletions
diff --git a/1646/CH1/EX1.4/Ch01Ex4.sce b/1646/CH1/EX1.4/Ch01Ex4.sce
new file mode 100755
index 000000000..f253475d7
--- /dev/null
+++ b/1646/CH1/EX1.4/Ch01Ex4.sce
@@ -0,0 +1,15 @@
+// Scilab Code Ex1.4: Page:27 (2011) 
+clc;clear;
+c = 1;....// Speed of light in vacuum, m/s
+u_x_prime = c;    // Velocity of photon as measured in S_prime frame, m/s
+v = c;    // Velocity of frame S_prime relative to S frame, m/s
+u_x = (u_x_prime + v)/(1+v*u_x_prime/c^2);
+if u_x == 1 then
+    ux = 'c';
+else 
+    ux = string(u_x)+'c';    
+end
+printf("\nThe speed of one photon as observed by the other is %c", ux);
+
+// Result
+// The speed of one photon as observed by the other is c