Commit | Line | Data |
---|---|---|
7af5ad59 PH |
1 | DIMENSION X(50),Y(50),SALES(12),TXT(7)\r |
2 | DATA SALES/20,30,32,40,50,90,95,90,40,30,20,15/\r | |
3 | DATA TXT/'AIR CONDITIONER SALES EACH MONTH OF 1972 '/\r | |
4 | CALL PLOTS(0.006,0)\r | |
5 | CALL XYPLOT(1,1,-3)\r | |
6 | DO 5 J=1,12\r | |
7 | I=(J-1)*4+1\r | |
8 | Y(I)=0\r | |
9 | Y(I+1)=SALES(J)\r | |
10 | Y(I+2)=SALES(J)\r | |
11 | 5 Y(I+3)=0\r | |
12 | Y(49)=0\r | |
13 | Y(50)=10\r | |
14 | DO 10 I=1,48,4\r | |
15 | X(I)=I/4+1.25\r | |
16 | X(I+1)=X(I)\r | |
17 | X(I+2)=I/4+0.75\r | |
18 | 10 X(I+3)=X(I+2)\r | |
19 | X(49)=0\r | |
20 | X(50)=1.\r | |
21 | CALL AXIS(0,0,'MONTH',-5,13,0,0,1)\r | |
22 | CALL AXIS(0,0,'AIR CONDITIONERS (X100)',23,10,90,0,10)\r | |
23 | CALL LINE(X,Y,48,1,0,0)\r | |
24 | CALL SYMBOL(1,10.5,.25,TXT,0,40)\r | |
25 | CALL XYPLOT(12,0,3)\r | |
26 | CALL PLEXIT\r | |
27 | END\r | |
28 | \f\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |