This is the mathematica source code I used for calculating susceptibilities and their scaling behavior near the tricritical point in Linear Sigma Model. This project is released under GPL.