From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2780/CH13/EX13.2/Ex13_2.sce | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 2780/CH13/EX13.2/Ex13_2.sce

(limited to '2780/CH13/EX13.2')

diff --git a/2780/CH13/EX13.2/Ex13_2.sce b/2780/CH13/EX13.2/Ex13_2.sce
new file mode 100755
index 000000000..2e551cd99
--- /dev/null
+++ b/2780/CH13/EX13.2/Ex13_2.sce
@@ -0,0 +1,11 @@
+clc
+//to calculate temperature
+Tc=7.18 //critical temperature in K
+Bc=4.5*10^3  //critical field in A/m
+Bo=6.5*10^3 //critical magnetic field in A/m
+T=Tc*sqrt(1-(Bc/Bo))
+disp("temperature is T="+string(T)+"K")
+//to calculate critical current density at that temperature
+r=1*10^-3 //diameter of the wire in mm
+TJc=(Bc*2*%pi*r)/(%pi*r^2)
+disp("the critical current density at that temperature is TJc="+string(TJc)+"A/m^2")
-- 
cgit