#!/usr/bin/perl -w # results in this script are not normalized yet. use strict; my @partyfullname= qw(PvdA VVD CDA D66 GroenLinks ChristenUnie SP SGP Leefbaar); my @party= qw(PvdA VVD CDA D66 GL Christ SP SGP Leef); my @soortissue= ( "Criminaliteit en veiligheid", "Ethische kwesties", "Democratie", "Migranten", "Sociaal-economisch beleid", "Sociale zekerheid en zorg", "Wonen", "Verkeer en milieu", "Onderwijs, sport en cultuur", "Financi?n en belastingen", "Internationale betrekkingen en Defensie"); my @mening= qw(oneens neutraal eens); my @program= ( { category=>0, issue=> "Er moet een algemene legitimatieplicht komen.", scores=>[-1, 1, 1, -1, -1, 1, -1, 1, 1,-1,], }, { category=>0, issue=> "Het inzetten van cameratoezicht in winkel- en uitgaanscentra moet niet verder worden doorgevoerd.", scores=>[-1, -1, -1, 0, 1, -1, -1, -1, 0,], }, { category=>0, issue=> "Criminelen die in herhaling vallen (recidivisten), moeten zwaarder worden gestraft.", scores=>[ 1, 1, 1, 0, -1, 1, 1, 1, 1,], }, { category=>1, issue=> "Euthanasie moet weer volledig strafbaar worden gesteld.", scores=>[-1, -1, 0, -1, -1, 1, -1, 1, -1,], }, { category=>1, issue=> "Voor mensen die geen andere uitweg zien, moet een zelfdodingspil (\'pil van Drion\') tot de mogelijkheden behoren.", scores=>[-1, -1, -1, 1, -1, -1, -1, -1, 0,], }, { category=>1, issue=> "Genetische manipulatie van voedsel moet worden verboden.", scores=>[-1, -1, 0, -1, 1, 1, 1, 1, -1,], }, { category=>2, issue=> "De minister-president moet rechtstreeks door de burgers worden gekozen.", scores=>[-1, -1, -1, 1, -1, -1, -1, -1, 1,], }, { category=>2, issue=> "Het moet mogelijk worden een bindend referendum te houden over een voorstel vanuit de bevolking (volksinitiatief).", scores=>[ 1, -1, -1, 1, 1, -1, 1, -1, 1,], }, { category=>3, issue=> "Buitenlanders die langer dan drie jaar in Nederland wonen moeten algemeen kiesrecht krijgen, dus ook voor de Tweede-Kamerverkiezingen.", scores=>[ 0, -1, -1, -1, 1, -1, -1, -1, -1,], }, { category=>3, issue=> "Asielzoekers die langer dan anderhalf jaar op een beslissing moeten wachten, krijgen automatisch een verblijfsvergunning.", scores=>[-1, -1, -1, -1, 1, -1, -1, -1, -1,], }, { category=>4, issue=> "Voor oudere werknemers in WW of bijstand gaat weer de sollicitatieplicht gelden.", scores=>[-1, 1, -1, 1, -1, 1, -1, -1, 1,], }, { category=>4, issue=> "Om grote inkomensverschillen tegen te gaan, moeten niet alleen de salarissen van \'gewone\' werknemers maar ook die van managers in een CAO worden ondergebracht.", scores=>[ 0, -1, -1, 0, 1, 1, 1, -1, -1,], }, { category=>4, issue=> "Winkels dienen op zondag gesloten te zijn.", scores=>[-1, -1, -1, -1, -1, 1, 0, 1, -1,], }, { category=>5, issue=> "Alleen werknemers die voor 50% of meer arbeidsongeschikt zijn, krijgen voortaan een WAO-uitkering.", scores=>[-1, 1, -1, -1, -1, -1, -1, -1, -1,], }, { category=>5, issue=> "De verzekeringspremie voor ziektekosten moet geheel naar draagkracht worden geheven.", scores=>[-1, -1, -1, -1, 1, 1, 1, -1, -1,], }, { category=>5, issue=> "Extra financiering van de gezondheidszorg is niet nodig, een efficientere besteding van de beschikbare gelden is voldoende om problemen als wachtlijsten op te lossen.", scores=>[-1, 0, -1, -1, -1, -1, -1, -1, 1,], }, { category=>6, issue=> "De aftrek van hypotheekrente voor het eerste huis moet volledig gehandhaafd blijven.", scores=>[ 1, 1, 1, 1, -1, -1, -1, -1, 1,], }, { category=>6, issue=> "De Onroerend Zaak Belasting (OZB), de gemeentelijke belasting op huisvesting, moet worden afgeschaft.", scores=>[-1, 1, -1, 0, -1, -1, -1, -1, 0,], }, { category=>7, issue=> "Onder de Waddenzee mogen geen proefboringen naar olie of gas meer plaatsvinden.", scores=>[ 1, -1, 1, 1, 1, 1, 1, -1, 1,], }, { category=>7, issue=> "Knelpunten in het wegennet moeten met spoed worden aangepakt, onder andere door het verbreden van wegen.", scores=>[ 1, 1, 1, 0, -1, -1, 0, -1, 1,], }, { category=>7, issue=> "De aanleg van de Betuwelijn moet worden gestaakt.", scores=>[-1, -1, -1, -1, 1, 1, 1, 0, 1,], }, { category=>7, issue=> "De toepassing van kernenergie moet mogelijk blijven.", scores=>[-1, 1, 1, -1, -1, -1, -1, 1, -1,], }, { category=>8, issue=> "Professionele sport moet niet langer worden gesubsidieerd.", scores=>[-1, -1, -1, -1, -1, 1, -1, 1, -1,], }, { category=>8, issue=> "De publieke omroep moet een beperktere taak krijgen.", scores=>[-1, 1, -1, 0, -1, -1, -1, -1, -1,], }, { category=>8, issue=> "Scholen moeten worden bestuurd door ouders en leerkrachten, in het voortgezet onderwijs ook door leerlingen.", scores=>[ 0, -1, -1, 1, -1, -1, 1, -1, 1,], }, { category=>9, issue=> "Het aflossen van de staatsschuld heeft prioriteit boven meer geld voor gezondheidszorg en onderwijs.", scores=>[ 0, 1, 0, -1, -1, -1, -1, -1, 1,], }, { category=>9, issue=> "Het hoogste tarief van de inkomstenbelasting moet worden verlaagd.", scores=>[-1, 1, 0, 0, -1, -1, -1, 1, 1,], }, { category=>10, issue=> "Nederland moet kiezen voor een federaal Europa, met een Europese grondwet en een Europese regering die verantwoording schuldig is aan het Europees Parlement.", scores=>[ 0, -1, -1, 1, 1, -1, -1, -1, -1,], }, { category=>10, issue=> "De NAVO moet ontmanteld worden.", scores=>[-1, -1, -1, -1, 0, -1, 1, -1, -1,], }, { category=>10, issue=> "De eis aan ontwikkelingslanden om de ontvangen hulp bij het Nederlandse bedrijfsleven te besteden, moet worden afgeschaft.", scores=>[ 1, -1, 0, 1, 1, 1, 1, 0, 1,], }, ); print "
"; for my $x (0..$#party) { print " | $party[$x] | "; } print "
---|---|
$party[$y] | "; for my $x (0..$#party) { my @xparty= getScoreVector($x); my $dist= $distfunc->(\@xparty, \@yparty); printf("%6.2f | ", $dist); } print "