summaryrefslogtreecommitdiff
path: root/3830/CH7/EX7.9/Ex7_9.sce
blob: 0641c8d9fa7fd48f5b706a2950efd611a2de4d50 (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
// Exa 7.9

clc;
clear;

// Given

// A platinum resitance thermometer
R1 = 120; // resistance in ohms at 25 °c
T1 = 25; // temperature in °c
T2 = 75; // temperature in °c
Alpha_T = 0.00392; // temperature coefficient of resistance at 25°c
R3 = 180; // resistance in ohms at unknown temp T3

// Solution

R2 = R1*(1+Alpha_T*(T2-T1)); // resistance at 75 °c
printf(' The resistance at 75 °c = %.2f ohms \n',R2);

// now, to get T3 corresponding to R3= 180 ohms

// R3 = R2*(1+Alpha_T*(T3-T1));
// Rearranging above equation to get T3 as 
T3 = (R3/R1 -1)/Alpha_T + T1;

printf(' The temperature corresponding to resistance 180 ohms = %.2f °c \n',T3);