#!/usr/bin/perl # ---------------------------------------------------------------------------- # # (c) Copyright 2006 TradeExtender # # This software is proprietary to and embodies the confidential technology # of TradeExtender. Possession, use, duplication or dissemination of the # software and media is authorized only pursuant to a valid written license # from TradeExtender. # use strict; use lib "/var/www/vhosts/kantelpunten.com/httpdocs/pl/lib"; use lib "lib"; BEGIN { delete $INC{"Kantelpunten/Helper.pm"}; delete $INC{"Kantelpunten/Process.pm"}; # delete $INC{"Kantelpunten/MyRobots.pm"}; delete $INC{"Kantelpunten/MyBudy.pm"}; delete $INC{"Kantelpunten/MyAdds.pm"}; } use Kantelpunten::Helper; use Kantelpunten::Process; use Kantelpunten::MyRobots; use Kantelpunten::MyBudy; use Kantelpunten::MyAdds; use POSIX qw(strftime mktime); use Data::Dumper; local our $stocks; local our $param = undef; local our $page = undef; local our $total_dif = 0; show_kantelpunten_result(); exit(0); sub show_kantelpunten_result() { my $q = CGI->new; $param->{overview} = $q->param('overzicht'); $param->{market} = $q->param('market'); $param->{year} = $q->param('jaar'); $param->{month} = $q->param('maand'); $param->{week} = $q->param('week'); $param->{verbose} = $q->param('verbose'); $param->{wmask} = $q->param('wmask'); $param->{weight} = $q->param('weight'); $param->{month} = undef if (defined($param->{week})); $param->{nofollow} = defined($q->param('niet-geadviseerd')) ? 1 : undef; $param->{own} = defined($q->param('eigen')) ? 1 : undef; $param->{type} = 0; if (defined($param->{overview})) { $param->{type} = 1 if ($param->{overview} eq "jaar"); $param->{type} = 2 if ($param->{overview} eq "maand"); $param->{type} = 3 if ($param->{overview} eq "week"); } if (!defined($param->{year}) && !defined($param->{month}) && !defined($param->{week})) { if (!defined($param->{overview})) { $param->{type} = 2; $param->{overview} = "maand"; } else { $param->{type} = 1; $param->{overview} = "jaar"; } } # set default to previous month my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $year += 1900; $param->{year} = $year if (!defined($param->{year})); if (($param->{year} < 2000) || ($param->{year} > $year) || ( defined($param->{month}) && (($param->{month} < 1) || ($param->{month} > 12)) ) || ( defined($param->{week}) && (($param->{week} < 1) || ($param->{week} > 52)) ) ) { $param->{week} = undef; $param->{year} = $year; if ($mon == 0) { $param->{year}--; $param->{month} = 12; } else { $param->{month} = $mon; } } my $remote_ip = init_helper(); $param->{rb} = get_robot() if (!defined($param->{rb}) || $param->{rb}); set_robot($param->{rb}); init_process(); get_user_rec(); $param->{budy} = init_budy($q->param('uitleg')); # only_allowed_for_admin_users(); if (!is_admin_user()) { $param->{nofollow} = undef; $param->{verbose} = 0; $param->{wmask} = undef; $param->{own} = undef; } $param->{verbose} = 0 if (!defined($param->{verbose})); $param->{weight} = "00000000" if (defined($param->{wmask}) && !defined($param->{weight})); $param->{wmask} = unpack("N", pack("H8", $param->{wmask})) if (defined($param->{wmask})); $param->{weight} = unpack("N", pack("H8", $param->{weight})) if (defined($param->{weight})); $total_dif = 0; # check for a market change my $market = set_market(); # oops I'v to add bel if no enabled anymore if (defined($market) && ($market & (1 << get_market_bit('bel20'))) && !($market & (1 << get_market_bit('bel')))) { $market |= (1 << get_market_bit('bel')); } if (defined($param->{market}) && defined($market)) { $param->{market} = 0xff if (($param->{market} & 0x7f) == 0); if ($param->{market} != $market) { set_market($param->{market}); write_user_rec(); } $market = $param->{market}; } $market = 0xff if (!defined($market)); $stocks = get_stocks_market($market, undef, "old"); if (!defined($stocks)) { print_error_doc("TBR: Probleem met het lezen van de aandelen data."); exit(0); } $page = 9960 + $param->{type}; add_last_page_cookie($page); write_access_data($remote_ip, $page); make_kantelpunten_result_html($market); } sub make_kantelpunten_result_html(@) { my ($market) = @_; my $land = is_nl_enabled($market) ? "Nederlandse" : ""; $land .= is_be_enabled($market) ? (($land ne "") ? " + Belgische" : "Belgische") : ""; $land .= " aandelen." if ($land ne ""); my $script = make_home_script($page); my $title; my $desc; my $pop_menu; my $top_menu; if ($param->{type} == 0) { if (defined($param->{week})) { $title = "Beleggingsresultaat week-overzicht ($param->{week}-$param->{year})."; $pop_menu = make_pop_menu(11, 0, $param->{year}, undef, undef, $param->{week}); $top_menu = make_top_menu(11, 0, $param->{year}, undef, undef, $param->{week}); } elsif (defined($param->{month})) { $title = "Beleggingsresultaat maand-overzicht ($param->{month}-$param->{year})."; $pop_menu = make_pop_menu(10, 0, $param->{year}, undef, undef, $param->{month}); $top_menu = make_top_menu(10, 0, $param->{year}, undef, undef, $param->{month}); } elsif (!defined($title)) { $title = "Beleggingsresultaat jaar-overzicht ($param->{year})."; $pop_menu = make_pop_menu(9, 0, $param->{year}); $top_menu = make_top_menu(9, 0, $param->{year}); } $desc = "100% tot 250% winst per maand? Zie wat u kunt bereiken met weinig tijd en toch aktief beurzen en bekijk onze $title $land. "; } else { $title = "Winst per week $param->{year}." if ($param->{type} == 3); $title = "Winst per maand $param->{year}." if ($param->{type} == 2); $title = "Winst per jaar." if ($param->{type} == 1); $land = ""; $desc = "100% tot 250% winst per maand? Zie wat u kunt bereiken met weinig tijd en toch aktief beurzen en bekijk onze $title. "; $pop_menu = make_pop_menu(5 + $param->{type}, 0, $param->{year}); $top_menu = make_top_menu(5 + $param->{type}, 0, $param->{year}); } print_header("+1m"); print_pre_doc(); print_head("Kantelpunten : $title $land", undef, undef, undef, $script, "kantelresult", undef, undef, $desc, undef, defined($top_menu) ? "top_script" : undef); print_body("kantel", undef, undef, undef, undef, undef, undef, "kader", undef, $pop_menu, $top_menu); my $ref = "toon-beleggen-resultaat.pl?uitleg=" . ($param->{budy} ? '0' : '1'); $ref .= "&overzicht=$param->{overview}" if (defined($param->{overview})); $ref .= "&jaar=$param->{year}" if (defined($param->{year})); $ref .= "&maand=$param->{month}" if (defined($param->{month})); $ref .= "&week=$param->{week}" if (defined($param->{week})); print_budy($param->{budy}, $page, $ref); make_kantelpunten_result($title, $land) if ($param->{type} == 0); make_overzicht_only($title) if ($param->{type} != 0); print_body("end"); print_post_doc(); } sub sort_result(@) { my ($kps) = @_; my @ids; my $t; my $difs; foreach my $i (keys %$kps) { next if (!defined($stocks->{$kps->{$i}->{id}})); next if (!defined($param->{nofollow}) && (!$kps->{$i}->{follow})); next if (defined($param->{wmask}) && (($kps->{$i}->{weight} & $param->{wmask}) != $param->{weight})); $total_dif += $kps->{$i}->{dif} if ($kps->{$i}->{follow}); # $t = sprintf("%d%04d.%03d:%03d", ($kps->{$i}->{dif} >= 0), # int($kps->{$i}->{dif})+100, (abs($kps->{$i}->{dif})*1000)%1000, $i); $t = sprintf("%d%04d.%03d:%03d", ($kps->{$i}->{max_dif} >= 0), int($kps->{$i}->{max_dif})+100, (abs($kps->{$i}->{max_dif})*1000)%1000, $i); $difs->{$t} = $i; } my @sort = (reverse sort keys %$difs); foreach my $i (@sort) { push @ids, $difs->{$i}; } return @ids; } sub make_kantelpunten_result(@) { my ($title, $land) = @_; if (show_adds()) { print_div("center"); print_banner_ads("main_banner", "info", undef, 1); print_div("end"); } print "
\n"; my $option = print_market_table(); print "

\n"; print_div("center"); print_h1($title); print_h2($land); print_banner_ads("main_banner", "info", undef, 2) if (show_adds("hoofd")); my $my_stocks; $my_stocks = get_stocks_mine(undef, "old") if (defined($param->{own})); my $kps = read_sum_kantelpunten($param->{year}, $param->{month}, $param->{week}, undef, $my_stocks); my @ids = sort_result($kps); if (!defined($kps)) { print <
Geen resultaten EndOfText } else { if (0) { my $bruto = sprintf("%.1f %", $total_dif); print <
Totale bruto winst $bruto

 EndOfText } print_table(0, undef, 0, 0, 0, undef, "97%", "center", "font-size: 13px;"); my $extra = " "; $extra = " weight\n" if ($param->{verbose} > 1); $extra .= " adv2\n adv1\n dif\n" if ($param->{verbose} > 0); print <        Aandeel            Markt    Gekocht op   voor   Verkocht op  voor    Min%     Max%    Dag#   Exit%   Prio  $extra   EndOfText my $num = 1; foreach my $i (@ids) { next if (!defined($stocks->{$kps->{$i}->{id}})); print get_kantel_result_row($kps->{$i}, $num++); } print_table(0, "end"); } print "
\n"; print max_info(); print_voet_start(); print_empty_lines(1, 0); print_ads("yahoo_klein"); print_div("end"); } sub get_kantel_result_row(@) { my ($row, $num) = @_; my $id = $row->{id}; my $stock = $stocks->{$id}->{stock}; my $class = (($num % 2) == 0) ? "even" : "odd"; my $text; my $ref = "/pl/ShowStock.pl?stock=$stock"; $text = ""; $text .= "" . $stocks->{$id}->{index_name} . ""; $text .= "" . make_mini_mkt_img($stocks->{$id}->{mkt_bit}, 1) . ""; $text .= "". strftime("%d-%m-%Y", localtime($row->{bought_on})) . ""; $text .= "" . sprintf("%.2f", abs($row->{bought_for})) . ""; $text .= "". strftime("%d-%m-%Y", localtime($row->{sold_on})) . ""; $text .= "" . sprintf("%.2f", abs($row->{sold_for})) . ""; if ($row->{split}) { $text .= ""; } else { $text .= ""; } $text .= "" . sprintf("%s%.2f%%", (($row->{min_dif} < 0) ? "-" : "+"), abs($row->{min_dif})) . ""; my $mclass = $class; $mclass = "max" if ($row->{success} eq "Y"); $text .= "" . sprintf("%s%.2f%%", (($row->{max_dif} < 0) ? "-" : "+"), abs($row->{max_dif})) . ""; my $days = int(($row->{max_date} - $row->{bought_on})/(24*3600)); $days++; $days = 0 if ($days < 0); # $text .= "$days/$row->{days}"; $text .= "$days"; if (!$row->{follow}) { $mclass = "$class dgrey"; } else { $mclass = $class . (($row->{dif} < 0) ? " dred" : " dgreen"); } # my $follow; # $follow = make_midi_advies_img($row->{follow}); # $mclass = (($row->{dif} < 0) && ($row->{success} eq "Y")) ? "min" : $mclass; $text .= "" . sprintf("%s%.2f%%", (($row->{dif} < 0) ? '-' : '+'), abs($row->{dif})) . ""; $text .= "$row->{follow}"; $text .= "" . sprintf("%08X", $row->{weight}) . "" if ($param->{verbose} > 1); $text .= "" . sprintf("%d", $row->{advies}>>8) . "" if ($param->{verbose} > 0); $text .= "" . sprintf("%d", $row->{advies}&0xff) . "" if ($param->{verbose} > 0); $text .= "" . sprintf("%.2f", (($row->{advies}>>8) - ($row->{advies}&0xff)) / ($row->{advies}>>8) * 100) . "" if ($param->{verbose} > 0); $text .= "\n"; return $text; } sub print_market_table() { my $market = set_market(); return 0 if (!defined($market)); return 0 if (defined($param->{success})); my $iref; my $tref; my $ref = "toon-beleggen-resultaat.pl?dum=1"; $ref .= "&jaar=$param->{year}" if (defined($param->{year})); $ref .= "&maand=$param->{month}" if (defined($param->{month})); $ref .= "&week=$param->{week}" if (defined($param->{week})); $iref = $ref; # option table print_div("right"); print_table(0, undef, 0, 0, 0, undef, "", "right", "font-size: 11px;"); print "\n"; $tref = $iref; $tref .= "&market=" . ($market | make_market("aex", "amx", "overig")) if (!is_nl_enabled($market)); $tref .= "&market=" . ($market & make_market("bel20", "bel")) if (is_nl_enabled($market)); print "\n"; print_midi_button($tref, is_nl_enabled($market) ? "nl" : "no_nl"); print "\n"; print "  \n"; $tref = $iref; $tref .= "&market=" . ($market | make_market ("bel20", "bel")) if (!is_be_enabled($market)); $tref .= "&market=" . ($market & make_market ("aex", "amx", "overig")) if (is_be_enabled($market)); print "\n"; print_midi_button($tref, is_be_enabled($market) ? "be" : "no_be"); print "\n"; print "     \n"; print "\n"; print_table(0, "end"); print_div("end"); return 1; } sub make_overzicht_only(@) { my ($title) = @_; print_div("center"); print_banner_ads("main_banner", "info", undef, 2) if (show_adds()); print "

\n"; # print reminder(); if ($param->{type} == 1) { # my $img = ""; # print_h1($title, "$img  ", "  $img"); print_h1($title); print_banner_ads("main_banner", "info", undef, 1) if (show_adds("hoofd")); } else { print_h1($title); print_banner_ads("main_banner", "info", undef, 1) if (show_adds("hoofd")); } print "
\n"; # always read the year results my $sum_year = read_summary_records(0); my $porto = read_sum_porto_records("own"); if (!defined($sum_year)) { log_problem("make_overzicht_only: Helemaal geen jaar resultaten !"); print <
Geen resultaten EndOfText } else { print < Aantal adviezen in bereik        Periode           advies#   1.82%   5%   10%   15%   juist%    EndOfText #  juist#  #  Avg Dag#  #  Avg Exit%  #  Avg Trd  my $num = 1; my $text; my $sum; my $sum_week; my $itype; foreach my $i (reverse sort keys %$sum_year) { $text = get_result_overzicht_row(1, $sum_year->{$i}, $num++, $porto->{$i}); $sum = undef; if (($param->{type} == 2) && ($param->{year} == $sum_year->{$i}->{year}) && ($param->{month} == $sum_year->{$i}->{month})) { $sum = read_summary_records($param->{year}, 0); $sum_week = read_summary_records($param->{year}, undef, 0); $itype = 2; } elsif (($param->{type} == 3) && ($param->{year} == $sum_year->{$i}->{year}) && ($param->{week} == $sum_year->{$i}->{week})) { $sum = read_summary_records($param->{year}, undef, 0); $itype = 3; } if (defined($sum)) { if (defined($sum_week)) { my @sum_arr = (reverse sort keys %$sum_week); foreach my $j (reverse sort keys %$sum) { my $from_time = mktime(0, 0, 0, 1, $sum->{$j}->{month}-1, $sum->{$j}->{year}-1900, 0, 0, -1); my $from_week = strftime("%W", localtime($from_time)); $text .= get_result_overzicht_row($itype, $sum->{$j}, $num++); while (@sum_arr) { if ($sum_week->{@sum_arr[0]}->{week} >= $from_week) { my $week = shift @sum_arr; $text .= get_result_overzicht_row(3, $sum_week->{$week}, $num++); } else { last; } } } } else { foreach my $j (reverse sort keys %$sum) { $text .= get_result_overzicht_row($itype, $sum->{$j}, $num++); } } } print $text; } print < EndOfText } #Klik op een percentage hierboven om 'n portefeuille in detail te zien.
#De portefeuilles zijn het resultaat van kantelpunt-instappunten en exit-uitstappunten.
#
# #
#Onder "voorbeeld portefeuilles" ziet u wat voor resultaten
#men had kunnen bereiken met het voordurend wisselen van aandelen.
#
#De voorbeeld portefeuilles zijn samengesteld op basis van vooraf bepaalde selectiecreteria.
#Er is dus niet mee gesjoemeld. Lees hier welke.
#
#Merk op dat noch bij aankoop, noch bij verkoop werd rekening gehouden met bedrijfsnieuws.
#Een oplettende belegger moet meer winst kunnen halen dan onze voorbeelden.
print <


Klik op om alle kantelpunten van een periode te bekijken.


Het kantelpuntensysteem is geďnspireerd op de professionele handel.
Lees hier over het verschil in opvatting van winstnemen.

Enkel als ons signaal minstens 1.82 % bruttowinst kon opleveren,
zien wij het als een juiste handeling, en krijgt het een groene kleur.
Winsten tussen de 0.01 % en 1.81 % rekenen wij dus niet goed !
 ( 1.82 % brutto = 1.50 % netto bij 5000 € en twee transactiekosten aan 8 € )

1.82 % = 1.82 % en hoger
5 % = 5 % en hoger
10 % = 10 % en hoger
15 % = 15 % en hoger
 EndOfText print_voet_start(); print_ads("yahoo_klein"); print_empty_lines(1, 0); print_div("end"); } sub get_result_overzicht_row(@) { my ($type, $sum, $num, $rec) = @_; my $class = (($num % 2) == 0) ? "even" : "odd"; my $text; my $ref = "/pl/toon-beleggen-resultaat.pl"; my $iref; $iref .= "$ref?maand=$sum->{year}" if ($type == 1); my $tit1 = "Toon alle beleggings-resultaten van"; my $tit2 = "Toon maandelijks overzicht van"; my $tit3 = "Toon wekelijks overzicht van"; my $tit4 = "Toon jaarlijks overzicht"; my $tref; $text = ""; if ($type == 1) { if (($param->{type} > 1) && ($param->{year} == $sum->{year})) { $iref = "$ref?overzicht=jaar"; $text .= ""; } else { $iref = "$ref?overzicht=maand&jaar=$sum->{year}"; $text .= "{year}\">"; } $iref = "$ref?overzicht=maand&jaar=$sum->{year}"; $text .= "
{year}\">$sum->{year} "; # $iref = "$ref?overzicht=week&jaar=$sum->{year}"; # $text .= "({year}\">week)
"; $iref = "$ref?jaar=$sum->{year}"; $tref = "{year}\">" } elsif ($type == 2) { my $time = mktime(0, 0, 0, 1, $sum->{month}-1, $sum->{year}-1900, 0, 0, -1); my $lab = strftime("%B %Y", localtime($time)); $text .= ""; $iref = "$ref?jaar=$sum->{year}&maand=$sum->{month}"; $text .= "
  $lab
"; $tref = ""; } elsif ($type == 3) { my $lab = sprintf("week %d-%d", $sum->{week}, $sum->{year}); $text .= ""; $iref = "$ref?jaar=$sum->{year}&week=$sum->{week}"; $text .= "
      $lab
"; $tref = ""; } my $idata; $idata->{num_ok} = $sum->{ok}; $idata->{num_nok} = $sum->{number} - $sum->{ok}; $text .= "$sum->{number}"; # $text .= "$sum->{ok}"; # $text .= "$sum->{range1}/$sum->{erange1}"; # $text .= "$sum->{range2}/$sum->{erange2}"; # $text .= "$sum->{range3}/$sum->{erange3}"; # $text .= "$sum->{range4}/$sum->{erange4}"; my $tmp = $sum->{range1} + $sum->{range2} + $sum->{range3} + $sum->{range4}; $text .= "$tmp"; $tmp = $sum->{range2} + $sum->{range3} + $sum->{range4}; $text .= "$tmp"; $tmp = $sum->{range3} + $sum->{range4}; $text .= "$tmp"; $text .= "$sum->{range4}"; $text .= "" . make_midi_pie_img(undef, undef, $idata) . ""; # $text .= "" . sprintf("%.1f %%", $sum->{max_dif}) . ""; # $text .= "" . sprintf("%.1f %%", $sum->{bruto_dif}) . ""; if (0) { if (($type == 1) && defined($rec)) { my $mclass; $mclass = $class . (($sum->{p_max} < 0) ? " l_dred" : " l_dgreen"); # $text .= "{year}&type=1\" title=\"Toon de fictieve portefeuille van $sum->{year}.\">" . sprintf("%.1f %%", $sum->{p_max}) . ""; for (my $i = 1; $i <= 6; $i++) { $mclass = $class . (($sum->{"p_$i"} < 0) ? " l_dred" : " l_dgreen"); my $aand = ($i == 1) ? "aandeel" : "aandelen"; $text .= "{year}&type=2&num_porto=$i\" title=\"Toon de voorbeeld portefeuille van $rec->{year} met $i $aand.\">" . sprintf("%.1f %%", $rec->{"p_$i"}) . ""; } } else { for (my $i = 1; $i <= 6; $i++) { $text .= " "; } } } # $text .= "" . sprintf("%.1f", $sum->{tot_days}/$sum->{number}) . ""; # $text .= "" . sprintf("%.1f %%", $sum->{bruto_dif}/$sum->{number}) . ""; # $text .= "" . sprintf("%.1f ", $sum->{tot_days}/365) . ""; $text .= $tref; $text .= "\n"; return $text; } sub oud() { print <


Het kantelpuntensysteem is geďnspireerd op de professionele handel.

Privé-beleggers voelen zich verbonden met hun aandeel.
Ze voelen zich een beetje eigenaar van het bedrijf. Ze geloven het bestuur,
dat betaald is met hun geld, om te zeggen dat het morgen beter gaat. Ze denken
als investeerders te weten hoe de vork in de steel zit. ( Dŕt komt wel. Maar als laatste ... )
Ze zijn toch zo bang winst te missen. Of hopen dat het morgen beter gaat.
Ze hebben tijd, volgen hun gevoel en willen veel winst in één keer.
Transactiekosten vinden ze weggesmeten geld.

Beroeps moeten binnen de paar dagen brood op de plank hebben.
Om dit te bereiken moeten ze wel zeer actief handelen. Pakken = Hebben.
Ze liften met de stijgers mee. Hoe het aandeel noemt weten ze amper.
Ze verkopen terwijl de aandacht voor het aandeel nog "hot" is.
Ze zijn tevreden met de winst van vandaag.

Enkel als ons signaal minstens 1.82 % bruttowinst kon opleveren,
zien wij het als een juiste handeling, en krijgt het een groene kleur.
Winsten tussen de 0.01 % en 1.81 % rekenen wij dus niet goed !
 ( 1.82 % brutto = 1.50 % netto bij 5000 € en twee transactiekosten aan 8 € )

Onder de voorbeeld portefeuilles ziet u wat voor resultaten u had kunnen bereiken met het
voordurend wisselen. De portefeuilles zijn opgesteld met behulp van de exit-uitstappunten.
Deze exit is vrij conservatief en een actieve belegger moet
meer winst kunnen halen dan de exit.

Klik op een percentage om de portefeuille zelf in te zien.
1.82 % = 1.82 % en hoger
5 % = 5 % en hoger
10 % = 10 % en hoger
15 % = 15 % en hoger
 EndOfText }