ex13 function

Example 13--Aragonite-Strontianite Solid Solution