NP=500;xPotEnd=0.6;potH=6000;V=Array[If[#>0.5&&#<xPotEnd,potHUnitStep[#],0.0]&,NP,{0,1}];PsiNum8=TDSE5[Function[{x},If[x>0.5&&x<xPotEnd,potHUnitStep[x],0.0]],Ct0,{0,1},{0.,0.004,0.4*10^-6}];//AbsoluteTimingTimeEnd=Length[PsiNum8]Lx=Array[#&,NP,{0,1}];Ly=Array[0.6&,NP,{0,1}];Ly2=Array[0.4&,NP,{0,1}];Ly3=Array[0.2&,NP,{0,1}];Ly4=Array[0.8&,NP,{0,1}];Ly5=Array[1.0&,NP,{0,1}];LPot=V/10000;BK="White";FC="Black";potV=Table[{Lx[[k]],Ly2[[k]],LPot[[k]]},{k,1,NP,1}];(For[i=TimeEnd,i≥1,i--,{ImPsi=Im[PsiNum8[[i]]];RePsi=Re[PsiNum8[[i]]];AbsPsi=Abs[PsiNum8[[i]]];points=Table[{Lx[[k]],ImPsi[[k]],RePsi[[k]]},{k,1,NP,1}];prob=Table[{Lx[[k]],Ly[[k]],AbsPsi[[k]]},{k,1,NP,1}];ImPsiP=Table[{Lx[[k]],Ly4[[k]],ImPsi[[k]]},{k,1,NP,1}];RePsiP=Table[{Lx[[k]],Ly4[[k]],RePsi[[k]]},{k,1,NP,1}];ImRePsi[i]=Graphics3D[{Green,Thickness[0.008],Line[points]},PlotRange{{0,1},{-1.0,1.0},{-1.0,1.0}},AxesTrue,AxesStyleDirective[FC,10],AxesOrigin{0.0,0.,0.0},BackgroundBK];probPlot[i]=Graphics3D[{Red,Thickness[0.008],Line[prob]},PlotRange{{0,1},{-1.0,1.0},{-1.0,1.0}},AxesTrue,AxesStyleDirective[FC],AxesOrigin{0.0,0.,0.0},BackgroundBK];ImPlot[i]=Graphics3D[{Yellow,Thickness[0.008],Line[ImPsiP]},PlotRange{{0,1},{-1.0,1.0},{-1.0,1.0}},AxesTrue,AxesStyleDirective[FC,10],AxesOrigin{0.0,0.,0.0},BackgroundBK];RePlot[i]=Graphics3D[{Orange,Thickness[0.008],Line[RePsiP]},PlotRange{{0,1},{-1.0,1.0},{-1.0,1.0}},AxesTrue,AxesStyleDirective[FC,10],AxesOrigin{0.0,0.,0.0},BackgroundBK];probV[i]=Graphics3D[{Blue,Thickness[0.008],Line[potV]},PlotRange{{0,1},{-1.0,1.0},{-1.0,1.0}},AxesTrue,AxesStyleDirective[FC,10],AxesOrigin{0.0,0.,0.0},BackgroundBK];}])//AbsoluteTiming(For[i=1,i≤TimeEnd,i++,{alltogether4[i]=Show[{probPlot[i],ImRePsi[i],probV[i],ImPlot[i],RePlot[i]},AxesTrue,AxesStyleDirective[Green,10],AxesLabel{"x","Im Psi","Re Psi"},LabelStyleDirective[White,Bold,11],Ticks{{0,1/2,1},{0,1/2,1},{-1,0,1}},AxesOrigin{0,0,0},PlotRange{{0,1},{-1,1},{-1,1}},SphericalRegionTrue,BackgroundBlack,ImageSize600,AxesLabel{"x","Im Psi","Re Psi"},LabelStyleDirective[White,Bold,11]]}])//AbsoluteTiming