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