10 files changed, 140 insertions, 0 deletions
diff --git a/377/CH1/EX1.1/1_1.sce b/377/CH1/EX1.1/1_1.sce
new file mode 100644
index 000000000..189a15c7e
--- /dev/null
+++ b/377/CH1/EX1.1/1_1.sce
@@ -0,0 +1,11 @@
+Z=2;
+E2=-(13.6)*(Z^2)/4;
+b=(-E2);
+printf('\n The Kinetic energy of the electron is %f',b);
+m0=(9.1)*(10^-31)*(1.6)*(10^-19);
+p=sqrt(2*b*m0);
+h=(6.6);
+disp("λ=(h)/(p)");
+c=h/p;  //say c=λ
+d=c*(10^-25);
+printf('\n The value of de-Broglie wavelength is %fnm',d);
+\ No newline at end of file
diff --git a/377/CH1/EX1.10/1_10.sce b/377/CH1/EX1.10/1_10.sce
new file mode 100644
index 000000000..0d9bb7231
--- /dev/null
+++ b/377/CH1/EX1.10/1_10.sce
@@ -0,0 +1,21 @@
+disp("En=-(13.6)*(Z^2)/(n^2)");
+n1=1;n2=2;n3=3;
+Z=3;
+h=6.6*10^-34;
+c=3*10^8;
+E1=-(13.6)*(Z^2)/(n1^2);
+E2=-(13.6)*(Z^2)/(n2^2);
+E3=-(13.6)*(Z^2)/(n3^2);
+printf('\n The value of E1 is %f eV',E1);
+printf('\n The value of E2 is %f eV',E2);
+printf('\n The value of E3 is %f eV',E3);
+a1=91.8;a2=108.8;a3=114.75;  //say a1,a2,a3 are hv1,hv2,hv3 respectively
+v1=a1*1.6*(10^-19)/(h);
+v2=a2*1.6*(10^-19)/(h);
+v3=a3*1.6*(10^-19)/(h);
+//say b1,b2,b3 are λ1,λ2,λ3 respectively
+b1=c/v1;b2=c/v2;b3=c/v3;
+c1=b1*10^9;c2=b2*10^9;c3=b3*10^9;
+printf('\n The value of λ1 is %f nm',c1);
+printf('\n The value of λ2 is %f nm',c2);
+printf('\n The value of λ3 is %f nm',c3);
+\ No newline at end of file
diff --git a/377/CH1/EX1.2/1_2.sce b/377/CH1/EX1.2/1_2.sce
new file mode 100644
index 000000000..839041fc9
--- /dev/null
+++ b/377/CH1/EX1.2/1_2.sce
@@ -0,0 +1,18 @@
+c=3*(10^8);
+pi=3.14;
+m0=(549*1.6*10^-13)/(c^2)*(10^28);
+printf('\n The value of m0 is %f*(10^-28) kg',m0);
+disp("Δm0*Δt >= h/(2*pi*c^2)");
+a=7*10^-19;  //say Δt=a
+h=1.055*(10^-34);
+d=(a*3*10^16);
+b=h/d;  //say Δm0=b
+e=(b)/(m0);
+printf('\n The Uncertainity in terms of rest mass is %f',e);
+disp("p^2/(2*m0) = K and (p+Δp)^2/(2*m0) = K+(10^3*1.6*10^-19)");
+disp("(p+Δp)^2 - p^2 = 2*m0*(10^3*1.6*10^-19)");
+f=2*1.672*1.6*(10^-1);
+g=sqrt(f);
+k=h/j;
+l=k*10^13;
+printf('\n The value of minimum uncertainity is %f m',l);
+\ No newline at end of file
diff --git a/377/CH1/EX1.3/1_3.sce b/377/CH1/EX1.3/1_3.sce
new file mode 100644
index 000000000..fe21c65d3
--- /dev/null
+++ b/377/CH1/EX1.3/1_3.sce
@@ -0,0 +1,27 @@
+r=5*10^-15;  //say r=∆x
+h=1.055;
+c=3*10^8;
+m0=9.1;
+disp("∆p >= h/(4*pi*∆x)");
+a=h/(2*r);
+b=a*(10^-14);
+printf('\n The uncertainity in momentum is %f *(10^-20) kg m/s',b);
+d=0.511;
+e=1.6;
+f=d*e;
+printf('\n The rest mass enrgy of electron is %f*(10^-13) J',f);
+g=b*c;
+k=g*10^-8;
+printf('\n The value of ∆p*c is %f*(10^-12) J',k);
+disp("E=sqrt((m0*c^2)^2+(p*c)^2)");
+disp("Emin=3.165*10^-12");
+i=3.165*(10^-12)/(1.6*(10^-19)*10^6);
+printf('\n The value of Emin in Mev is %f',i);
+j=5.3;
+l=h/(2*j);
+m=l*10^2;
+printf('\n The uncertainity in momentum is when  %f *(10^-23) kg m/s',m);
+n=(m^2)/(2*m0);
+printf('\n The value of kinetic energy is %f*(10^-19) J',n);
+o=n/1.6;
+printf('\n The value of kinetic energy in eV is %f eV',o);
+\ No newline at end of file
diff --git a/377/CH1/EX1.4/1_4.sce b/377/CH1/EX1.4/1_4.sce
new file mode 100644
index 000000000..f358ba5d1
--- /dev/null
+++ b/377/CH1/EX1.4/1_4.sce
@@ -0,0 +1,15 @@
+a=1*10^-8;
+pi=3.14;
+disp("∆E*∆t=h*∆v*∆t >= h/(4*pi)");
+b=1/(4*pi*a);
+printf('\n So, ∆v >= %f Hz',b);
+disp("E=p^2/(2*m0)+(-e^2/(4*pi*Є0*r))");
+printf('\n'); 
+disp("The minimum value of E occurs at r=5.3*10^-11 m");
+m0=9.31;
+e=1.6;
+h=1.054;
+d=8.85;  //say d=Є0
+c=((-m0)*(e^4)*4*((pi)^2))/(2*(h^2)*(4*pi*d)^2);
+d=c*1.6*10^2;
+printf('\n The value of minimum energy Emin is %f eV',d);
diff --git a/377/CH1/EX1.5/1_5.sce b/377/CH1/EX1.5/1_5.sce
new file mode 100644
index 000000000..5a770cfb5
--- /dev/null
+++ b/377/CH1/EX1.5/1_5.sce
@@ -0,0 +1,16 @@
+disp("T=16*exp(-2αβ/((1+β/α)^2)*((1+α/β)^2)))");
+E=1;
+V0=4;
+pi=3.14;
+m0=1.67*(10^-27)*1.6*(10^-13);
+h=1.055*10^-34;
+disp("β^2=4*pi^2*m0*(V0-E)/(h^2)");
+printf('\n');
+disp("α^2=4*pi^2*m0*E/(h^2)");
+b1=sqrt(2*m0*(V0-E)/(h^2));
+printf('\n The value of β is %f*10^14',b1*10^-14);
+c=3^0.5;  //say c=β/α
+a=1.9*10^14;
+b=10^-14;
+T=16*(exp(((-2)*a*b))/(((1+c)^2)*((1+(1/c))^2)));
+printf('\n The value of T is %fpercent',T*100);
+\ No newline at end of file
diff --git a/377/CH1/EX1.6/1_6.sce b/377/CH1/EX1.6/1_6.sce
new file mode 100644
index 000000000..59ef1b4db
--- /dev/null
+++ b/377/CH1/EX1.6/1_6.sce
@@ -0,0 +1,9 @@
+disp("E=(pi^2)*(h^2)/(2*me*Lx^2)+(pi^2)*(h^2)/(2*me*Ly^2)+(pi^2)*(h^2)/(2*me*Lz^2)");
+pi=3.14;
+h=1.055;
+me=0.04*9.1;
+L=50;
+E=(pi^2)*(h^2)/(2*me*L^2);
+printf('\n The value of E in Joules is %f *(10^-17)',E);
+f=E/1.6*10^2;
+printf('\n The value of E in eV is %f',f);
+\ No newline at end of file
diff --git a/377/CH1/EX1.7/1_7.sce b/377/CH1/EX1.7/1_7.sce
new file mode 100644
index 000000000..c3e2d9d30
--- /dev/null
+++ b/377/CH1/EX1.7/1_7.sce
@@ -0,0 +1,9 @@
+disp("E=(pi^2)*(h^2)/(2*me*Lx^2)+(pi^2)*(h^2)/(2*me*Ly^2)+(pi^2)*(h^2)/(2*me*Lz^2)");
+pi=3.14;
+h=1.055;
+me=0.01*9.1;
+L=50;
+E=3*(pi^2)*(h^2)/(2*me*L^2);
+printf('\n The value of E in Joules is %f *(10^-18)',E);
+f=E/1.6*10;
+printf('\n The value of E in eV is %f',f);
+\ No newline at end of file
diff --git a/377/CH1/EX1.8/1_8.sce b/377/CH1/EX1.8/1_8.sce
new file mode 100644
index 000000000..4f1288baf
--- /dev/null
+++ b/377/CH1/EX1.8/1_8.sce
@@ -0,0 +1,9 @@
+disp("v=(1/(2*pi))*sqrt(k/m0)");
+pi=3.14;
+k=10;
+m0=1*10^-3;
+h=6.6;
+v=(1/(2*pi))*sqrt(k/m0);
+printf('\n The value of v is %f Hz',v);
+E0=(h/2)*v;
+printf('\n The zero point energy is %f *10^-32 J',E0);
+\ No newline at end of file
diff --git a/377/CH1/EX1.9/1_9.sce b/377/CH1/EX1.9/1_9.sce
new file mode 100644
index 000000000..11b3d51ed
--- /dev/null
+++ b/377/CH1/EX1.9/1_9.sce
@@ -0,0 +1,5 @@
+disp("E1=-(4*pi^2*μ*e^4)/(32*pi^2*Є0^2*h^2)");
+printf('\n');
+disp("r1=4*pi*Є0*h^2/(4*pi*μ*e^2)");
+printf('\n');
+disp("Thus from the above formulae, the ratio of energies of muon and electrons is 100 while that of radii is 0.01");
+\ No newline at end of file