strategi_campuran.pl

#!/usr/bin/perl

# strategi campuran dalam teori pengantar game

#use stricts;
use Term::ANSIColor qw(:constants);

$SIG{'INT'} = \&sigIntHandler;
sub sigIntHandler {
system "clear";
print "program interrupted!\n";
exit;}

# perusahaan A menggunakan strategi A1, probabilitas A1 = probabilitas P
# dan strategi A3 probabilitasnya 1-p


# strategi B1
my $var1 = '17.1';
my $var2 = '43.4';
my $var3 = $var1-$var2;

## strategi B2
my $var4 = '23.1';
my $var5 = '3.9';
my $hasil= $var4-$var5;

## probabilitas q strategi B1 dan q-1 strategi B2
my $p  = '86.9';
my $p2 = '13.1';

my $hasil2  = $var1*$p;
my $hasil3  = $var2*$p2;
my $hasil4  = $var4*$p;
my $hasil5  = $var5*$p2;

my $jumlah1 = $hasil2+$hasil3;
my $jumlah2 = $hasil4+$hasil5;
my $jumlah3 = $jumlah1/$jumlah2;

## strategi A1
my $hasilA1 = $var1-$var4;

## strategi A3
my $hasilA3 = $var2-$var5;

menu:
print " TABEL RATING TELEVISI RCTI DAN TRANS TV BERDASARKAN REALITY SHOW DAN SINETRON";
print "\n
+-----------+----------------+-----------------+-------------+------------------+
| strategi  |  dalam %       |   reality show  | sinetron    |   minimal baris  |
+-----+-----+----------------+-----------------+-------------+------------------+
| P,A | A1  | reality show   |       17,1      |   23,1      |     17,1         |
|     | A3  | movie/sinetron |       43,4      |   3,9       |     3,9          |
+-----+-----+----------------+-----------------+-------------+------------------+
|max kolom  |                |       43,4      |   23,1      |                  |
+-----------+----------------+-----------------+-------------+------------------+\n";
print "\n
1. bila perusahaan B menggunakan strategi B1
2. bila perusahaan B menggunakan strategi B2
3. perusahaan B menggunakan probabilitas q strategi B1 dan 1-q untuk strategi B2
4. bila perusahaan A menggunakan strategi A1
5. bila perusahaan A menggunakan strategi A3
6. kesimpulan\n
7. keluar program
Pilih: ";

chomp (my $pilihan=<>);

if ($pilihan eq 1){
system "clear";
print "Keuntungan yang diharapkan perusahaan A\n";
print "\n
$var1 p + $var2 (1-p) = $var1 p + $var2 - $var2 p
= $var3 p + $var2\n\n";

question();
}

elsif ($pilihan eq 2){
system "clear";
print "Keuntungan yang diharapkan perusahaan A\n";
print "
$var4 p + $var5 (1-p) = $var4 p + $var5 - $var5 p
= $hasil1 p + $var5\n";

question();
}

elsif ($pilihan eq 3){
system "clear";
print "perusahaan B menggunakan probabilitas q strategi B1 dan 1-q untuk strategi B2\n";
print "\n
$var1 p + $var2 (1-p) = $var4 p + $var5 (1-p)
$var1 ($p) + $var2 ($p2) = $var4 ($p) + $var5 ($p2)
$hasil2 + $hasil3 = $hasil4 + $hasil5
$jumlah1 = $jumlah2
$jumlah1 / $jumlah2 = 0.9980\n";

question();
}

elsif ($pilihan eq 4){
system "clear";
print "Kerugian yang diharapkan perusahaan B\n";
print "
$var1 q + $var4 (1-q) = $var1 q + $var4 - $var4 q
= $hasilA1 q + $var4
= $var4 $hasilA1 q\n";

question();
}

elsif ($pilihan eq 5){
system "clear";
print "Kerugian yang diharapkan perusahaan B\n";
print "
$var2 q + $var5 (1-q) = $var2 q + $var5 (1-q)
= $var2 q + $var5 - $var5 q
= $hasilA3 q + $var5\n";
question();
}

elsif ($pilihan eq 6){
print "
a.) Dengan menggunakan strategi campuran dapat dicapai titik yang ekuilibirium dimana keuntungan
    (per permainan) yang diharapkan oleh maximizing player = kerugian (per permainan ) yang diharapkan
    oleh minimizing player.
b.) Perusahaan A telah menaikan keuntungan yang diharapkan dari 17,1 menjadi  86,9 dan perusahaan B
    dari 23,1 menjadi 49,9\n";

question();
}

elsif ($pilihan eq 7){
system "clear";
exit 0;
}

else {
system "clear";
goto menu;
}

sub question()
{
quest:
print "back to menu (y/N) ? ";
chomp (my $menu=<>);

if ($menu eq 'y' or $menu eq 'Y'){
system "clear";
goto menu;
}

elsif ($menu eq 'n' or $menu eq 'N'){
system "clear";
print "bye :)\n";
exit;
}

else {
system "clear";
goto quest;
  }
}