set top_net [getTopNet $net]
set SAVED_WITH_VERSION {1.4.1 Created Mon Jun 28 20:28:08  2004.  Installed using a single-file installation}
setDefaultCompareMode $net switch_to_matrix
set x 851
set y 567
set desc {These are the cars that are being evaluated for purchase}
set name {Alternatives}
set color #d1edfa
set iconUU {}
set iconFont "-*-times-medium-r-normal-*-12-*-*-*-*-*"
set winFont "-*-Times New Roman-bold-r-normal-*-26-*-*-*-*-*"
set width 252
set height 70
set clusterName {Alternatives}
set clusterCompareWord {}
makeCluster $net $x $y $name $desc
clusterChangeColor $net $name $color
setClusterIconUU $net $name $iconUU
setClusterIconFont $net $name $iconFont
setClusterTitleFont $net $name $winFont
setClusterWinSize $net $name $width $height
setClusterCompareWord $net $name $clusterCompareWord
deIconizeCluster $net $name
set name {Avalon}
set desc {Cost $15,000
Miles per Gallon 26
Prestige is low
Comfort is good}
set x 0
set y 0
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set name {Babylon}
set desc {Cost $18.000
Miles per gallon 28
Prestige is fair
Comfort is fair}
set x 76
set y 0
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set name {Carryon}
set desc {Cost $24,000
Miles per gallon 20
Prestige is high
Comfort is high}
set x 163
set y 0
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set x 1284
set y 429
set desc {description}
set name {COMFORT}
set color #d1edfa
set iconUU {}
set iconFont "-*-times-medium-r-normal-*-12-*-*-*-*-*"
set winFont "-*-Arial-bold-r-normal-*-12-*-*-*-*-*"
set width 142
set height 125
set clusterName {COMFORT}
set clusterCompareWord {}
makeCluster $net $x $y $name $desc
clusterChangeColor $net $name $color
setClusterIconUU $net $name $iconUU
setClusterIconFont $net $name $iconFont
setClusterTitleFont $net $name $winFont
setClusterWinSize $net $name $width $height
setClusterCompareWord $net $name $clusterCompareWord
deIconizeCluster $net $name
set name {Driving Experience}
set desc {description}
set x 10
set y 10
set color {#ffff95}
set iconUU {}
set font {-*-Arial-bold-r-normal-*-16-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set name {Passenger Comfort}
set desc {description}
set x 6
set y 66
set color {#ffff95}
set iconUU {}
set font {-*-Arial-bold-r-normal-*-16-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set x 762
set y 365
set desc {These are the characteristics we think about when buying a car}
set name {Criteria}
set color #d1edfa
set iconUU {}
set iconFont "-*-times-medium-r-normal-*-18-*-*-*-*-*"
set winFont "-*-Times New Roman-bold-r-normal-*-26-*-*-*-*-*"
set width 444
set height 75
set clusterName {Criteria}
set clusterCompareWord {}
makeCluster $net $x $y $name $desc
clusterChangeColor $net $name $color
setClusterIconUU $net $name $iconUU
setClusterIconFont $net $name $iconFont
setClusterTitleFont $net $name $winFont
setClusterWinSize $net $name $width $height
setClusterCompareWord $net $name $clusterCompareWord
deIconizeCluster $net $name
set name {1Price}
set desc {Purchase price of the car}
set x 0
set y 0
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set name {2Miles per Gallon}
set desc {Gasoline consumption in miles per gallon}
set x 73
set y 0
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set name {3Prestige}
set desc {Status and prestige projected by this car}
set x 235
set y 0
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set name {4Comfort}
set desc {How comfortable the car is to ride in}
set x 333
set y 0
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set x 923
set y 225
set desc {description}
set name {Goal}
set color #d1edfa
set iconUU {}
set iconFont "-*-times-medium-r-normal-*-12-*-*-*-*-*"
set winFont "-*-Times New Roman-bold-r-normal-*-26-*-*-*-*-*"
set width 10
set height 10
set clusterName {Goal}
set clusterCompareWord {}
makeCluster $net $x $y $name $desc
clusterChangeColor $net $name $color
setClusterIconUU $net $name $iconUU
setClusterIconFont $net $name $iconFont
setClusterTitleFont $net $name $winFont
setClusterWinSize $net $name $width $height
setClusterCompareWord $net $name $clusterCompareWord
deIconizeCluster $net $name
set name {Goal}
set desc {}
set x 10
set y 10
set color {#ffff95}
set iconUU {}
set font {-*-Arial-medium-r-normal-*-18-*-*-*-*-*}
makeNode $net $clusterName $name $desc $x $y
setNodeIconUU $net $name $iconUU
setNodeColor $net $name $color
setNodeFont $net $name $font
set init {COMFORT}
set final {Alternatives}
connectClusters $net $init $final
set init {Criteria}
set final {Alternatives}
connectClusters $net $init $final
set init {Criteria}
set final {COMFORT}
connectClusters $net $init $final
set init {Goal}
set final {Criteria}
connectClusters $net $init $final
nodeCompareFinished $net {1Price} {Alternatives} 1
setNodeCompareWord  $net {1Price} {Alternatives} {important}
nodeCompareFinished $net {2Miles per Gallon} {Alternatives} 1
setNodeCompareWord  $net {2Miles per Gallon} {Alternatives} {important}
setNodeCompareDirectMult  $net {2Miles per Gallon} {Alternatives} 0.999
nodeCompareFinished $net {3Prestige} {Alternatives} 1
setNodeCompareWord  $net {3Prestige} {Alternatives} {important}
setNodeCompareWord  $net {4Comfort} {COMFORT} {important}
setNodeCompareWord  $net {Driving Experience} {Alternatives} {important}
nodeCompareFinished $net {Goal} {Criteria} 1
setNodeCompareWord  $net {Goal} {Criteria} {important}
setNodeCompareDirectMult  $net {Goal} {Criteria} 0.999
setNodeCompareWord  $net {Passenger Comfort} {Alternatives} {important}
setNetCompareWord $net {important}
setNetClusterColor $net {#d1edfa}
setNetNodeColor $net {#ffff95}
setNetClusterWinFont $net {-*-Arial-bold-r-normal-*-12-*-*-*-*-*}
setNetClusterIconFont $net {-*-times-medium-r-normal-*-12-*-*-*-*-*}
setNetNodeFont $net {-*-Arial-bold-r-normal-*-16-*-*-*-*-*}
setFormulaType $net 0
#Working on net 0
catch {limitPowerOptions $net 2 0}
c-network readAllCompares -network $net -source {
4
Alternatives
3
Avalon
Babylon
Carryon
COMFORT
2
Driving Experience
Passenger Comfort
Criteria
4
1Price
2Miles per Gallon
3Prestige
4Comfort
Goal
1
Goal
4 0,0 1,1 2,2 3,3 
 0.000000  1.000000  1.000000  0.000000 
 0.000000  0.000000  1.000000  0.000000 
 0.000000  0.000000  0.000000  1.000000 
 0.000000  0.000000  0.000000  0.000000 
0
0 

1
1 0,0 

2
2 0,0 1,1 
 0.000000 

3
1 2,0 

1,0,0
3 0,0 1,1 2,2 
 2.000000  3.000000 
 0.250000 

1,1,0
3 0,0 1,1 2,2 
 3.000000  0.333333 
 0.500000 

2,0,0
3 0,0 1,1 2,2 
 1.200600  1.602400 
 1.334600 

2,1,0
3 0,0 1,1 2,2 
 0.928591  1.300000 
 1.400000 

2,2,0
3 0,0 1,1 2,2 
 0.333333  0.142857 
 0.200000 

2,3,0
0 

2,0,1
0 

2,1,1
0 

2,2,1
0 

2,3,1
2 0,0 1,1 
 6.000000 

3,0,2
4 0,0 1,1 2,2 3,3 
 2.000000  6.000000  5.000000 
 5.000000  3.000000 
 0.200000 

}

set FORMAT 1
recreateNetInsideFrameOnly $net