|
|
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.