liberaln

#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 […]

/*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)) […]

/*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 <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*/ /*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 […]