ניסיתי בעבר להביא את הטענות לכך שיתכן ואנחנו הגענו לעידן "שיא תפוקת הנפט".
הטענות היו בפוסט "שיא תפוקת הנפט – דבר איתי במספרים בבקשה" שבו כתבתי:
"טענה 1 – הנפט המוגדר Crude נכנס לפלטו החל משנת 2005"
לטענה צורף גרף המוכיח את הטענה.
בעקבות החשיבות שאני רואה לגרף, וכן פניה מהקהל, אני רוצה לדון בדרכים לשחזר את הגרף.
שיטה מספר 1 – הדוח החודשי של ארגון ASPO
הגרף בפוסט הגיע מדוח החודשי של דצמבר 2009 שנערך על ידי השלוחה ההולנדית של ארגון ASPO. את הדוח המעודכן ניתן למצוא בכתובת הזו.
עורך הדוח (בחור ושמו Rembrandt Koppelaar) אוסף כל חודש נתונים מלפחות שלושה מקורות:
IEA – סוכנות האנרגיה הבינלאומית אשר מפרסמת דוח חודשי, אך לא מספקת בחינם את הנתונים הגולמיים.
EIA – סוכנות האנרגיה של ארצות הברית שמפרסמת בחינם את הנתונים הגולמיים.
BP – נתונים של חברת הנפט BP, שלא ידוע לי עדיין מידע נוסף לגבי הדרך בה היא מפרסמת את נתוניה.
הבחור מארגן את הנתונים בצורה נוחה לקורא. חלק מהנתונים הגולמיים חייבים לעבור עיבוד בכדי להיות מיוצגים כגרפים.
אם אתם רוצים להיעזר בדוח הנ"ל כנסו לדוח המעודכן ביותר, וחפשו את הגרף הנקרא " World Crude Oil Production". אני הוספתי על הגרף את שני הקווים על ידי תוכנה גרפית פשוטה, ללא כל חישוב מדויק, אלא רק באופן שממחיש את הכניסה לפלטו.
שיטה 2 – שימוש בנתונים הגולמיים של EIA
ארגון EIA מפרסם את הדוח החודשי שלו בכתובת הזו. את הנתונים הגולמיים ניתן למצוא בכתובת הזו.
אני בחרתי בפורמט CSV של הטבלה המכונה "Persian Gulf Nations, Non-OPEC, and World". שם הקובץ הוא MER_T11_01B.csv . בעזרת עיבוד יצרתי את גרף התפוקה העולמית לשנים 2002 עד 2009. הנתון האחרון היום הוא של דצמבר 2009.
הצורך בעיבוד נובע מכך שלא הצלחתי לייצר ישירות גרף מקובץ האקסל הסטנדרטי, עקב האופן בו נבנתה עמודת התאריך.
בחרתי לכן בפורמט CVS שהוא קובץ טקסטואלי שניתן לעבד אותו בקלות. בחרתי בשפת Perl לצורך העיבוד, אין סיבה מיוחדת פרט לכך שזו השפה שאני רגיל אליה.
יש להתקין תוכנתPerl . אני התקנתי את התוכנה:
activeperl 5.10.1 build 1007
יש להעתיק את הקוד הבא לתוך קובץ בשם convert_csv.pl
open(InFile, "$ARGV[0]") || die "Can't open $ARGV[0]";
open(OutFile, ">$ARGV[1]") || die "Can't open $ARGV[1]";
while ($line = <InFile>) {
chomp($line);
@columns = split (/,/,$line);
$type = $columns[0],"\n";
$year = $columns[1],"\n";
$production = $columns[2],"\n";
$month = substr ($year,4,2);
$year = substr ($year,0,4);
$year1 = $year + (($month-1)/12);
if (($type =~ /PAPRPWO/) && ($month != "13")) {
print OutFile $year1,"," ,$production/1000,"\n";
}
}
close (InFile);
close (OutFile);
פתחו חלון DOS על ידי START -> RUN -> cmd
עברו למחיצה שבה שמרתם את convert_csv.pl וכן את MER_T11_01B.csv
רשמו
perl convert_csv.pl MER_T11_01B.csv world.csv
עכשיו פתחו את world.csv בעזרת אקסל וצרו גרף.
שימו לב שיש פיגור של 3 חודשים בנתונים של EIA.
לקבלת עזרה נוספת:
moc.liamgnull@4lemrac.rima