Konstantenwerte
c in m/s
Yearsecs in Sekunden
rho in kg/m^3
G: Gravitationskonstante N*m^2*kg^-2
=m^3*s^-2*kg^-1

c = 299792458;
VarMia = 1000000000;
Yearsecs = (365 + (1/
                  4))*60*60*24;
G = 667259*10^-16;
timeMax = Yearsecs*1000000000*19 ;
rho = 552*10^-29;
MParsec = 1000000*30857*10^12;
H = 66262*10^-38;
CBRWavelength = 168*10^-5;
Referenzwellenlaenge = 
        1216 *10^-10;
ReferenzFrequenz = 
        c/Referenzwellenlaenge;
ReferenzPhotonenEnergie = (c/Referenzwellenlaenge)*H; 
    PiWen = 3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609433057270365759591953092186117381932611793105118548074462379962749567351885752724891227938183011949129833673362440656643086021394946395224737190702179860943702770539217176293176752384674818467669405132000568127145263560827785771342757789609173637178721468440901224953430146549585371050792279689258923542019956112129021960864034418159813629774771309960518707211349999998372978049951059731732816096318595024459455346908302642522308253344685035261931188171010003137838752886587533208381420617177669147303598253490428755468731159562863882353787593751957781857780532171226806613001927876611195909216420198938095257201065485863278865936153381827968230301952035301852968995773622599413891249721775283479131515574857242454150695950829533116861727855889075098381754637464939319255060400927701671139009848824012858361603563707660104710181942955596198946767837449448255379774726847104047534646208046684259069491293313677028989152104752162056966024058038150193511253382430035587640247496473263914199272604269922796782354781636009341721641219924586315030286182974555706749838505494588586926995690927210797509302955321165344987202755960236480665499119881834797753566369807426542527862551818417574672890977772793800081647060016145249192173217214772350141441973568548161361157352552133475741849468438523323907394143334547762416862518983569485562099219222184272550254256887671790494601653466804988627232791786085784383827967976681454100953883786360950680064225125205117392984896084128488626945604241965285022210661186306744278622039194945047123713786960956364371917287467764657573962413890865832645995813390478027590099465764078951269468398352595709825822620522489407726719478268482601476990902640136394437455305068203496252451749399651431429809190659250937221696461515709858387410597885959772975498930161753928468138268683868942774155991855925245953959431049972524680845987273644695848653836736222626099124608051243884390451244136549762780797715691435997700129616089441694868555848406353422072225828488648158456028506016842739452267467678895252138522549954666727823986456596116354886230577456498035593634568174324112515076069479451096596094025228879710893145669136867228748940560101503308617928680920874760917824938589009714909675985261365549781893129784821682998948722658804857564014270477555132379641451523746234364542858444795265867821051141354735739523113427166102135969536231442952484937187110145765403590279934403742007310578539062198387447808478489683321445713868751943506430218453191048481005370614680674919278191197939952061419663428754440643745123718192179998391015919561814675142691239748940907186494231961567945208095146550225231603881930142093762137855956638937787083039069792077346722182562599661501421503068038447734549202605414665925201497442850732518666002132434088190710486331734649651453905796268561005508106658796998163574736384052571459102897064140110971206280439039759515677157700420337869936007230558763176359421873125147120532928191826186125867321579198414848829164470609575270695722091756711672291098169091528017350671274858322287183520935396572512108357915136988209144421006751033467110314126711136990865851639831501970165151168517143765761835155650884909989859982387345528331635507647918535893226185489632132933089857064204675259070915481416549859461637180270981994309924488957571282890592323326097299712084433573265489382391193259746366730583604142813883032038249037589852437441702913276561809377344403070746921120191302033038019762110110044929321516084244485963766983895228684783123552658213144957685726243344189303968642624341077322697802807318915441101044682325271620105265227211166039666557309254711055785376346682065310989652691862056476931257058635662018558100729360659876486117910453348850346113657686753249441668039626579787718556084552965412665408530614344431858676975145661406800700237877659134401712749470420562230538994561314071127000407854733269939081454664645880797270826683063432858785698305235808933065757406795457163775254202114955761581400250126228594130216471550979259230990796547376125517656751357517829666454779174501129961489030463994713296210734043751895735961458901938971311179042978285647503203198691514028708085990480109412147221317947647772622414254854540332157185306142288137585043063321751829798662237172159160771669254748738986654949450114654062843366393790039769265672146385306736096571209180763832716641627488880078692560290228472104031721186082041900042296617119637792133757511495950156604963186294726547364252308177036751590673502350728354056704038674351362222477158915049530984448933309634087807693259939780541934144737744184263129860809988868741326047215695162396586457302163159819319516735381297416772947867242292465436680098067692823828068996400482435403701416314965897940924323789690706977942236250822168895738379862300159377647165122893578601588161755782973523344604281512627203734314653197777416031990665541876397929334419521541341899485444734567383162499341913181480927777103863877343177207545654532207770921201905166096280490926360197598828161332316663652861932668633606273567630354477628035045077723554710585954870279081435624014517180624643626794561275318134078330336254232783944975382437205835311477119926063813346776879695970309833913077109870408591337464144282277263465947047458784778720192771528073176790770715721344473060570073349243693113835049316312840425121925651798069411352801314701304781643788518529092854520116583934196562134914341595625865865570552690496520985803385072242648293972858478316305777756068887644624824685792603953527734803048029;
N[ReferenzFrequenz, 
        5] "Hz, ReferenzFrequenz"
N[ReferenzPhotonenEnergie, 
        5] "J, ReferenzPhotonenEnergie"

Schnittpunkt der Funktionen Masse/LBH-Limit

Plot[{(1/2)*(c^3)*t/G,4/3*PiWen*(t*c)^3*rho},{t, 0, timeMax}];

LBHHorizon =  (3/(8*G*PiWen*rho))^(1/2); 
    N[LBHHorizon, 6] "Sec "

MiaLYAge =  LBHHorizon/(1000000000*Yearsecs); 
    N[MiaLYAge, 4] Mia .  LY

LBHMasse = (4/3)*PiWen*(LBHHorizon*c)^3*rho; 
    N[LBHMasse, 6] kg

DeltaE:=1-((((1/2)*(c^3)*t/G)-((4/3)*PiWen*(t*c)^3*rho))/((1/2)*(c^3)*t/G))

vRedShift:=((c^2)*(1 - ((ReferenzPhotonenEnergie - 
                            ReferenzPhotonenEnergie*DeltaE)/
                        ReferenzPhotonenEnergie)^2))^(1/2);
Plot[vRedShift,{t, 0, LBHHorizon}];

HubbleWert:=(vRedShift/1000)/((t*c)/MParsec) ;
Plot[HubbleWert,{t, 0, LBHHorizon}];
N[((((c^2)*(1-((ReferenzPhotonenEnergie-ReferenzPhotonenEnergie*(
1-((((1/2)*(c^3)*((3/(8*G*PiWen*
                                        rho))^(1/2))/G)-((4/3)*
                                        PiWen*(((3/(8*G*PiWen*
                                        rho))^(1/2))*c)^3*
                                        rho))/((1/2)*(c^3)*((3/(8*G*PiWen*
                                        rho))^(1/2))/G))))/ReferenzPhotonenEnergie)^2))^(1/2))/((1000*((3/(8*G*PiWen*rho))^(1/
                              2))*299792458)/(1000000*30857*10^12))),4] " km/h/MpSec am LBH-Horizont"
N[((((c^2)*(1-((ReferenzPhotonenEnergie-ReferenzPhotonenEnergie*(
1-((((1/2)*(c^3)*(1)/G)-((4/3)*
                                        PiWen*((1)*c)^3*rho))/((1/2)*(c^3)*(1)/G))))/ReferenzPhotonenEnergie)^2))^(1/2))/((1000*(1)*299792458)/(1000000*30857*10^12))),4] " km/h/MpSec nach 1 m"

Redshift:

FreqvRedShift:=ReferenzFrequenz*(((c - vRedShift)/(c + 
                      vRedShift))^(1/2));
WellenlangevRedShift:=c/FreqvRedShift;
ZvRedShift:=(WellenlangevRedShift - Referenzwellenlaenge)/
          Referenzwellenlaenge;
Plot[ZvRedShift,{t, 0, LBHHorizon}];

Plot[ZvRedShift,{t, 0, LBHHorizon - Yearsecs*1000000000}];

LBHVolumeSpeed= Volume per second. 
Licht bereitet sich aus und das Volumen, welches dadurch aufgespannt wird, verändert sich mit ... LichtVolumenGeschwindigkeit:

LBHVolume:=(4/3)*PiWen*(t*c)^3;
Plot[LBHVolume,{t, 0, LBHHorizon}];
N[(4/3)*PiWen*(LBHHorizon*c)^3, 
        5] " Kubikmeter LBHVolume am LBH-Horizont"

LBHRadius  =  LBHHorizon*c;

NothingDistance = (3*((((1/2)*(c^2))/
                          G) - (1 - (((c - 
                                        c*(((c/
                                        CBRWavelength)/((c^3/(16*
                                        PiWen*G))/(4/3*
                                        PiWen*((((3/(8*rho*PiWen*
                                        G))^(1/2))*c)^3)*
                                        rho)))^2))/(1 + (((c/CBRWavelength)/((c^3/(16*PiWen*G))/(4/3*
                                        PiWen*((((3/(8*rho*PiWen*
                                        G))^(1/2))*c)^3)*
                                        rho)))^2)))^2)/
                                c^2)^(1/2)*(((1/2)*(c^2))/
                            G))/(4*PiWen*rho))^(1/2) - 
          G*((2*(4/3*
                        PiWen*((((3/(8*rho*PiWen*G))^(1/
                                        2))*c)^3)*
                        rho))/(c^2));

LBHMissingVolume  =  (4/3)*
            PiWen*(LBHHorizon*c)^3 - (4/3)*
            PiWen*((LBHHorizon*c + 
                    NothingDistance))^3;
LBHMissingMass  =  LBHMissingVolume *rho ;
LBHInnerSurface:=PiWen*(LBHHorizon*c + NothingDistance)^2;
NothingDistanceCubeVol = (-NothingDistance)^3;
NothingDistanceSphereVol = (4/3)*
          Pi*((-NothingDistance/
                  2))^3;
N[LBHRadius, 
        4] " m LBH-Radius"
N[-NothingDistance, 
        4] " m NothingDistance-Wert := Distanz der \
Überlappung der LBH am einem TouchPoint"
N[-NothingDistance/c, 
        4] " Sec NothingDistance-ZeitWert := Zeit der \
Überlappung der LBH am einem TouchPoint"
N[LBHMissingVolume, 
        8] " LBHMissingVolume-Wert"
N[(4/3)*PiWen*(LBHHorizon*c)^3, 
        5] " Kubikmeter LBHVolume am LBH-Horizont"
LBHTotalMass  =  
        rho*(4/3)*PiWen*(LBHHorizon*c)^3 ;
N[LBHTotalMass, 5] " LBHTotalMass "
N[1/rho, 5] " 1/rho (m^3/kg) "
mkgcand1 = 
        LBHMissingVolume/LBHTotalMass;
N[LBHMissingVolume/LBHTotalMass, 5] " m^3/kg-Kooeffizient von G? (LBHMissingVolume/LBHTotalMass)"
LBHOutterUmfang = 2*PiWen*LBHHorizon*c;
N[LBHOutterUmfang, 5] " m LBHOutterUmfang "
LBHInnerUmfang = 
        2*PiWen*(LBHHorizon*c + 
              NothingDistance);
N[LBHInnerUmfang, 5] " m LBHInnerUmfang "
N[LBHOutterUmfang - LBHInnerUmfang, 5] " m Differenz LBHOutterUmfang-LBHInnerUmfang "
N[(LBHOutterUmfang - 
                LBHInnerUmfang)/c,5] " sec Zeit-Differenz LBHOutterUmfang-LBHInnerUmfang "
N[(((LBHOutterUmfang)/c)/(((LBHOutterUmfang - 
                          LBHInnerUmfang)/c)))^2,5] " Anzahl Slices auf der Outter-Oberfläche "
N[(mkgcand1)/((-NothingDistance/c)*((LBHOutterUmfang - 
                        LBHInnerUmfang)/c)),5] " G mit s-2-Kooeffizient von G? (Zeit-Differenz LBHOutterUmfang-LBHInnerUmfang)*(NothingDistance-ZeitWert): Zu klein"
N[(mkgcand1)/((-NothingDistance/c)*((LBHOutterUmfang)/c)),5] " G mit s-2-Kooeffizient : (Zeit LBHOutterUmfang)*(NothingDistance-ZeitWert): Zu gross"
N[(mkgcand1)/((-NothingDistance/c)*(LBHHorizon)),5] " G mit s-2-Kooeffizient :(Zeit LBHHorizon)*(NothingDistance-ZeitWert): Zu gross"
N[(mkgcand1)/((((LBHHorizon*c + NothingDistance))/c)*(LBHHorizon)),5] " G mit s-2-Kooeffizient :(Zeit LBHHorizon)*(Zeit InnerLBHHorizon): Zu gross"
N[(1/rho)/((((LBHHorizon*c + NothingDistance))/c)*(LBHHorizon)),5] " G? 1/rho/(Zeit LBHHorizon)*(Zeit InnerLBHHorizon): Zu gross"

LBHRemainingMass  =  
        LBHTotalMass - LBHMissingMass;
N[LBHRemainingMass, 5] " kg LBHRemainingMass"
mkgcand2 = 
        LBHMissingVolume/LBHRemainingMass;
N[LBHMissingVolume/LBHRemainingMass, 5] " m^3/kg-Kooeffizient von G? (LBHMissingVolume/LBHRemainingMass), Kandidat 2"
N[(mkgcand2)/((-NothingDistance/c)*((LBHOutterUmfang - 
                        LBHInnerUmfang)/c)),5] " G mit s-2-Kooeffizient von G? (Zeit-Differenz LBHOutterUmfang-LBHInnerUmfang)*(NothingDistance-ZeitWert): Zu klein"
N[(mkgcand2)/((-NothingDistance/c)*((LBHOutterUmfang)/c)),5] " G mit s-2-Kooeffizient : (Zeit LBHOutterUmfang)*(NothingDistance-ZeitWert): Zu gross"
N[(mkgcand2)/((-NothingDistance/c)*(LBHHorizon)),5] " G mit s-2-Kooeffizient :(Zeit LBHHorizon)*(NothingDistance-ZeitWert): Zu gross"
N[(mkgcand2)/((((LBHHorizon*c + NothingDistance))/c)*(LBHHorizon)),5] " G mit s-2-Kooeffizient: (Zeit LBHHorizon)*(Zeit InnerLBHHorizon): Zu gross"

LBHInnerTime= LBHHorizon+(NothingDistance/c);
N[LBHInnerTime, 5] " sec LBHInnerTime "
N[LBHHorizon-LBHInnerTime,5] " sec NewTime "
SpeedLoss =c-((c^2)*(1-((ReferenzPhotonenEnergie-ReferenzPhotonenEnergie*(1-((((1/2)*(c^3)*LBHInnerTime/G)-((4/3)*
                                        PiWen*(LBHInnerTime*c)^3*rho))/((1/2)*(c^3)*LBHInnerTime/G))))/ReferenzPhotonenEnergie)^2))^(1/2);
N[c-((c^2)*(1-((ReferenzPhotonenEnergie-ReferenzPhotonenEnergie*(1-((((1/2)*(c^3)*LBHInnerTime/G)-((4/3)*
                                        PiWen*(LBHInnerTime*c)^3*rho))/((1/2)*(c^3)*LBHInnerTime/G))))/ReferenzPhotonenEnergie)^2))^(1/2),18] "m/s LBH Geschwindigkeitsverlust"
NewDistance= (SpeedLoss*LBHHorizon);
N [NewDistance, 4]