;!0L F^~=fu*FFj~W~6}6}6}WYj~W~2<dzSkalafaktoren som funktion af tidenISRECTEMPTYKGETMENUITESkalafaktoren R som funktion af tiden tWINDOWMODULEFILENAMETiden tlD GETCURSORPOSBEAR285 LOADBITMAPBEAR3062Skalafaktor RFROMDIRECTORYEXlREGISTERCLIPBOARDFORMATMS'N00"Arial"Arial"Arial"ArialtppSkalaptffSkalaft01@@052.503?hp?G0*`W;P!o Klar - Lkke;P;{Integral for t0} K:=Omeganul+Omegalambda-1 Func g(x):=(x/(Omeganul+Omegalambda*x^3-K*x))^0.5 x:=0 dx:=0.005 {Differentialligning for R} tp,yp,vp:=2,1,1 tf,yf,vf:=tp,yp,vp Func f(t,y,v):=-Omeganul/(2*y^2)+Omegalambda*y Model Rpast yp':=vp vp':=f(tp,yp,vp) EndModel Model Rfuture yf':=vf vf':=f(tf,yf,vf) EndModel dt:=0.005 IntegrateMethod:=RK4 p:=0 q:=0 If (Omeganul<0.5 or Omeganul=0.5) Then OmegaE:=0.5*((1-Omeganul+(1-2*Omeganul)^(0.5))^(1/3)+(1-Omeganul-(1-2*Omeganul)^(0.5))^(1/3))^3 Else a:=arccos(1/Omeganul-1) OmegaE:=4*Omeganul*(cos(a/3))^3 Endif If (Omegalambda>OmegaE or Omegalambda=OmegaE) Then q:=1 If (Omeganul=0 and Omegalambda=0) Then q:=2 tpp:=0 endif {If q=0 Then {Beregning af t0} If (x<1 or x=1) Then t00:= | g(x),x,dx x:=x+dx Else t0:=t00 p:=p+1 If p=1 Then tp:=t0 tf:=t0 Endif {Beregning af R. Big-Bang} If yp>0 Then Integrate Rpast(tp,-dt) tpp:=tp Skalap:=yp tp:=tp-dt Endif If (yf>0 and yf<10) Then Integrate Rfuture(tf,dt) tf:=tf+dt tff:=tf Skalaf:=yf Endif Endif Endif If q=1 Then {Beregning af R. Ikke Big-Bang} If yp>0 Then Integrate Rpast(tp,-dt) tpp:=tp Skalap:=yp tp:=tp-dt Endif If (yf>0 and yf<10) Then Integrate Rfuture(tf,dt) tf:=tf+dt tff:=tf Skalaf:=yf Endif Endif If q=2 Then t0:=1 Skalap:=tpp tpp:=tpp+dt Endif  Vrdier 1;P*#y>@b@@@@g@ArialOmeganul<? Omegalambda<ffffff?< Vrdier 2;PI>@L@@@@D@ArialAldert0<