|
|
1.1 root 1: .G1
2: graph Linear
3: coord x 1785,1955 y 0,160
4: label left "Population" "in Millions" left .2
5: label right "Linear Scale," "Linear Fit"
6: ticks bot off
7: copy "usapop.d"
8: define fit { 35 + 1.4*($1-1870) }
9: line from 1850,fit(1850) to 1950,fit(1950)
10: graph Exponential with .Frame.n at Linear.Frame.s -(0,.05)
11: coord x 1785,1955 y 3,160 log y
12: label left "Population" "in Millions" left .2
13: label right "Logarithmic Scale," "Exponential Fit"
14: copy "usapop.d"
15: define fit { exp(0.75 + .012*($1-1800)) }
16: line from 1790,fit(1790) to 1920,fit(1920)
17: .G2
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.