/*Analitic Calculations and Graphics of "Experimental …"*/ /* Invariant and Covariant Integrals*/ #include <stdlib.h> #include <stdio.h> #include <math.h> /*#include <alloc.h>*/ #include "prngrph.h" #define mrs (1.0 – 1.0/r) #define mrs2 sqrt(mrs) #define d double #define rz return z;} #define PI 3.1415927 #define K (8*PI*7.425*1e-29) /*GN/c2 Einstein Gravitational Constant in cm/gr*/ #define Gn 7.425e-29 #define M (1/(2*Gn)) […]
Physics
RX.C
/*R modified 28.5.91 for "Experimental …" special calculations*/ #include <stdio.h> #include <math.h> #define DEF1 #define mrs (1 – rs/x[1]) #define mrs2 sqrt(mrs) #define Z0 (double x[]){return 0;} #define Z1 (double x[]){return 1;} #define trab (double x[]){double z=0; #define sa sin(x[2]) #define sb sin(x[3]) #define ca cos(x[2]) #define cb cos(x[3]) #define V(i,j) (*V[i][j])(double x[]) #define t […]
#include
#include <stdio.h> #include <math.h> #define DEF1 #define mrs (1 – rs/x[1]) #define mrs2 sqrt(mrs) #define Z0 (double x[]){return 0;} #define Z1 (double x[]){return 1;} #define trab (double x[]){double z=0; #define sa sin(x[2]) #define sb sin(x[3]) #define ca cos(x[2]) #define cb cos(x[3]) #define V(i,j) (*V[i][j])(double x[]) #define t x[0] #define r x[1] #define a x[2] #define […]
NNPRNGRP.LIB*/
/*NNPRNGRP.LIB*/ /*NPRNGRPH.LIB with modified savegraph() and getgraph()*/ /*new getgraph() able to get only savefile saved with new savegraph()*/ /*NPRNGRPH.LIB*/ /*PRNGRPH.LIB with modified run_initgrph() and run_line_parameters() including print option of the parameters*/ #include <stdio.h> #include <math.h> #include <stdlib.h> #include <alloc.h> /*Codes*/ extern char IBMSpacing[10], Epsonspacing[9], spacing0[4], spacing1[5], spacing2[5], spacing3[4], spacing4[4], Head[12]; extern int *Header; extern char […]
Analitic Calculations and Graphics of Experimental Facts and
/*Analitic Calculations and Graphics of Experimental Facts and …"*/ #include <stdlib.h> #include <stdio.h> #include <math.h> #include "prngrph.h" #define mrs (1.0 – 1.0/r) #define mrs2 sqrt(mrs) #define d double #define rz return z;} #define PI 3.1415927 #define K (8*PI*7.425*1e-29) /*GN/c2 Einstein Gravitational Constant in cm/gr*/ #define Gn 7.425e-29 #define M (1/(2*Gn)) #define R r /*Source Radious […]