| Line | |
|---|
| 1 |
(* Drawing of the hypercube: |
|---|
| 2 |
Dimensions = 1.25 * 2.55 *) |
|---|
| 3 |
|
|---|
| 4 |
newgraph |
|---|
| 5 |
xaxis min 0 max 1.25 size 1.25 nodraw |
|---|
| 6 |
yaxis min -0.30 max 2.25 size 2.55 nodraw |
|---|
| 7 |
|
|---|
| 8 |
(* Legs *) |
|---|
| 9 |
newline poly pfill 0 pts |
|---|
| 10 |
0.50 0.00 0.75 0.00 0.75 -0.20 0.50 -0.20 |
|---|
| 11 |
copycurve pts |
|---|
| 12 |
0.75 -0.20 1.20 -0.30 1.23 -0.28 0.75 -0.10 |
|---|
| 13 |
copycurve pts |
|---|
| 14 |
0.50 -0.20 0.05 -0.30 0.02 -0.28 0.50 -0.10 |
|---|
| 15 |
copycurve pts |
|---|
| 16 |
0.75 -0.05 1.20 0.03 1.23 0.02 0.75 -0.13 |
|---|
| 17 |
copycurve pts |
|---|
| 18 |
0.50 -0.05 0.05 0.03 0.02 0.02 0.50 -0.13 |
|---|
| 19 |
|
|---|
| 20 |
(* Box *) |
|---|
| 21 |
newline poly pfill 1 pts |
|---|
| 22 |
0.00 0.00 1.00 0.00 1.00 2.00 0.00 2.00 |
|---|
| 23 |
copycurve pfill .80 pts |
|---|
| 24 |
0.00 2.00 0.25 2.20 1.25 2.20 1.00 2.00 |
|---|
| 25 |
copycurve pfill .9 pts |
|---|
| 26 |
1.00 2.00 1.25 2.20 1.25 0.25 1.00 0.00 |
|---|
| 27 |
|
|---|
| 28 |
|
|---|
| 29 |
newline poly pfill 0 pts |
|---|
| 30 |
0.60 0.70 0.60 1.80 0.90 1.80 0.90 0.70 |
|---|
| 31 |
|
|---|
| 32 |
newcurve marktype box marksize .03 .08 fill 1 pts |
|---|
| 33 |
shell : awk ' BEGIN { for (i = 0.65; i < 0.90; i += 0.05) {\ |
|---|
| 34 |
for (j = 0.80; j < 1.70; j += 0.15) {\ |
|---|
| 35 |
printf("%f %f\n", i, j); } } }' |
|---|
