第一题代码
goptions reset=global gunit=pct border
ftext=swissb htitle=6 htext=3
colors=(black blue green red)
hsize=7 in vsize=5 in
targetdevice=pscolor;
title1 "Fudan University Circle";
data vector;
rc=ginit();
rc=graph("clear");
rc=gset("lincolor", 2);
rc=gset("linwidth", 5);
rc=gdraw("arc", 84, 50, 35, 0, 360);
rc=gdraw("line", 2, 49, 119, 51, 51);
rc=gdraw("line", 2, 84, 84, 15, 85);
rc=gset("texheight", 5);
rc=gdraw("text", 121, 50, "0");
rc=gset("texalign", "right", "normal");
rc=gdraw("text", 47, 50, "180");
rc=gset("texalign", "center", "normal");
rc=gdraw("text", 84, 87, "90");
rc=gdraw("text", 84, 9, "270");
rc=gset("texalign", "normal", "normal");
rc=gdraw("text", 85, 52, "");
rc=gset("texup", 1.0, 0.0);
rc=gdraw("text", 85, 49, "");
rc=gset("texup", 0.0, -1.0);
rc=gdraw("text", 83, 50, "");
rc=gset("texup", -1.0, 0.0);
rc=gdraw("text", 83, 52, "");
rc=graph("update");
rc=gterm();
run;
|