mirror of https://github.com/Gnucash/gnucash
And make Alphavantage the default.pull/256/merge
John Ralls
8 years ago
parent
320c5211b0
commit
c0fd3b3165
@ -1,672 +0,0 @@
|
||||
#!/usr/bin/perl -w
|
||||
#######################################################################
|
||||
# $Id$
|
||||
# Looks up investment prices on the web, and builds a report
|
||||
# to summarize the results
|
||||
#######################################################################
|
||||
$HISTORYFILE="histprices";
|
||||
$newprices = "NO"; # Haven't found *any* new prices so far...
|
||||
|
||||
#######################################################################
|
||||
# Start by initializing the security list
|
||||
#######################################################################
|
||||
# My TSE stocks...
|
||||
|
||||
#######################################################################
|
||||
&add_stock("T", 100, 1670.5, "TSE");
|
||||
#&add_stock("NVA", 100, 1345.5, "TSE");
|
||||
&add_stock("NVA", 100, -10.16, "TSE");
|
||||
&add_stock("TRP", 52, 1345.50, "TSE");
|
||||
&add_stock("PCA", 100, 1733, "TSE");
|
||||
&add_stock("TOC", 50, 21.035*50, "TSE");
|
||||
&add_stock("RY", 50, 32.785*50, "TSE");
|
||||
|
||||
#######################################################################
|
||||
# My Canada Trust Everest funds...
|
||||
#######################################################################
|
||||
# Original numbers of units...
|
||||
#&add_stock("CTMM", 83.951, 839.51, "CTE"); # Not strictly correct..
|
||||
#&add_stock("CTBOND", 121.747, 1315.17, "CTE");
|
||||
#&add_stock("CTSTK", 57.177, 832.73, "CTE");
|
||||
#&add_stock("CTSPEC", 28.263, 504.07, "CTE");
|
||||
#&add_stock("CTAMER", 177.723, 1983.05, "CTE");
|
||||
#&add_stock("CTUSEQ", 19.644, 294.91, "CTE");
|
||||
#&add_stock("CTASIA", 28.224, 251.99, "CTE");
|
||||
#&add_stock("CTEURO", 60.136, 530.50, "CTE");
|
||||
#&add_stock("CTEMER", 27.463, 266.67, "CTE");
|
||||
#&add_stock("CTIBND", 84.879, 907.37, "CTE");
|
||||
|
||||
# Units as at Oct 31/98
|
||||
&add_stock("CTMM", 89.572, 839.51, "CTE");
|
||||
|
||||
&add_stock("CTBOND", 137.398, 1315.17, "CTE");
|
||||
&add_stock("CTSTK", 62.896, 832.73, "CTE");
|
||||
&add_stock("CTSPEC", 28.263, 504.07, "CTE");
|
||||
&add_stock("CTAMER", 251.604, 1983.05, "CTE");
|
||||
&add_stock("CTUSEQ", 20.467, 294.91, "CTE");
|
||||
&add_stock("CTASIA", 28.238, 251.99, "CTE");
|
||||
&add_stock("CTEURO", 91.298, 530.50, "CTE");
|
||||
&add_stock("CTEMER", 27.463, 266.67, "CTE");
|
||||
&add_stock("CTIBND", 94.264, 907.37, "CTE");
|
||||
|
||||
# Stuff on NYSE
|
||||
&add_stock("MOT", 15, (62+5/8)*15, "NYSE");
|
||||
#&add_stock("IFMXE", 0.1, 0.1, "NYSE");
|
||||
&add_stock("TSG", 13.0289, 43.02*5+43.75+44.48, "NYSE");
|
||||
&add_stock("TSG", 27.619-13.0289, 44.48*8, "NYSE");
|
||||
|
||||
# SuperSaver 401(k)... Approximate...
|
||||
&add_stock("AADBX", 0.3*2115.93/14, 0.3*1604.85, "NYSE");
|
||||
&add_stock("AADEX", 0.5*2115.93/19, 0.5*1604.85, "NYSE");
|
||||
&add_stock("AAIEX", 0.2*2115.93/15, 0.2*1604.85, "NYSE");
|
||||
|
||||
# SGRP Balances: Approximate...
|
||||
&add_stock("AADBX", 712.33/14.9, 700, "NYSE"); # Balanced
|
||||
&add_stock("AADEX", 4556.64/22.5 + (533.94+200.24+183.55)/22.5, 3500+(533.94+200.24+183.55), "NYSE"); # Equity
|
||||
&add_stock("AAIEX", 1829.63/18.8 + (213.57+80.1+73.41)/18.8, 1700+(213.57+80.1+73.41), "NYSE"); # Int'l Equity
|
||||
&add_stock("AASPX", 2104.81/15 + (320.37+120.12+110.13)/15, 1900 + (320.37+120.12+110.13), "NYSE"); # Stock Index
|
||||
|
||||
|
||||
#######################################################################
|
||||
# Working Ventures fund...
|
||||
#######################################################################
|
||||
&add_stock("WORKVE", 219.701, 3000, "OTHER");
|
||||
$PRICE{"WORKVE"} = 3000/219.701; # Hack in a price for Working Ventures
|
||||
$OLD{"WORKVE"} = "yes"; # Indicate that this is *not* a "new" price...
|
||||
|
||||
|
||||
#######################################################################
|
||||
# Map CT Everest fund names to the "short" IDs
|
||||
#######################################################################
|
||||
# I don't want to get long names; this builds an array that
|
||||
# shortens the names used in the CT Everest Funds web page to
|
||||
# the ones used above
|
||||
#######################################################################
|
||||
&ct_fund_ids; # Get mapping of CT "long" fund names to "short" names
|
||||
|
||||
&load_prices; # Load old prices, so that failure to get a price
|
||||
# means we fall back to the previously-found
|
||||
# price
|
||||
|
||||
$CURRNAME{"CDN"} = "Canadian";
|
||||
$CURRNAME{"USD"} = "United States";
|
||||
$CURRATE{"CDN"} = 1;
|
||||
$CURRATE{"USD"} = 1.37;
|
||||
&get_currency("USD");
|
||||
#######################################################################
|
||||
# Now, get the current prices by sundry queries of web sites
|
||||
#######################################################################
|
||||
&search_web_for_prices(); # Find new closing prices
|
||||
&calc_variances(); # Calculate variances
|
||||
|
||||
#######################################################################
|
||||
# Run report that details portfolio value based on the prices, costs
|
||||
# and quantities of shares...
|
||||
#######################################################################
|
||||
if ($newprices eq "YES") {
|
||||
&show_report(); # Display a report summarizing the results...
|
||||
# &show_variances();
|
||||
# &hilo_portfolios();
|
||||
&save_prices(); # Save prices...
|
||||
}
|
||||
exit 0; # Done
|
||||
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
######################## End of the main body #########################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
############################# Subroutines #############################
|
||||
#######################################################################
|
||||
#######################################################################
|
||||
|
||||
|
||||
#######################################################################
|
||||
############### &add_stock("NVA", 100, 1345.5, "TSE"); ################
|
||||
#######################################################################
|
||||
# Add a security to the "active list," including the "ticker symbol,"
|
||||
# quantity of shares, original total cost, and the exchange to look it
|
||||
# up on.
|
||||
#######################################################################
|
||||
sub add_stock {
|
||||
local($ticker, $num, $cost, $exchange) = @_;
|
||||
$NUM{$ticker} += $num;
|
||||
$COST{$ticker} += $cost;
|
||||
$EXCHANGE{$ticker} = $exchange;
|
||||
local ($currency) = "CDN";
|
||||
if ($exchange eq "TSE") {
|
||||
$currency = "CDN";
|
||||
}
|
||||
if ($exchange eq "NYSE") {
|
||||
$currency = "USD";
|
||||
}
|
||||
if ($exchange eq "NY") {
|
||||
$currency = "USD";
|
||||
}
|
||||
$CURRENCY{$ticker} = $currency;
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
######## &get_url_command("http://www.conline.com/~cbbrowne");#########
|
||||
#######################################################################
|
||||
# Build the appropriate command that accesses (in raw form) the
|
||||
# requested URL. Probably ought to change this to use the w3c
|
||||
# "line mode" utility, as it's minscule
|
||||
#######################################################################
|
||||
sub get_url_command {
|
||||
local ($url) = @_;
|
||||
return "lynx -source '$url'";
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
###################### &search_web_for_prices(); ######################
|
||||
#######################################################################
|
||||
# This program searches the %EXCHANGE array, determining how
|
||||
# the security price should be searched out, and invokes the
|
||||
# appropriate method.
|
||||
#######################################################################
|
||||
sub search_web_for_prices {
|
||||
local ($ticker);
|
||||
|
||||
# Do some per-ticker searching
|
||||
foreach $ticker (keys EXCHANGE) {
|
||||
local($exchange) = $EXCHANGE{$ticker};
|
||||
if ($exchange eq "TSE") {
|
||||
&get_TSE($ticker);
|
||||
&get_yahoo($ticker, "TSE");
|
||||
}
|
||||
|
||||
if ($exchange eq "CTE") {
|
||||
# Do nothing; data is coming
|
||||
# in en masse via &get_all_everest_rates;
|
||||
}
|
||||
if ($exchange eq "NYSE") {
|
||||
&get_yahoo($ticker, $EXCHANGE{$ticker});
|
||||
}
|
||||
}
|
||||
|
||||
# search for CT Everest fund data
|
||||
&get_CT_Everest; # Get Everest mutual fund data
|
||||
|
||||
# Search for Working Ventures fund data
|
||||
&get_WV;
|
||||
|
||||
# get all of the TSE stock prices
|
||||
# foreach $ticker (ord("a")..ord("z")) {
|
||||
# &get_TSE( chr($ticker) );
|
||||
# }
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
########################## &get_TSE ("RY"); ###########################
|
||||
#######################################################################
|
||||
# Look up a stock's price on the TSE using the Telenium service
|
||||
#######################################################################
|
||||
sub get_TSE {
|
||||
local ($stock) = @_;
|
||||
local ($page) = "http://www.telenium.ca/TSE/" .
|
||||
|
||||
lc(
|
||||
substr($stock, 0, 1)
|
||||
)
|
||||
. ".html";
|
||||
if ($OLD{$stock} eq "NO!") { # We've already priced this stock
|
||||
return;
|
||||
}
|
||||
local ($command) = &get_url_command($page) . " | grep ' $stock'";
|
||||
local ($line);
|
||||
open(GETPAGE, "$command |");
|
||||
# open(GETPAGE, "<a:/t~1.htm");
|
||||
while ($line = <GETPAGE>) {
|
||||
chop $line;
|
||||
# print $line, "\n";
|
||||
if ($line =~ /(\d*\.\d*)\D+\d+\S*\s+\d+\s+\S+\s+\d+\/\d+\s+(\S*)\s*$/) {
|
||||
local($lp, $ls) = (sprintf("%.4f", $1), $2);
|
||||
|
||||
# print "Found $ls @ $lp\n";
|
||||
#... 21.3 21.35 21.2 21.2 -0.15 142300 193 02/14 T
|
||||
#... 19.4 19.5 19.2 19.35-0.1 687239 181 02/04 T
|
||||
#... 51.5 52 50.6 51.4 0 1527378 583 02/05 RY
|
||||
|
||||
#... 1.18 1.2 1.1 1.2 0.02 44700 29 02/03 NBX
|
||||
# ^^^
|
||||
# Want this "close" value...
|
||||
if ($lp < 0.001) {
|
||||
# Do nothing
|
||||
} elsif ($ls eq $stock) {
|
||||
if ((($lp * 1.0) != $PRICE{$stock}) && ($price > 0)) {
|
||||
$newprices = "YES";
|
||||
$PRICE{$stock} = sprintf("%.4f", $price);
|
||||
print "NEW PRICE: $stock, $lp\n";
|
||||
} else {
|
||||
$price = $PRICE{$stock};
|
||||
}
|
||||
$PRICE{$stock} = sprintf("%.4f", $lp);
|
||||
$OLD{$stock} = "NO!"; # Indicate that this is an update...
|
||||
}
|
||||
}
|
||||
}
|
||||
close GETPAGE;
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
############################ &get_yahoo(); ############################
|
||||
#######################################################################
|
||||
# Look up a stock via "yahoo"
|
||||
#######################################################################
|
||||
sub get_yahoo {
|
||||
local ($stock, $exchange) = @_;
|
||||
local ($price);
|
||||
if (($exchange eq "NY") || ($exchange eq "NYSE")) {
|
||||
$exchange = "";
|
||||
}
|
||||
if ($exchange eq "TSE") {
|
||||
$exchange = ".TO";
|
||||
}
|
||||
local ($page) = "http://quote.yahoo.com/download/quotes.csv?symbols=" .
|
||||
|
||||
$stock . $exchange .
|
||||
"&format=sl1d1t1c1ohgv&ext=.csv";
|
||||
if ($OLD{$stock} eq "NO!") { # We've already priced this stock
|
||||
return;
|
||||
}
|
||||
local ($command) = &get_url_command($page);
|
||||
local ($line);
|
||||
# print $command, "\n";
|
||||
open(GETPAGE, "$command |");
|
||||
while ($line = <GETPAGE>) {
|
||||
# print "$line";
|
||||
local ($trash, $price)=split(/,/, $line);
|
||||
# print "$trash, $price\n";
|
||||
# print "Old price: ", $PRICE{$stock}, "\n";
|
||||
if ((($price * 1.0) != $PRICE{$stock}) && ($price > 0) ) {
|
||||
$newprices = "YES";
|
||||
print "NEW PRICE: $stock, $price\n";
|
||||
} else {
|
||||
$price = $PRICE{$stock};
|
||||
# print "Keep old price: $price\n";
|
||||
}
|
||||
$PRICE{$stock} = sprintf("%.4f", $price);
|
||||
$OLD{$stock} = "NO!"; # Indicate that this is an update...
|
||||
# print "Done - ", $stock, $PRICE{$stock}, $OLD{$stock}, "\n";
|
||||
}
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
########################## &get_CT_Everest(); #########################
|
||||
#######################################################################
|
||||
# Look up all of the CT Everest mutual fund prices
|
||||
#######################################################################
|
||||
sub get_CT_Everest {
|
||||
local ($line, $fund, $value);
|
||||
local ($url) = "http://www.canadatrust.com/test/ctrates/EV.html";
|
||||
local ($command) = &get_url_command($url);
|
||||
open(FUNDS, "$command |");
|
||||
while ($line = <FUNDS>) {
|
||||
if ($line =~ /.*\s+\d+.\d+\s+\d+.\d+\s+.\d+.\d+/) {
|
||||
# print "CT: $line";
|
||||
$fund = substr($line, 0, 15);
|
||||
# print "fund: [", $fund, "] ID:[", $ID{$fund}, "]\n";
|
||||
if ($ID{$fund} ne "") {
|
||||
$value = substr($line, 30, 11);
|
||||
if (($value*1.0) != $PRICE{$ID{$fund}}) {
|
||||
$newprices = "YES";
|
||||
print "NEW PRICE: $fund, $value\n";
|
||||
|
||||
}
|
||||
|
||||
$PRICE{$ID{$fund}} = $value;
|
||||
$OLD{$ID{$fund}} = "NO!"; # Indicate that this is an update...
|
||||
# print "CT Price: $value ", $ID{$fund}, "\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
close FUNDS;
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
############################## &get_WV(); #############################
|
||||
#######################################################################
|
||||
# Look up Working Ventures fund price
|
||||
#######################################################################
|
||||
sub get_WV {
|
||||
local ($url) = "http://www.workingventures.ca/main_cell.html";
|
||||
local ($command) = &get_url_command($url) . " | grep 'share price' ";
|
||||
open(FUNDS, "$command |");
|
||||
while (<FUNDS>) {
|
||||
if (/\D+\$(\d+\.\d+)\D+/) {
|
||||
# matches .... $13.66 ...
|
||||
if (($1 * 1.0) != $PRICE{"WORKVE"}) {
|
||||
$newprices = "YES";
|
||||
print "NEW PRICE: WV, $1\n";
|
||||
}
|
||||
|
||||
$PRICE{"WORKVE"} = sprintf("%.4f", $1);
|
||||
$OLD{"WORKVE"} = "NO!"; # Indicate that this is an update...
|
||||
}
|
||||
}
|
||||
close FUNDS;
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
########################### &ct_fund_ids (); ##########################
|
||||
#######################################################################
|
||||
# Build an associative array that lets one take the names used in the
|
||||
# CT mutual fund web page, and associate them with the short forms
|
||||
# used as "ticker" codes
|
||||
#######################################################################
|
||||
sub ct_fund_ids {
|
||||
%ID = ("MONEY MARKET ", "CTMM",
|
||||
"PREMIUM MMF ", "CTPMM",
|
||||
"SHORT TERM BND ", "CTSTB",
|
||||
"MORTGAGE ", "CTMTG",
|
||||
"BALANCED ", "CTBAL",
|
||||
"BOND ", "CTBOND",
|
||||
"DIV INCOME ", "CTDIV",
|
||||
"STOCK ", "CTSTK",
|
||||
"SPECIAL EQUITY ", "CTSPEC",
|
||||
"INT'L BOND ", "CTIBND",
|
||||
"NORTH AMERICAN ", "CTNA",
|
||||
"AMERIGROWTH ", "CTAMER",
|
||||
"U.S. EQUITY ", "CTUSEQ",
|
||||
"ASIAGROWTH ", "CTASIA",
|
||||
"EUROGROWTH ", "CTEURO",
|
||||
"GLOBALGROWTH ", "CTGLOB",
|
||||
"INT'L EQUITY ", "CTINTL",
|
||||
"EMERGING MKTS. ", "CTEMER"
|
||||
);
|
||||
}
|
||||
|
||||
|
||||
#######################################################################
|
||||
############################ &save_prices()############################
|
||||
#######################################################################
|
||||
# Dump data out to a file
|
||||
#######################################################################
|
||||
sub save_prices {
|
||||
local ($date) = `date '+%Y/%m/%d-%H:%M:%S'`;
|
||||
chop $date;
|
||||
local ($ticker, $price);
|
||||
open(HISTPRICES, ">>$HISTORYFILE");
|
||||
while ($ticker = each %PRICE) {
|
||||
if ($OLD{$ticker} eq "yes") {
|
||||
# Don't dump it; we didn't get a new price...
|
||||
} else {
|
||||
$key = $date . "" . $ticker;
|
||||
$price = $PRICE{$ticker};
|
||||
print HISTPRICES $date, "|", $ticker, "|", $price, "\n";;
|
||||
}
|
||||
}
|
||||
close HISTPRICES;
|
||||
}
|
||||
|
||||
#######################################################################
|
||||
########################### &load_prices();############################
|
||||
#######################################################################
|
||||
# Preload prices, thus always keeping around the latest successfully
|
||||
# located price.
|
||||
# This means that if the web search process fails, we still do have
|
||||
# pricing, even if it's somewhat out of date...
|
||||
#######################################################################
|
||||
sub load_prices {
|
||||
local ($date) = `date '+%Y/%m/%d-%H:%M:%S'`;
|
||||
chop $date;
|
||||
local ($ticker, $price, $line);
|
||||
open(HISTPRICES, "<$HISTORYFILE");
|
||||
while ($line = <HISTPRICES>) {
|
||||
($date, $ticker, $price) = split(/\|/, $line);
|
||||
$PRICE{$ticker} = $price;
|
||||
$OLD{$ticker} = "yes"; # Indicate that this is an old price
|
||||
# and thus not to be redumped
|
||||
}
|
||||
close HISTPRICES;
|
||||
}
|
||||
|
||||
|
||||
|
||||
#######################################################################
|
||||
############################ &show_report();###########################
|
||||
#######################################################################
|
||||
# Look up all of the securities, and build a report listing the cost,
|
||||
# value, and net profit/loss on each security, along with totals.
|
||||
########################################################################
|
||||
sub show_report {
|
||||
local($date) = `date`;
|
||||
chop $date;
|
||||
local($ticker, $shares, $price, $value, $cost, $profitloss);
|
||||
local ($tp, $tv, $tc);
|
||||
format STDOUT_TOP =
|
||||
Portfolio Valuation
|
||||
as at @<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
$date
|
||||
Ticker Shares Recent Price Value Cost Profit/Loss
|
||||
------------------------------------------------------------------------
|
||||
.
|
||||
|
||||
|
||||
format STDOUT =
|
||||
@<<<<<<< @>>>>>>> @>>>>>>>> @>>>>>>>>>>> @>>>>>>>>>>> @>>>>>>>>>>>>
|
||||
$ticker, $shares, $price, $value, $cost, $profitloss
|
||||
.
|
||||
|
||||
|
||||
foreach $stock (sort keys EXCHANGE) {
|
||||
if ($stock ne "zPortfolio") {
|
||||
$ticker = $stock;
|
||||
$shares = sprintf("%.4f", $NUM{$stock});
|
||||
$price = sprintf("%.4f", $PRICE{$stock});
|
||||
$value = sprintf("%.2f", $shares * $price * $CURRATE{$CURRENCY{$stock}});
|
||||
$cost = sprintf("%.2f", $COST{$stock} * $CURRATE{$CURRENCY{$stock} });
|
||||
$profitloss = sprintf("%.2f", $value - $cost);
|
||||
$tv += $value;
|
||||
$tc += $cost;
|
||||
$tp += $profitloss;
|
||||
write;
|
||||
}
|
||||
}
|
||||
|
||||
($ticker, $shares, $price, $value, $cost, $profitloss) =
|
||||
("", "", "", "---------------", "---------------", "---------------");
|
||||
write;
|
||||
|
||||
($ticker, $shares, $price, $value, $cost, $profitloss) =
|
||||
("Total", "", "", sprintf("%.2f", $tv), sprintf("%.2f" ,$tc),
|
||||
sprintf("%.2f" ,$tp));
|
||||
|
||||
write;
|
||||
($ticker, $shares, $price, $value, $cost, $profitloss) =
|
||||
("", "", "", "===============", "===============", "===============");
|
||||
write;
|
||||
}
|
||||
|
||||
|
||||
|
||||
#########################################################################=
|
||||
#####
|
||||
############################## Find Variances #########################=
|
||||
#####
|
||||
#########################################################################=
|
||||
#####
|
||||
sub calc_variances {
|
||||
local ($x);
|
||||
open(PRICEF, "<$HISTORYFILE");
|
||||
while (<PRICEF>) {
|
||||
($date, $id, $price) = split(/\|/, $_);
|
||||
$XCOUNT{$id} ++;
|
||||
$quantity = $NUM{$id};
|
||||
$x = $quantity * $price * $CURRATE{$CURRENCY{$id}};
|
||||
$XSUM{$id} += $x;
|
||||
$XSQUARESUM{$id} += ($x * $x);
|
||||
|
||||
$DATES{$date} ++;
|
||||
$PRICES{"$date|$id"} = $price;
|
||||
# printf "XC: %9.2f XSUM: %9.2f XSQ: %9.2f\n", $XCOUNT{$id}, $XSUM{$id}, $XSQUARESUM{$id};
|
||||
}
|
||||
|
||||
&complete_price_list(); # Get prices for *every* day
|
||||
&value_portfolios(); # Value the portfolio for every day
|
||||
}
|
||||
|
||||
# Need to make sure that we have prices for each stock for each date
|
||||
# This is done by (for each stock) going thru all the dates, and
|
||||
# inserting prices for dates where prices are missing. We use the
|
||||
# last price present for the stock.
|
||||
sub complete_price_list {
|
||||
foreach $stock (keys XCOUNT) {
|
||||
$current_price = $XSUM{$stock} / $XCOUNT{$stock};
|
||||
|
||||
# Move forwards until a price gets found. That price
|
||||
# is then used for all "empty" price slots up to the first
|
||||
# actual measurement
|
||||
FIRSTPRICE:
|
||||
foreach $date (sort keys DATES) {
|
||||
if ($PRICES{"$date|$stock"}) {
|
||||
$current_price = $PRICES{"$date|$stock"};
|
||||
last FIRSTPRICE;
|
||||
}
|
||||
}
|
||||
|
||||
# Now, proceed onwards...
|
||||
foreach $date (sort keys DATES) {
|
||||
if ($PRICES{"$date|$stock"}) {
|
||||
# There's a price
|
||||
$current_price = $PRICES{"$date|$stock"};
|
||||
} else {
|
||||
$PRICES{"$date|$stock"} = $current_price;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub value_portfolios {
|
||||
# &setup_portfolio_quantities();
|
||||
$NUM{"zPortfolio"}=1;
|
||||
foreach $date (sort keys DATES) {
|
||||
$price = 0;
|
||||
foreach $stock (keys XCOUNT) {
|
||||
$price += $NUM{$stock} * $PRICES{"$date|$stock"}* $CURRATE{$CURRENCY{$stock}};
|
||||
}
|
||||
$XCOUNT{"zPortfolio"} ++;
|
||||
$XSUM{"zPortfolio"} += $price;
|
||||
$XSQUARESUM{"zPortfolio"} += ($price * $price);
|
||||
# printf "Portfolio on %15s valued at %14.2f\n", $date, $price;
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
sub hilo_portfolios {
|
||||
local($date, $hi, $lo, $hival, $loval);
|
||||
local ($stock, $price, $latest_date);
|
||||
foreach $stock (keys XCOUNT) {
|
||||
$LO{$stock} = 99999999;
|
||||
$HI{$stock} = -99999999;
|
||||
}
|
||||
$HI{"zPortfolio"} = -99999999;
|
||||
$LO{"zPortfolio"} = 99999999;
|
||||
foreach $date (keys DATES) {
|
||||
local ($pprice);
|
||||
local($dt) = split(/-/, $date);
|
||||
foreach $stock (keys XCOUNT) {
|
||||
$price = $PRICES{"$date|$stock"};
|
||||
if ($date >= $latest_date) {
|
||||
$latest_date = $date;
|
||||
$CURRENT{$stock} = $price;
|
||||
}
|
||||
if ($price > $HI{$stock}) {
|
||||
($HI{$stock}, $HIDATE{$stock}) = ($price, $dt);
|
||||
}
|
||||
if ($price < $LO{$stock}) {
|
||||
($LO{$stock}, $LODATE{$stock}) = ($price, $dt);
|
||||
}
|
||||
$pprice += $NUM{$stock} * $price;
|
||||
}
|
||||
if ($date >= $latest_date) {
|
||||
$latest_date = $date;
|
||||
$CURRENT{"zPortfolio"} = $pprice;
|
||||
}
|
||||
if ($pprice > $HI{"zPortfolio"}) {
|
||||
($HI{"zPortfolio"}, $HIDATE{"zPortfolio"}) = ($pprice, $dt);
|
||||
}
|
||||
if ($pprice > $LO{"zPortfolio"}) {
|
||||
($LO{"zPortfolio"}, $LODATE{"zPortfolio"}) = ($pprice, $dt);
|
||||
}
|
||||
}
|
||||
# Report results...
|
||||
print
|
||||
"-----------------------------------------------------------------------
|
||||
Highs/Lows
|
||||
-----------------------------------------------------------------------
|
||||
";
|
||||
printf "%10s %10s %10s %10s %10s %10s\n", "Stock", "High Date", "High",
|
||||
"Low Date", "Low Price", "Current";
|
||||
print "-----------------------------------------------------------------------";
|
||||
foreach $stock (sort keys XCOUNT) {
|
||||
printf "%10s %10s %10.2f %10s %10.2f %10.2f\n", $stock, $HIDATE{$stock},
|
||||
$HI{$stock}, $LODATE{$stock}, $LO{$stock}, $CURRENT{$stock};
|
||||
}
|
||||
print "-----------------------------------------------------------------------";
|
||||
|
||||
}
|
||||
|
||||
sub show_variances {
|
||||
print
|
||||
"-----------------------------------------------------------------------
|
||||
Variance/Standard Deviations for Portfolio *VALUE*
|
||||
------------------------------------------------------------------------
|
||||
Security Mean Variance Std. Dev. % Std.Dev
|
||||
------------------------------------------------------------------------
|
||||
";
|
||||
|
||||
foreach $i (sort keys XCOUNT) {
|
||||
if ($XCOUNT{$i} > 2) {
|
||||
$variance = (($XCOUNT{$i} * $XSQUARESUM{$i})
|
||||
- ($XSUM{$i} * $XSUM{$i})) /
|
||||
($XCOUNT{$i} * ($XCOUNT{$i}-1));
|
||||
|
||||
}
|
||||
$variance = -$variance if ($variance < 0);
|
||||
$deviation = sqrt($variance);
|
||||
|
||||
# printf "XC: %5d XSUM: %9.2f XSQ: %9.2f\n", $XCOUNT{$i}, $XSUM{$i}, $XSQUARESUM{$i};
|
||||
# Divide by mean price to determine volatility of price
|
||||
if ($XCOUNT{$i} != 0 && $XSUM{$i} != 0) {
|
||||
$volatility = $deviation / ($XSUM{$i} / $XCOUNT{$i});
|
||||
printf "%10s %10.2f %14.3f %9.3f %9.3f\n", $i, $XSUM{$i}/$XCOUNT{$i},
|
||||
$variance, $deviation,
|
||||
$volatility *100;
|
||||
|
||||
($VARIANCE{$i}, $STD{$i}, $VOLATILITY{$i}) = ($variance, $deviation,
|
||||
$volatility);
|
||||
}
|
||||
}
|
||||
print "------------------------------------------------------------------------";
|
||||
|
||||
}
|
||||
|
||||
sub get_currency {
|
||||
local ($to) = @_;
|
||||
local($url) =
|
||||
"http://www.dna.lth.se/cgi-bin/kurt/rates/rates?CAD+$to";
|
||||
local($line, $rate);
|
||||
local ($command) = &get_url_command($url);
|
||||
|
||||
local($fromname, $toname) = ($CURRNAME{"CDN"}, $CURRNAME{$to});
|
||||
open(CURRS, "$command |");
|
||||
while ($line = <CURRS>) {
|
||||
if ($line =~ /Rate: $fromname.*$toname.*:\s*(\d*.\d+)/) {
|
||||
$rate = $1;
|
||||
$CURRATE{$toname} = sprintf("%f", $rate);
|
||||
return;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
Reference in new issue