|
|
1.1 root 1: .G1
2: label left "Population" "in Millions" left .2
3: label right "$x$ re-expressed as" "" \
4: "$space 0 left ( {date - 1600} over 100 right ) sup 7$" left 1.2
5: define newx { exp(7*(log(($1-1600)/100))) }
6: ticks bot out at newx(1800) "1800", newx(1850) "1850",\
7: newx(1900) "1900"
8: copy "usapop.d" thru {
9: if $1 <= 1900 then { bullet at newx($1),$2 }
10: }
11: .G2
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.