{UTF-8}
Improvement1  = A FUNCTION OF( Delay to Improve 1,Op1 Quality,Speed1) ~~|
Improvement1=
	(Desired Quality1-Op1 Quality)*Speed1
	~	
	~		|

Improvement2  = A FUNCTION OF( Delay to Improve 2,Op2 Quality,Speed2) ~~|
Improvement2=
	(Desired Quality2-Op2 Quality)*Speed2
	~	
	~		|

Delay to Improve 1  = A FUNCTION OF( Desired Quality1) ~~|
Delay to Improve 1=
	DELAY FIXED(Customers like churn to 2, 1 , Customers like churn to 2 )
	~	
	~		|

Delay to Improve 2  = A FUNCTION OF( Desired Quality2) ~~|
Delay to Improve 2=
	DELAY FIXED(Customers like churn to 2, 1 , Customers like churn to 2 )
	~	
	~		|

Outgoing1=
	Base Churn Rate*Customers of Op1+Delay 2
	~	
	~		|

Outgoing2=
	Base Churn Rate*Customers of Op2+Delay 1
	~	
	~		|

Delay 1=
	DELAY FIXED(Customers like churn to 1, 1 , Customers like churn to 1 )
	~	
	~		|

Delay 2=
	DELAY FIXED(Customers like churn to 2, 1 , Customers like churn to 2 )
	~	
	~		|

Additional Customers1=
	Customers like churn to 1*NP Weight+Outgoing2
	~	
	~		|

Additional Customers2=
	Customers like churn to 2*NP Weight+Outgoing1
	~	
	~		|

Customers of Op2= INTEG (
	Additional Customers2-Outgoing2,
		100)
	~	
	~		|

Total Benefit 1=
	"Cost/BenefiT Analysis"-Porting Costs
	~	
	~		|

Total Benefit 2=
	-"Cost/BenefiT Analysis"-Porting Costs
	~	
	~		|

"Cost/BenefiT Analysis"=
	Total Benefit-Cost Difference
	~	
	~		|

Customers like churn to 1=
	Churn Speed due to NP*Customers of Op2*MAX(0, Total Benefit 2 )
	~	
	~		|

Customers like churn to 2=
	Churn Speed due to NP*Customers of Op1*MAX(0, Total Benefit 1 )
	~	
	~		|

NP Weight=
	0
	~	
	~		|

Base Churn Rate=
	0.02
	~	
	~		|

Churn Speed due to NP=
	Flexibility to Port
	~	
	~		|

Comparitive Quality=
	Op1 Quality/Op2 Quality
	~	
	~		|

Comparitive Services=
	ValueAddedServices1/ValueAddedServices2
	~	
	~		|

Cost Difference=
	Service Costs1-Service Costs2
	~	
	~		|

Customers of Op1= INTEG (
	Additional Customers1-Outgoing1,
		100)
	~	
	~		|

Desired Quality1=
	Difference in Customers*Standard Quality
	~	
	~		|

Desired Quality2=
	Standard Quality/Difference in Customers
	~	
	~		|

Difference in Customers=
	Customers of Op2/Customers of Op1
	~	
	~		|

Flexibility to Port=
	1
	~	
	~		|

Op1 Quality= INTEG (
	Improvement1,
		1)
	~	
	~		|

Op2 Quality= INTEG (
	Improvement2,
		1)
	~	
	~		|

Porting Costs=
	Tariffs of Porting/Flexibility to Port
	~	
	~		|

Quality Weight=
	1
	~	
	~		|

Service Costs1=
	1
	~	
	~		|

Service Costs2=
	1
	~	
	~		|

Speed1=
	1
	~	
	~		|

Speed2=
	2
	~	
	~		|

Standard Quality=
	1
	~	
	~		|

Tariffs of Porting=
	0.5
	~	
	~		|

Total Benefit=
	Comparitive Quality*Quality Weight+Comparitive Services*Variety Weight
	~	
	~		|

ValueAddedServices1=
	2
	~	
	~		|

ValueAddedServices2=
	2
	~	
	~		|

Variety Weight=
	1
	~	
	~		|

********************************************************
	.Control
********************************************************~
		Simulation Control Parameters
	|

FINAL TIME  = 200
	~	Month
	~	The final time for the simulation.
	|

INITIAL TIME  = 0
	~	Month
	~	The initial time for the simulation.
	|

SAVEPER  = 
        TIME STEP
	~	Month [0,?]
	~	The frequency with which output is stored.
	|

TIME STEP  = 1
	~	Month [0,?]
	~	The time step for the simulation.
	|

\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*View 1
$192-192-192,0,Times New Roman|12||0-0-0|0-0-0|0-0-255|-1--1--1|-1--1--1|96,96,100,0
10,1,Customers of Op1,1005,662,40,20,3,3,0,0,0,0,0,0
10,2,Customers of Op2,982,483,40,20,3,3,0,0,0,0,0,0
12,3,48,727,660,10,8,0,3,0,0,-1,0,0,0
1,4,6,1,4,0,0,22,0,0,0,-1--1--1,,1|(883,659)|
1,5,6,3,100,0,0,22,0,0,0,-1--1--1,,1|(763,659)|
11,6,48,796,659,6,8,34,3,0,0,1,0,0,0
10,7,Additional Customers1,796,686,39,19,40,3,0,0,-1,0,0,0
12,8,48,730,481,10,8,0,3,0,0,-1,0,0,0
1,9,11,2,4,0,0,22,0,0,0,-1--1--1,,1|(870,481)|
1,10,11,8,100,0,0,22,0,0,0,-1--1--1,,1|(763,481)|
11,11,48,793,481,6,8,34,3,0,0,1,0,0,0
10,12,Additional Customers2,793,508,39,19,40,3,0,0,-1,0,0,0
10,13,ValueAddedServices1,137,345,72,9,8,3,0,0,0,0,0,0
10,14,ValueAddedServices2,135,410,72,9,8,3,0,0,0,0,0,0
10,15,Comparitive Quality,456,449,40,19,8,3,0,0,0,0,0,0
10,16,Comparitive Services,268,382,40,19,8,3,0,0,0,0,0,0
10,17,Service Costs1,131,271,48,11,8,3,0,0,0,0,0,0
10,18,Service Costs2,132,210,48,11,8,3,0,0,0,0,0,0
10,19,Porting Costs,749,166,43,11,8,3,0,0,0,0,0,0
10,20,Cost Difference,282,244,50,11,8,3,0,0,0,0,0,0
1,21,18,20,0,0,0,0,0,64,0,-1--1--1,,1|(199,224)|
1,22,17,20,0,0,0,0,0,64,0,-1--1--1,,1|(198,258)|
1,23,13,16,0,0,0,0,0,64,0,-1--1--1,,1|(191,360)|
1,24,14,16,0,0,0,0,0,64,0,-1--1--1,,1|(195,396)|
10,25,Total Benefit,646,332,41,11,8,3,0,0,0,0,0,0
10,26,Quality Weight,646,445,47,11,8,3,0,0,0,0,0,0
10,27,Variety Weight,439,363,48,11,8,3,0,0,0,0,0,0
1,28,15,25,0,0,0,0,0,64,0,-1--1--1,,1|(551,390)|
1,29,26,25,0,0,0,0,0,64,0,-1--1--1,,1|(646,395)|
1,30,27,25,0,0,0,0,0,64,0,-1--1--1,,1|(539,348)|
1,31,16,25,1,0,0,0,0,64,0,-1--1--1,,1|(421,302)|
10,32,"Cost/BenefiT Analysis",648,245,43,19,8,3,0,0,0,0,0,0
1,33,25,32,1,0,0,0,0,64,0,-1--1--1,,1|(644,299)|
10,34,Op2 Quality,567,538,40,20,3,3,0,0,0,0,0,0
10,35,Op1 Quality,282,536,40,20,3,3,0,0,0,0,0,0
12,36,48,139,536,10,8,0,3,0,0,-1,0,0,0
1,37,39,35,4,0,0,22,0,0,0,-1--1--1,,1|(221,536)|
1,38,39,36,100,0,0,22,0,0,0,-1--1--1,,1|(169,536)|
11,39,48,195,536,6,8,34,3,0,0,1,0,0,0
10,40,Improvement1,195,555,46,11,40,3,0,0,-1,0,0,0
12,41,48,407,541,10,8,0,3,0,0,-1,0,0,0
1,42,44,34,4,0,0,22,0,0,0,-1--1--1,,1|(503,541)|
1,43,44,41,100,0,0,22,0,0,0,-1--1--1,,1|(442,541)|
11,44,48,473,541,6,8,34,3,0,0,1,0,0,0
10,45,Improvement2,473,560,46,11,40,3,0,0,-1,0,0,0
10,46,Desired Quality1,196,697,53,11,8,3,0,0,0,0,0,0
10,47,Desired Quality2,457,699,53,11,8,3,0,0,0,0,0,0
1,49,35,40,1,0,0,0,0,64,0,-1--1--1,,1|(220,578)|
10,50,Speed1,82,596,26,11,8,3,0,0,0,0,0,0
10,51,Speed2,351,579,26,11,8,3,0,0,0,0,0,0
1,52,50,40,0,0,0,0,0,64,0,-1--1--1,,1|(129,578)|
1,53,51,45,0,0,0,0,0,64,0,-1--1--1,,1|(395,572)|
1,55,34,45,1,0,0,0,0,64,0,-1--1--1,,1|(522,583)|
1,56,34,15,1,0,0,0,0,64,0,-1--1--1,,1|(529,496)|
1,57,35,15,0,0,0,0,0,64,0,-1--1--1,,1|(363,495)|
12,58,48,1158,483,10,8,0,3,0,0,-1,0,0,0
1,59,61,58,4,0,0,22,0,0,0,-1--1--1,,1|(1124,483)|
1,60,61,2,100,0,0,22,0,0,0,-1--1--1,,1|(1055,483)|
11,61,48,1095,483,6,8,34,3,0,0,1,0,0,0
10,62,Outgoing2,1095,502,34,11,40,3,0,0,-1,0,0,0
12,63,48,1177,657,10,8,0,3,0,0,-1,0,0,0
1,64,66,63,4,0,0,22,0,0,0,-1--1--1,,1|(1141,661)|
1,65,66,1,100,0,0,22,0,0,0,-1--1--1,,1|(1074,661)|
11,66,48,1109,661,6,8,34,3,0,0,1,0,0,0
10,67,Outgoing1,1109,680,34,11,40,3,0,0,-1,0,0,0
1,68,2,62,1,0,0,0,0,64,0,-1--1--1,,1|(1031,446)|
1,69,1,66,1,0,0,0,0,64,0,-1--1--1,,1|(1064,709)|
10,70,Base Churn Rate,1069,564,54,11,8,3,0,0,0,0,0,0
10,71,Standard Quality,349,628,53,11,8,3,0,0,0,0,0,0
1,72,71,47,0,0,0,0,0,64,0,-1--1--1,,1|(396,659)|
1,73,71,46,0,0,0,0,0,64,0,-1--1--1,,1|(278,659)|
10,74,Flexibility to Port,966,171,54,11,8,3,0,0,0,0,0,0
1,75,74,19,1,0,0,0,0,64,0,-1--1--1,,1|(809,161)|
10,76,Tariffs of Porting,582,167,53,11,8,3,0,0,0,0,0,0
1,77,76,19,1,0,0,0,0,64,0,-1--1--1,,1|(655,168)|
1,78,70,62,1,0,0,0,0,64,0,-1--1--1,,1|(1095,520)|
10,79,Difference in Customers,655,707,41,19,8,3,0,0,0,0,0,0
1,80,2,79,1,0,0,0,0,64,0,-1--1--1,,1|(742,615)|
1,81,1,79,1,0,0,0,0,64,0,-1--1--1,,1|(792,730)|
1,82,79,47,0,0,0,0,0,64,0,-1--1--1,,1|(568,703)|
1,83,79,46,1,0,0,0,0,64,0,-1--1--1,,1|(442,730)|
10,84,Churn Speed due to NP,1048,230,56,19,8,3,0,0,0,0,0,0
1,85,74,84,1,0,0,0,0,64,0,-1--1--1,,1|(1001,203)|
1,86,20,32,0,0,0,0,0,64,0,-1--1--1,,1|(461,244)|
10,87,Total Benefit 1,766,280,47,11,8,3,0,0,0,0,0,0
10,88,Total Benefit 2,754,366,47,11,8,3,0,0,0,0,0,0
1,89,32,87,0,0,0,0,0,64,0,-1--1--1,,1|(702,260)|
1,90,32,88,0,0,0,0,0,64,0,-1--1--1,,1|(699,304)|
1,91,19,87,1,0,0,0,0,64,0,-1--1--1,,1|(750,264)|
1,92,19,88,1,0,0,0,0,64,0,-1--1--1,,1|(773,257)|
1,93,62,6,1,0,0,0,0,64,0,-1--1--1,,1|(944,581)|
10,94,NP Weight,678,564,36,11,8,3,0,0,0,0,0,0
1,95,94,12,0,0,0,0,0,64,0,-1--1--1,,1|(720,542)|
1,96,94,6,0,0,0,0,0,64,0,-1--1--1,,1|(735,610)|
1,97,66,11,1,0,0,0,0,64,0,-1--1--1,,1|(957,574)|
1,98,70,66,1,0,0,0,0,64,0,-1--1--1,,1|(1088,602)|
11,99,380,901,295,6,8,34,3,0,1,1,0,0,0,255-255-255,0-0-0,|12||0-0-0
10,100,Customers like churn to 2,901,322,48,19,40,3,0,0,-1,0,0,0
1,101,87,100,0,0,0,0,0,64,0,-1--1--1,,1|(820,296)|
1,102,84,100,0,0,0,0,0,64,0,-1--1--1,,1|(980,272)|
10,103,Customers of Op1,876,236,48,19,8,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,104,103,100,0,0,0,0,0,64,0,-1--1--1,,1|(886,272)|
1,105,100,12,1,0,0,0,0,64,0,-1--1--1,,1|(829,391)|
11,106,236,899,376,6,8,34,3,0,1,1,0,0,0,255-255-255,0-0-0,|12||0-0-0
10,107,Customers like churn to 1,899,403,48,19,40,3,0,0,-1,0,0,0
1,108,88,107,0,0,0,0,0,64,0,-1--1--1,,1|(817,381)|
1,109,84,107,0,0,0,0,0,64,0,-1--1--1,,1|(978,311)|
1,110,2,107,0,0,0,0,0,64,0,-1--1--1,,1|(945,447)|
1,111,107,6,0,0,0,0,0,64,0,-1--1--1,,1|(847,531)|
10,112,Delay 1,1060,403,40,20,3,3,0,0,0,0,0,0
10,113,Delay 2,1062,323,40,20,3,3,0,0,0,0,0,0
1,114,100,113,0,0,0,0,0,64,0,-1--1--1,,1|(978,322)|
1,115,107,112,0,0,0,0,0,64,0,-1--1--1,,1|(976,403)|
1,116,112,61,1,0,0,0,0,64,0,-1--1--1,,1|(1107,440)|
1,117,113,66,1,0,0,0,0,64,0,-1--1--1,,1|(1183,463)|
10,118,Delay to Improve 2,488,630,40,20,3,3,0,0,0,0,0,0
10,119,Delay to Improve 1,191,628,40,20,3,3,0,0,0,0,0,0
1,120,46,119,0,0,0,0,0,64,0,-1--1--1,,1|(194,674)|
1,121,119,40,0,0,0,0,0,64,0,-1--1--1,,1|(192,593)|
1,122,47,118,0,0,0,0,0,64,0,-1--1--1,,1|(467,675)|
1,123,118,45,0,0,0,0,0,64,0,-1--1--1,,1|(481,597)|
///---\\\
:L<%^E!@
1:Current.vdf
9:Current
13:ReferenceMode
23:0
15:0,0,0,0,0,0
19:100,0
27:2,
34:0,
4:Time
5:Delay 2
24:0
25:200
26:200