ICAS logo

a1[x_]=Sin[(x^(.6))].8;
a2[x_]=Cos[.7+(x^(.45))]0.8;
logo2=Plot[{a1[x]+1,a2[x]+1,((Abs[a1[x]+a2[x]])^2)-0.2+1,((Abs[a1[x]+a2[x]])^2)+.4+1,((Abs[a1[x]+a2[x]])^2)+.6+1},
{x,4.2,60},AspectRatio->.7071,
PlotRange->{{-1,60},{-3,12}},
 Frame->False,Axes->False,
PlotStyle->{
{Thickness[.018],RGBColor[0.0,.3,.53]},
{Thickness[.018],RGBColor[.8,.8,.8]},
{Thickness[.02],RGBColor[0.001,0.6,0.86]},
{Thickness[.032],RGBColor[.9,.9,.9]},
{Thickness[.02],RGBColor[0.001,0.6,.86]}},
Epilog->{RGBColor[1,.7,0],Disk[{21,2.7},{1.5,.55}],
RGBColor[1,0.9,0.2],Disk[{21,2.7},{1.5,.55}*.7],
Text[Style["ICAS",FontFamily->"Didot",RGBColor[.3,.3,.3],90],{26,6.5}]
}]