summaryrefslogtreecommitdiff
path: root/3363/CH17/EX17.5/Ex17_5.sce
blob: 0d755063929fac8e8028e7e54d74abaeb463278c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
//Example 17.5, page no 664
clc;
Tz=(1-1)/2
//For K+
Q=1
B=0
S=1
Tz=1-0.5
printf("The value of Tz for K+ is %f \n",Tz)

//For K-
Q=-1
B=0
S=-1
Tz=-1+0.5
printf("The value of Tz for K- is %f\n",Tz)


//For Ko
Q=0
B=0
S=1
Tz=-0-0.5
printf("The value of Tz for Ko is %f \n",Tz)


//For Ko_dash
Tz=0+0.5
printf("The value of Tz for Ko- is %f \n",Tz)