File:Augustine's law.svg
From RationalWiki
Jump to: navigation,
search
Augustine's_law.svg (SVG file, nominally 720 × 540 pixels, file size: 88 KB)
This file is from Wikimedia Commons and may be used by other projects. The description on its file description page there is shown below.
Summary[edit]
| DescriptionAugustine's law.svg |
English: Log plot of US Combat aircraft prices as a function of time to demonstrate Augustine's Law Number XVI:[1]
|
| Date | |
| Source | Own work |
| Author | Autopilot |
# R script to generate the plot
p=read.table("combat.csv",header=T,sep=",")
# Ignore the Wright Model A
p=subset(p, Year > 1920)
svg("combat-aircraft.svg",width=8,height=6)
plot(log10(Price) ~ Year, data=p,
main="US Combat Aircraft Price",
xlim=c(1920,2010),
ylim=c(4,9),
ylab="Price",
xlab="Year of introduction",
yaxt="n"
)
axis(2, at=c(4:9), labels=c('$10k','$100k', '$1m', '$10m', '$100m','$1b'))
abline(lm(log10(Price) ~ Year, data=p), col="red")
grid()
# Non-overlapping Subset for the labels
for (model in (c(
'P-6 Hawk',
'P-51 Mustang',
'F-100 Super Sabre',
'F-16A/B Falcon',
'F-18E Hornet',
'B-52H',
'B-52B',
'F-35 Lightning'
))) {
d=subset(p, Model == model)
text(d$Year, log10(d$Price), labels=d$Model, pos=2)
points(d$Year, log10(d$Price), col="blue")
}
dev.off()
"Year","Price","Model","Source" 1906,25000,"Wright Model A","http://en.wikipedia.org/wiki/Wright_Model_A" 1929,13000,"P-6 Hawk","http://en.wikipedia.org/wiki/Curtiss_P-6_Hawk" 1935,23000,"P-36 Mohawk","http://en.wikipedia.org/wiki/Curtiss_P-36_Hawk" 1939,44892,"P-40 Kittyhawk","http://en.wikipedia.org/wiki/Curtiss_P-40_Warhawk" 1942,242595,"A-26 Invader","http://en.wikipedia.org/wiki/A-26_Invader" 1945,50985,"P-51 Mustang","http://en.wikipedia.org/wiki/P-51_Mustang" 1945,85000,"P-47 Thunderbolt","http://en.wikipedia.org/wiki/F-47" 1950,196248,"F-94B Starfire","http://en.wikipedia.org/wiki/Lockheed_F-97_Starfire" 1954,697029,"F-100 Super Sabre","http://en.wikipedia.org/wiki/North_American_F-100_Super_Sabre" 1955,1443000,"B-52B","http://en.wikipedia.org/wiki/Boeing_B-52_Stratofortress" 1958,1420000,"F-104 Starfighter","http://en.wikipedia.org/wiki/Lockheed_F-104_Starfighter" 1960,2400000,"F-4E","http://en.wikipedia.org/wiki/McDonnell_Douglas_F-4_Phantom_II" 1964,9800000,"F-111","http://en.wikipedia.org/wiki/General_Dynamics_F-111" 1970,38000000,"F-14 Tomcat","http://en.wikipedia.org/wiki/F-14_Tomcat" 1972,11800000,"A-10 Thunderbolt","http://en.wikipedia.org/wiki/Fairchild_Republic_A-10_Thunderbolt_II" 1976,27900000,"F-15 Eagle","http://en.wikipedia.org/wiki/F-15_Eagle" 1978,14600000,"F-16A/B Falcon","http://en.wikipedia.org/wiki/F-16_Falcon" 1984,18800000,"F-16C/D Falcon","http://en.wikipedia.org/wiki/F-16_Falcon" 1989,26900000,"F-16E/F Falcon","http://en.wikipedia.org/wiki/F-16_Falcon" 1983,24000000,"F-18A Hornet","http://www.fighter-planes.com/info/f18.htm" 1995,35000000,"F-18E Hornet","http://www.fighter-planes.com/info/f18.htm" 1998,53400000,"B-52H","http://en.wikipedia.org/wiki/Boeing_B-52_Stratofortress" 2005,150000000,"F/A-22 Raptor","http://www.fighter-planes.com/info/f22.htm" 2006,191900000,"F-35 Lightning","http://en.wikipedia.org/wiki/Lockheed_Martin_F-35_Lightning_II"
References[edit]
- ↑ Norman R. Augustine () Augustine's Laws Retrieved on . ISBN: 978-1563472404.
Licensing[edit]
|
I, the copyright holder of this work, hereby publish it under the following licenses:
You may select the license of your choice.
|
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 20:59, 29 August 2010 | 720 × 540 (88 KB) | Autopilot | Made graph 4:3 and removed a few planes from labels. |
Pages using this file
The following page links to this file:
Metadata
This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.
If the file has been modified from its original state, some details may not fully reflect the modified file.
| Width | 720 |
|---|---|
| Height | 540 |
Retrieved from "http://rationalwiki.org/wiki/File:Augustine%27s_law.svg"