data glm5_8;
do n=1 to 3;
   do d24=0 to 0.10 by 0.05;
     do kt=0 to 0.10  by 0.05 ;
       input y @@;
       output;
     end;
   end;
end;
cards;
0.24 0.35 0.38 0.20 0.25 0.36 0.28 0.50 0.30
0.26 0.31 0.35 0.21 0.21 0.35 0.20 0.51 0.31
0.25 0.32 0.35 0.22 0.26 0.34 0.21 0.52 0.32
;
proc glm data=glm5_8;
class d24 kt;
model y=d24 kt d24*kt ;
contrast  '（kt2 vs kt3）/d24 -1'    kt  0  1 -1 d24*kt 0 1 -1;
run;
proc glm data=glm5_8;
class kt d24 ;
model y=kt d24 kt*d24 ;
contrast  '（d24-1 vs d24-2）/kt3 '  d24 1 -1  0 kt*d24 0 0 0 0 0 0 1 -1 0;
run ; quit ;