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
|
$NetBSD: patch-am,v 1.1 2005/10/07 12:31:25 rillig Exp $
The patches patch-al upto patch-aq add the physical constants k, q, e0,
mu0, and c.
--- constant.c.orig Thu Apr 4 05:46:11 2002
+++ constant.c Fri Oct 7 14:24:25 2005
@@ -24,6 +24,11 @@ Foundation, Inc., 59 Temple Place - Suit
#include "real.h"
#include "complex.h"
+Real *realBoltzmann;
+Real *realCharge;
+Real *realE0;
+Real *realMu0;
+Real *realLightSpeed;
Real *realPi;
Real *realPi2;
Real *realZero;
@@ -35,9 +40,17 @@ Real *realMOne;
Real *real180Pi;
Cmplx *cmplxI;
+#define LIGHTSPEED 2.997923e8
+#define MU0 (4*M_PI*1.0e-7)
+
void setup_constant(){
Real *tmp;
+ realBoltzmann = setRealDouble(newReal(), 1.380622e-23);
+ realCharge = setRealDouble(newReal(), 1.6021917e-19);
+ realE0 = setRealDouble(newReal(), 1.0/(LIGHTSPEED*LIGHTSPEED*MU0));
+ realMu0 = setRealDouble(newReal(), MU0);
+ realLightSpeed = setRealDouble(newReal(), LIGHTSPEED);
realPi = setRealDouble(newReal(), M_PI);
realPi2 = setRealDouble(newReal(), M_PI/2.0);
realZero = setRealDouble(newReal(), 0.0);
|
