Plot[{5-Abs[5-x],0.5,0.5-Abs[5+4.5-x],0.5-Abs[5+-4.5-x]},{x,0,10.2},PlotRange->{0,6},AxesStyle->{{Arrowheads[{0.,0.03}],{Thick}},{Arrowheads[{0.0,0.03}],{Thick}}},Ticks->None,PlotStyle->{Blue,Green,Red,Red},AxesLabel->{OverVector[x],τ→∞},LabelStyle->Black]

Plot[{5-Abs[5-x],0.5,0.5-Abs[5+4.5-x],0.5-Abs[5+-4.5-x]},{x,0,10.1},PlotRange->{-7,6},AxesStyle->{{Arrowheads[{0.0,0.03}],{Thick}},{Arrowheads[{0.0,0.03}],{Thick}}},Ticks->None,PlotStyle->{Blue,Green,Red,Red},AxesLabel->{OverVector[x],τ→∞},LabelStyle->Black]

Plot[{Sqrt[-x^2+0.5],-Sqrt[-x^2+0.5]},{x,-2,2},PlotRange->{{-1.5,1.5},{-1,1}},AxesStyle->{{Arrowheads[{0.,0.03}],{Thick}},{Arrowheads[{0.0,0.03}],{Thick}}},Ticks->None,PlotStyle->{Blue},AxesLabel->{Abs[ Style[x,Bold]],Subscript[t,"E"]},LabelStyle->Black]

Plot[{Sqrt[x^2-0.5],Abs[x],-Sqrt[-x^2+0.5]},{x,-2,2},PlotRange->{{-2,2},{-1,2}},PlotRange->All,AxesStyle->{{Arrowheads[{0.,0.03}],{Thick}},{Arrowheads[{0.0,0.03}],{Thick}}},Ticks->None,PlotStyle->{Blue,Green,Blue},AxesLabel->{Abs[ Style[x,Bold]],t},LabelStyle->Black]

Plot[{1+Exp[-2(x)],1},{x,0,4},PlotRange->All,PlotRange->{0,1},AxesStyle->{{Arrowheads[{0.,0.03}],{Thick}},{Arrowheads[{0.0,0.03}],{Thick}}},Ticks->{{5,5},{0,1}},PlotStyle->{Blue,{Black,Thickness[0.003]}},AxesLabel->{t,Ω},LabelStyle->Black,TicksStyle->Black]

Graphics[{Black,Rectangle[{-5.05,-5.05},{10.05,5.02}],LightBlue,Rectangle[{-5,-5},{10,5}],
Blue,Circle[{4,2},0.3],White,Disk[{4,2},0.3],
Blue,Circle[{-2,-1},0.1],White,Disk[{-2,-1},0.1]}]

Graphics[{Black,Rectangle[{-5.05,-5.05},{10.05,5.02}],LightBlue,Rectangle[{-5,-5},{10,5}],
Blue,Circle[{4,2},1.7],White,Disk[{4,2},1.7],
Blue,Circle[{-2,-1},1],White,Disk[{-2,-1},1],
Blue,Circle[{-2,3},0.3],White,Disk[{-2,3},0.3],
Blue,Circle[{5,-2},0.1],White,Disk[{5,-2},0.1]
}]

Graphics[{Black,Rectangle[{-5.05,-5.05},{10.05,5.02}],LightBlue,Rectangle[{-5,-5},{10,5}],
Blue,Circle[{4,2},3],White,Disk[{4,2},3],
Blue,Circle[{-2,-1},2.2],White,Disk[{-2,-1},2.2],
Blue,Circle[{-2,3},1.3],White,Disk[{-2,3},1.3],
Blue,Circle[{5,-2},0.7],White,Disk[{5,-2},0.7],
Blue,Circle[{8,1},0.3],White,Disk[{8,1},0.3]
}]

Graphics[{Black,Rectangle[{-5.05,-5.05},{10.05,5.02}],White,Rectangle[{-5,-5},{10,5}]
}]

---------------------------------------------------------------------------------------------------------------------

Graphics[{Black,Rectangle[{-5.05,-5.05},{10.05,5.02}],LightBlue,Rectangle[{-5,-5},{10,5}],
Blue,Circle[{4,2},0.3],White,Disk[{4,2},0.3],
Blue,Circle[{-2,-1},0.1],White,Disk[{-2,-1},0.1]}]

Graphics[{Black,Rectangle[{-10.08,-10.05},{20.08,10.05}],LightBlue,Rectangle[{-10,-10},{20,10}],
Blue,Circle[{6,2.5},1.7],White,Disk[{6,2.5},1.7],
Blue,Circle[{-4,-2},1],White,Disk[{-4,-2},1],
Blue,Circle[{-2,3},0.3],White,Disk[{-2,3},0.3],
Blue,Circle[{5,-2},0.1],White,Disk[{5,-2},0.1],
Blue,Circle[{15,7},0.5],White,Disk[{15,7},0.5],
Blue,Circle[{12,-7},0.3],White,Disk[{12,-7},0.3]
}]

Graphics[{Black,Rectangle[{-20.2,-20.1},{40.2,20.1}],LightBlue,Rectangle[{-20,-20},{40,20}],
Blue,Circle[{9,4},3],White,Disk[{9,4},3],
Blue,Circle[{-8,-6},2.2],White,Disk[{-8,-6},2.2],
Blue,Circle[{-10,10},1.3],White,Disk[{-10,10},1.3],
Blue,Circle[{5,-2},0.7],White,Disk[{5,-2},0.7],
Blue,Circle[{10,-5},0.3],White,Disk[{10,-5},0.3],
Blue,Circle[{15,7},1.7],White,Disk[{15,7},1.7],
Blue,Circle[{20,-15},1.4],White,Disk[{20,-15},1.4],
Blue,Circle[{30,-16},0.4],White,Disk[{30,-16},0.4],
Blue,Circle[{36,15},0.3],White,Disk[{36,15},0.3],
Blue,Circle[{-12,-12},0.2],White,Disk[{-12,-12},0.2]
}]

Graphics[{Black,Rectangle[{-40.4,-40.4},{80.4,40.1}],LightBlue,Rectangle[{-40,-40},{80,40}],
Blue,Circle[{18,4},5],White,Disk[{18,4},5],
Blue,Circle[{-16,-12},4],White,Disk[{-16,-12},4],
Blue,Circle[{-20,20},3],White,Disk[{-20,20},3],
Blue,Circle[{10,-5},1.7],White,Disk[{10,-5},1.7],
Blue,Circle[{20,-10},1.2],White,Disk[{20,-10},1.2],
Blue,Circle[{30,14},2.5],White,Disk[{30,14},2.5],
Blue,Circle[{40,-30},3.2],White,Disk[{40,-30},3.2],
Blue,Circle[{36,-32},1.6],White,Disk[{36,-32},1.6],
Blue,Circle[{56,30},1.4],White,Disk[{56,30},1.4],
Blue,Circle[{-26,-24},1.2],White,Disk[{-26,-24},1.2]
}]

x[t_,H_]=1/H*(1-Exp[-H t]);
Plot[{x[t,1],-x[t,1],x[t,1]-2,-x[t,1]-2,x[t,1]+2,-x[t,1]+2},{t,0,20},AxesStyle->{{Arrowheads[{0.,0.03}],{Thick}},{Arrowheads[{0.0,0.03}],{Thick}}},Ticks->False,PlotStyle->{Red,Red,Blue,Blue,Green,Green},AxesLabel->{t,Style[x,Bold]},RotateLabel->True,LabelStyle->Black,TicksStyle->Black]