Create Prog18_1.m