Some calculations of quantum optics problems with Mathmatica