An Education Platform Built on Wolfram Technologies

Karl Schmedders & Maik Meusel 
University of Zurich

CellPrint[TextCell[Framed[Column[{Style["     Abstract",Italic,22,LightGray,FontFamily->"Helvetica Neue"],"",Style["      By integration of courseware, assessment and evaluation tools we built an education platform based on the Wolfram Language, and deployed as a web application using the Wolfram Cloud. In fall 2015 this platform is used for the first time for a course at Kellogg School of Management.",18,LightGray,FontFamily->"Helvetica Light"],"",Style["      In this presentation, we want to share our experience gained from the course, the student’s feedback, and discuss the use of Wolfram Technologies for educational services at universities. ",18,LightGray,FontFamily->"Helvetica Light"],"",Style["      Keywords: Higher Education, Wolfram Cloud",18,Black,FontFamily->"Helvetica Light"]},Alignment->Left],FrameMargins->{{10,40},{30,20}}],"Output",CellMargins->{{100,30},{20,10}}]]

Join the Conversation #WolframTechConf

Challenges in Modern Education

_Students may “understand” theoretical concepts, but cannot solve problems
_Engage students and help them to learn efficiently 
_“No pressure, no diamonds.”

IMPLICATIONS

CellPrint[TextCell[Framed[Column[{

Row[{Style["   💡 ",Bold,25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Make your customers happy",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}],

Row[{Style["   💡 ",Bold,25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Interactive “learning by doing”",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}],

Row[{Style["   💡 ",Bold,25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Exercises along the way with immediate feedback",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}],

Row[{Style["   💡 ",Bold,25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Individualized learning and testing",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}]

}],Background->LightGray,FrameMargins->{{10,40},{30,20}},FrameStyle->LightGray],"Output",CellMargins->{{60,30},{20,10}}]]

Courseware with Mathematica

_Course materials should contain coding examples, demonstrations, and tools
_Focus on intuition, convenience, and interactivity
_Use built-in knowledge and data as much as possible

CellPrint@ExpressionCell[Row@{Button[Style["2013 COURSEWARE",FontSize->25,FontColor->GrayLevel[1]],SystemOpen["Desktop/WTC2015_Materials/EM2013_Slides.08.nb"],Appearance->None,Background->RGBColor[{Rational[37,51],Rational[2,85],Rational[4,85]}],Evaluator->Automatic,FrameMargins->{{17,17},{12,12}},Method->"Preemptive"],"  ",
Button[Style["2015 COURSEWARE",FontSize->25,FontColor->GrayLevel[1]],SystemOpen["Desktop/WTC2015_Materials/Basic Statistics.nb"],Appearance->None,Background->RGBColor[{Rational[37,51],Rational[2,85],Rational[4,85]}],Evaluator->Automatic,FrameMargins->{{17,17},{12,12}},Method->"Preemptive"]
},"Output",CellMargins->{{60,30},{20,10}}]

TAKE AWAYS

CellPrint[TextCell[Framed[Column[{

Row[{Style["   _",25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Students like interactive course materials",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}],

Row[{Style["   _",25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["File size file and distribution is problematic",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}],

Row[{Style["   _",25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Robustness will always be an issue",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}],

Row[{Style["   _",25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Limited opportunities to implement interactivity.",24,Black,FontFamily->"Helvetica"]},ImageSize->{700,27}]

}],Background->LightGray,FrameMargins->{{10,40},{30,20}},FrameStyle->LightGray],"Output",CellMargins->{{60,30},{20,10}}]]

SYLVA - Seeing the Forest, and the Trees

_Integrate course materials, testing, and reporting in one single platform 
_Build a pipeline to push (and update) contents to the platform directly from Mathematica
_Make the authoring process as robust and convenient as possible
_Build to scale (IBM Bluemix & Softlayer)

CellPrint@ExpressionCell[Row@{Button[Style["MATHEMATICA AUTHORING TOOL",FontSize->25,FontColor->GrayLevel[1]],SystemOpen["https://applied.services/abma2015/cases/"],Appearance->None,Background->RGBColor[{Rational[37,51],Rational[2,85],Rational[4,85]}],Evaluator->Automatic,FrameMargins->{{17,17},{12,12}},Method->"Preemptive"],"  ",
Button[Style["SYLVA",FontSize->25,FontColor->GrayLevel[1]],SystemOpen["http://localhost:3000/"],Appearance->None,Background->RGBColor[{Rational[37,51],Rational[2,85],Rational[4,85]}],Evaluator->Automatic,FrameMargins->{{17,17},{12,12}},Method->"Preemptive"](*,"\n",
Button[Style["2015 ASSIGNMENT",FontSize->25,FontColor->GrayLevel[1]],SystemOpen["https://applied.services/abma2015/cases/"],Appearance->None,Background->RGBColor[{Rational[37,51],Rational[2,85],Rational[4,85]}],Evaluator->Automatic,FrameMargins->{{17,17},{12,12}},Method->"Preemptive"],"  ",
Button[Style["2015 REPORT",FontSize->25,FontColor->GrayLevel[1]],SystemOpen["https://applied.services/abma2015/cases/"],Appearance->None,Background->RGBColor[{Rational[37,51],Rational[2,85],Rational[4,85]}],Evaluator->Automatic,FrameMargins->{{17,17},{12,12}},Method->"Preemptive"]*)
},"Output",CellMargins->{{60,30},{20,10}}]

TAKE AWAYS

CellPrint[TextCell[Framed[Column[{

Row[{Style["   _",25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["We need a PrivateCloud!",25,Black,FontFamily->"Helvetica"]},ImageSize->{700,35}],

Row[{Style["   _",25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["The WL is the key technology for our platform.",25,Black,FontFamily->"Helvetica"]},ImageSize->{700,35}],

Row[{Style["   _",25,RGBColor[{185,12,6}/255],FontFamily->"Helvetica"],Style["Developing a platform is hard, but it‘s worth it.",25,Black,FontFamily->"Helvetica"]},ImageSize->{700,35}]

}],Background->LightGray,FrameMargins->{{10,40},{30,20}},FrameStyle->LightGray],"Output",CellMargins->{{60,30},{20,10}}]]

Next Steps

_Enhance customization
_Extend interactivity
_Build in intelligence 
_Make it a game changer!

THANKS FOR YOUR ATTENTION! 


Let‘s get in touch
karl.schmedders@business.uzh.ch
maik.meusel@business.uzh.ch