37 lines
1.1 KiB
Text
37 lines
1.1 KiB
Text
$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);
|