Essays/Schwarzschild/Schwarzschild06

NB. ... execute (ijx) ...

   gTaC=:1.5,1.5,1.2,1.2,1.5,0"_
   gTaP=:16 c4Gen 3.5 10 28,(0.1,(1p1-0.1),28),0 2p1 44,:0 2p1 20"_

   (4 4$]) *./^:5"5 (0=]) ((2^_44)tsz]) (gTaC(]+(2|:])+2 3|:])"5@(eGF20*/"2 3 eGF20cv)gTaP)''
1 1 1 1
1 1 1 1
1 1 1 1
1 1 1 1

NB. ... execute (ijx) ...

   gTbC=:1.5,1.5,1.2,1.2,1.5,0"_
   gTbP=:16 c4Gen 3.5 10 28,(0.1,(1p1-0.1),28),0 2p1 44,:0 2p1 20"_

   nzmax ((2^_44)tsz]) (gTbC(]+(2|:])+2 3|:])@(2|:])"5@(eGF20cv*/"3 2 eGF20)gTbP)''
0.0349497