#include <stdio.h> #include <math.h> #include "tyh.h" d rs=1e-2; /*d nu trab z = log(mrs); rz*/ d nu trab z = log(1 – 1/(r*r*x[0])); rz /*d lamda trab z = log(1/mrs); rz*/ d lamda trab z = log(1 – 1/(r*t)); rz d ro trab z = x[1]/(t*t); rz /*Used symbols t,r,a,b,rs,mrs,mrs2,trab,sa,sb,ca,cb,x[],V[][],g00*/ /*g11,g22,g33,g[],W00,..,W[][],V00,..,VB00,..,VB200,..,V[][],VB[][],VB2[][]*/ /*VRab00,..,VRab[][],XYtrabLB00,..,LB200,..,LB[][],LB2[][],LRab00,..,LRab[][]*/ /*Lor,LorB1R1,fjk,Lp1,Lp2,ggNN,gg[],d,rz,fz,PI,A,B,K,GN,gr*/ d Lp1 […]
TEST.C
/*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)) […]
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 […]
What is Liberalism? History & Ideology Explained
I INTRODUCTION During the 18th and 19th centuries, a period characterized by unprecedental social change and progress, Liberalism was the prevalent ideology in Europe and America. The atmosphere of liberty and free enterprise lead to rapid development of science, technology and industry. Physics moved from Newton to Einstein, alchemy transformed into chemistry, medicine jumped from […]
#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 […]