Create cntrd.m

Mostly unedited Dufresne Script