Platform: Matematica
Goal for code: Change the transmission probability on a scale of 0.1-1.0 (TransmissionProb) and with each incremental change, find the corresponing r