This notebook contains all code needed to generate the 3D bar chart for main page for CAS integration tests.
Nasser M. Abbasi, August 2, 2018

casNames={
Text@Style["Rubi",Bold,10],
Text@Style["Mathematica",Bold,10],
Text@Style["Maple",Bold,10],
Text@Style["FriCAS",Bold,10],
Text@Style["Giac/Xcas",Bold,10],
Text@Style["Maxima",Bold,10],
Text@Style["Sympy",Bold,10]
};

(*must be same order as above. These below are arranged in F,C,B,A grade for each case. One row per CAS *)
dataForChart=
{{0.10068755214176406`,0.05897413768303558`,0.08198843531543973`,99.75834987485975`},{2.6696585253588694`,15.812260867063662`,8.459192773510543`,75.36607117171543`},{16.203503926814534`,9.179827968125199`,22.128247173556574`,52.4884209315037`},{33.72745318028825`,0.`,0.`,66.27254681971174`},{46.880124277207216`,0.`,0.`,53.119875722792784`},{54.45758177267628`,0.`,0.`,45.54241822732372`},{69.71174592215414`,0.`,0.`,30.28825407784586`}};

percentageSolvedByRubi=dataForChart[[1,4]];
percentageSolvedByM=dataForChart[[2,4]];
percentageSolvedByMaple=dataForChart[[3,4]];
percentageSolvedByFricas=dataForChart[[4,4]];
percentageSolvedByGiac=dataForChart[[5,4]];
percentageSolvedByMaxima= dataForChart[[6,4]];
percentageSolvedBySympy=dataForChart[[7,4]];



outputImage=BarChart3D[
dataForChart,
ChartLayout->"Percentile",
ChartStyle->{ Red,   RGBColor[255/255,255/255,0/255], RGBColor[51/255,51/255,255/255], RGBColor[50/255,205/255,50/255]},
ChartLabels->{Placed[casNames,Below ],None},
PlotLabel->Grid[
{
{Text[Style["Antiderivative Grade distribution for each CAS",20]]},
{Text[Style["Numbers shown on bars are percentage of A grade for each CAS",10]]}
}
],
ImageSize->500,
FaceGrids->None,
Axes->False,
ChartBaseStyle->EdgeForm[None],
ImageSize->400,
PlotRange->{0,110},
BarSpacing->1.4, PlotTheme->"Classic",Background->None,Lighting->None,Method->{"Canvas"->None},
ChartLegends->{"F","C","B","A"},
Epilog->{(*same order as names listed above*)
 Text[Style[ToString[Round[percentageSolvedByRubi,0.01]]<>"%",Bold],Scaled[{1/14,.6}]],
Text[Style[ToString[Round[percentageSolvedByM,0.01]]<>"%",Bold],Scaled[{1/16+1/7,.6}]],
Text[Style[ToString[Round[percentageSolvedByMaple,0.01]]<>"%",Bold],Scaled[{1/16+2/7,.6}]],
Text[Style[ToString[Round[percentageSolvedByFricas,0.01]]<>"%",Bold],Scaled[{1/20+3/7,.6}]],
Text[Style[ToString[Round[percentageSolvedByGiac,0.01]]<>"%",Bold],Scaled[{1/22+4/7,.6}]],
Text[Style[ToString[Round[percentageSolvedByMaxima,0.01]]<>"%",Bold],Scaled[{1/22+5/7,.6}]],
Text[Style[ToString[Round[percentageSolvedBySympy,0.01]]<>"%",Bold],Scaled[{1/22+6/7,.6}]]
}
]