Update calcrandomPrimForIm.m