← Back to branch summary

~ubuntu-fr-scripts/ufrs-math/math-dev

« back to all changes in this revision

Viewing changes to bc-lib/thermometer.bc

  • Committer: Jean-Michel Juzan
  • Date: 2009-04-01 12:03:01 UTC
  • Revision ID: jean-michel@juzan.org-20090401120301-j6g6xj1z0561zdg3
copie de la branche principale

Show diffs side-by-side

added added

removed removed

Lines of Context:
bc-lib/thermometer.bc
 
1
### Temperature.BC - Conversions of temperature scales to other scales for GNU bc
 
2
 
 
3
## Celcius to... ###########################################
 
4
 
 
5
# ... Farenheit
 
6
define c2f(c)   { return (c * 1.8 + 32) }
 
7
 
 
8
# ... Kelvin
 
9
define c2k(c)   { return (c + 273.15) }
 
10
 
 
11
# ... Reamur
 
12
define c2re(c)  { return (c * 0.8) }
 
13
 
 
14
# ... Rankine
 
15
define c2ra(c)  { return (c * 1.8 + 491.67) }
 
16
 
 
17
## Farenheit to... ########################################
 
18
 
 
19
# ... Celcius
 
20
define f2c(f)   { return ((f - 32)/1.8) }
 
21
 
 
22
# ... Kelvin
 
23
define f2k(f)   { return ((f + 459.67)/1.8) }
 
24
 
 
25
# ... Reamur
 
26
define f2re(f)  { return ((f - 32)/2.25) }
 
27
 
 
28
# ... Rankine
 
29
define f2ra(f)  { return (f + 459.67) }
 
30
 
 
31
## Kelvin to... ###########################################
 
32
 
 
33
# ... Celcius
 
34
define k2c(k)   { return (k - 273.15) }
 
35
 
 
36
# ... Farenheit
 
37
define k2f(k)   { return (k * 1.8 - 459.67) }
 
38
 
 
39
# ... Reamur
 
40
define k2re(k)  { return ((k - 273.15)*0.8) }
 
41
 
 
42
# ... Rankine
 
43
define k2ra(k)  { return (k * 1.8) }
 
44
 
 
45
## Reamur to... ##########################################
 
46
 
 
47
# ... Celcius
 
48
define re2c(r)  { return (r / 0.8) }
 
49
 
 
50
# ... Farenheit
 
51
define re2f(r)  { return (r * 2.25 + 32) }
 
52
# ... Kelvin
 
53
define re2k(r)  { return (r / 0.8 + 273.15) }
 
54
 
 
55
# ... Rankine
 
56
define re2ra(r) { return (r * 2.25 + 491.67) }
 
57
 
 
58
## Rankine to... #########################################
 
59
 
 
60
# ... Celcius
 
61
define ra2c(r)  { return (r / 1.8 + 273.15) }
 
62
 
 
63
# ... Farenheit
 
64
define ra2f(r)  { return (r - 459.67) }
 
65
 
 
66
# ... Kelvin
 
67
define ra2k(r)  { return (r / 1.8) }
 
68
 
 
69
# ... Reamur
 
70
define ra2re(r) { return ((r / 1.8 + 273.15)*0.8) }