work on slip models and tectonic stresses
got mathematica expression generating code working.