<html>
<head>

<style type="text/css">
td {font-family:Arial;}
</style>

<script type="text/javascript">
<!--

var dice = new Array();		// 3-dimensional array storing all possible results of "roll Xd6 and Yd8, pick highest"
var netDice = new Array();	// 7-dimensional array storing all possible combat value comparison results of "X Attack + Y Spot - Z defense = number of damage dice"

for (var d6 = 0; d6 < 6; d6++) {
	dice[d6] = new Array();
	for (var d8 = 0; d8 < 5; d8++) {
		dice[d6][d8] = new Array();
		for (var v = 0; v < 9; v++) {
			if (v == 0) {
				if (d6 + d8 == 0) {
					dice[d6][d8][v] = 1;
				}
				else {
					dice[d6][d8][v] = 0;
				}
			}
			else {
				dice[d6][d8][v] = (Math.pow(v,(v > 6)?d8:d6 + d8)-Math.pow((v - 1),(v > 6)?d8:d6 + d8))*Math.pow(v,(v > 6)?d8:d6 + d8)/(Math.pow(v,(v > 6)?d8:d6 + d8)*Math.pow(6,(v > 6)?0:d6)*Math.pow(8,d8));
			}
		};
	};
};

for (var r6 = 0; r6 < 6; r6++) {
	netDice[r6] = new Array();
	for (var r8=0;r8<5;r8++) {
		if (r6+r8 == 0 || (r8 == 4 && (r6 == 0 || r6 == 1 || r6 == 5))) {
			continue;
		};
		netDice[r6][r8] = new Array();
		for (var y=0;y<5;y++) {
			netDice[r6][r8][y] = new Array();
			for (var b=0;b<5;b++) {
				netDice[r6][r8][y][b] = new Array();
				var probability = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
				for (var rV=0;rV<9;rV++) {
					if (rV == 0 || (r8 == 0 && rV > 6)) {
						continue;
					};
					netDice[r6][r8][y][b][rV] = new Array();
					for (var yV=0;yV<7;yV++) {
						if ((yV == 0 && y != 0) || (y == 0 && yV != 0)) {
							continue;
						};
						netDice[r6][r8][y][b][rV][yV] = new Array();
						for (var bV=0;bV<7;bV++) {
							if ((bV == 0 && b != 0) || (b == 0 && bV != 0)) {
								continue;
							};
							netDice[r6][r8][y][b][rV][yV][bV] = dice[r6][r8][rV] * dice[y][0][yV] * dice[b][0][bV];
							probability[Math.max(rV+yV-bV,0)]+=netDice[r6][r8][y][b][rV][yV][bV];
						};
					};
				};
				var meanResults=0;
				for (var i=0;i<15;i++) {
					if (probability[i]>0) {
						meanResults+=i*probability[i];
					};
				};
				var varianceResults=0;
				for (var i=0;i<15;i++) {
					if (probability[i]>0) {
						varianceResults+=Math.pow(i-meanResults,2)*probability[i];
					};
				};
			};
		};
	};
};

var red6 = 2;		// number of default red d6
var red8 = 0;		// number of default red d8
var yellow6 = 0;	// number of default yellow d6
var blue6 = 1;		// number of default blue d6

var combatType = "n";	// default damage resolution model
var compareType = "a";	// default comparison axis
var sysF = 0;
var sysW = 2;
var sysR = 0;

function setSystems (type, sign) {
	var sysMin = 0;
	var sysMax = 4;
	switch (type) {
		case "f":
			(sysW == 0 && sysR == 0)?sysMin = 1:sysMin = 0;
			sysMax = 2;
			(sign=="+")?sysF++:sysF--
			(sysF>sysMax)?sysF=sysMax:(sysF<sysMin)?sysF=sysMin:sysF=sysF;
			break;
		case "w":
			((combatType!="h" || sysF == 0 ) && sysR == 0)?sysMin = 1:sysMin = 0;
			(sign=="+")?sysW++:sysW--
			(sysW>sysMax)?sysW=sysMax:(sysW<sysMin)?sysW=sysMin:sysW=sysW;
			break;
		case "r":
			(sysW == 0 && combatType!="h")?sysMin = 1:sysMin = 0;
			(combatType=="h")?sysMax=0:sysMax=3;
			(sign=="+")?sysR++:sysR--
			(sysR>sysMax)?sysR=sysMax:(sysR<sysMin)?sysR=sysMin:sysR=sysR;
			break;
		case "s":
			(sign=="+")?yellow6++:yellow6--
			(yellow6>sysMax)?yellow6=sysMax:(yellow6<sysMin)?yellow6=sysMin:yellow6=yellow6;
			break;
		case "d":
			(sign=="+")?blue6++:blue6--
			(blue6>sysMax)?blue6=sysMax:(blue6<sysMin)?blue6=sysMin:blue6=blue6;
			break;
	};
	red6 = sysF + ((sysW==4)?2:sysW);
	red8 = sysR + ((sysW==4)?1:0);
	display();
};

function showDice (f, w, r, s, d, signs) {
	var diceline="";
	var strPrefix="<img height=46 src='images/";
	var strSuffix=".png'>";
	switch (w) {
		case 0:
			break;
		case 4:
			diceline+=strPrefix+"R"+((combatType=="h")?"h":"d")+"6"+strSuffix+strPrefix+"R"+((combatType=="h")?"h":"d")+"6"+strSuffix+strPrefix+"R"+((combatType=="h")?"h":"d")+"8"+strSuffix;
			break;
		default:
			for (i = 1; i <= w; i++) {
				diceline+=strPrefix+"R"+((combatType=="h")?"h":"d")+"6"+strSuffix;
			};
			break;
	};
	for (i = 1; i <= r; i++) {
		diceline+=strPrefix+"Rr8"+strSuffix;
	};
	for (i = 1; i <= f; i++) {
		diceline+=strPrefix+"W6-r"+strSuffix;
	};
	if (s>0) {
		if (signs==1) {
			diceline+=strPrefix+"plus"+strSuffix;
		};
		for (i = 1; i <= s-2; i++) {
			diceline+=strPrefix+"Y6"+strSuffix;
		};
		for (i = 1; i <= Math.min(s,2); i++) {
			diceline+=strPrefix+"W6-y"+strSuffix;
		};
	};
	if (d>0) {
		if (signs==1) {
			diceline+=strPrefix+"minus"+strSuffix;
		};
		for (i = 1; i <= d-2; i++) {
			diceline+=strPrefix+"B6"+strSuffix;
		};
		for (i = 1; i <= Math.min(d,2); i++) {
			diceline+=strPrefix+"W6-b"+strSuffix;
		};
	};
	if (diceline=="") {
		switch (compareType) {
			case "a":
				diceline=strPrefix+"R"+((combatType=="h")?"h":"d")+"6-g"+strSuffix;
				break;
			case "s":
				diceline=strPrefix+"Y6-g"+strSuffix;
				break;
			case "d":
				diceline=strPrefix+"B6-g"+strSuffix;
				break;
		};
	};
	return diceline;
};

function setCombat (type) {
	combatType = type;
	document.getElementById("buttonHtH").src="images/Rh6-g.png";
	document.getElementById("buttonNoCover").src="images/Rd6-g.png";
	document.getElementById("buttonCover").src="images/C-g.png";
	switch (type) {
		case "h":
			document.getElementById("buttonHtH").src="images/Rh6.png";
			document.getElementById("buttonWeapon").src="images/Rh6.png";
			document.getElementById("buttonRocket").src="images/Rr8-g.png";
			if (sysR>0) {
				if (sysF==0 && sysW==0) {
					setSystems("f","+");
				};
				setSystems("r","-");
			};
			break;
		case "n":
			document.getElementById("buttonNoCover").src="images/Rd6.png";
			document.getElementById("buttonWeapon").src="images/Rd6.png";
			document.getElementById("buttonRocket").src="images/Rr8.png";
			break;
		case "c":
			document.getElementById("buttonCover").src="images/C.png";
			document.getElementById("buttonWeapon").src="images/Rd6.png";
			document.getElementById("buttonRocket").src="images/Rr8.png";
			break;
	};
	document.getElementById("buttonA").src="images/R"+((combatType=="h")?"h":"d")+"6"+((compareType=="a")?"":"-g")+".png";
	display();
};

function setCompare (type) {
	compareType = type;
	document.getElementById("buttonA").src="images/R"+((combatType=="h")?"h":"d")+"6-g.png";
	document.getElementById("buttonS").src="images/Y6-g.png";
	document.getElementById("buttonD").src="images/B6-g.png";
	switch (type) {
		case "a":
			document.getElementById("buttonA").src="images/R"+((combatType=="h")?"h":"d")+"6.png";
			break;
		case "s":
			document.getElementById("buttonS").src="images/Y6.png";
			break;
		case "d":
			document.getElementById("buttonD").src="images/B6.png";
			break;
	};
	display();
};

function factorial (n) {
	var output=1;
	if (n>0) {
		for (var i=n;i>0;i--) {
			output=output*i;
		};
	};
	return output;
};

var comparisonMinus;

var comparison;

var comparisonPlus;

function calcResults (r6, r8, y, b, field, dice) {
	document.getElementById(field).innerHTML="";
	var probability = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
	for (var rV=0;rV<9;rV++) {
		if (rV == 0 || (r8 == 0 && rV > 6)) {
			continue;
		};
		for (var yV=0;yV<7;yV++) {
			if ((yV == 0 && y != 0) || (y == 0 && yV != 0)) {
				continue;
			};
			for (var bV=0;bV<7;bV++) {
				if ((bV == 0 && b != 0) || (b == 0 && bV != 0)) {
					continue;
				};
				probability[Math.max(rV+yV-bV,0)]+=netDice[r6][r8][y][b][rV][yV][bV];
			};
		};
	};
	var meanResults=0;
	var probabilityDamageResult = [probability[0],0,0,0,0,0,0,0,0,0,0,0,0,0,0];
	var dice=showDice(Number(dice.charAt(0)), Number(dice.charAt(1)), Number(dice.charAt(2)), Number(dice.charAt(3)), Number(dice.charAt(4)), 0);
	document.getElementById(field+"Dice").innerHTML=dice;
	for (var i=0;i<15;i++) {
		if (probability[i]>0) {
			if (document.getElementById("verboseCheck").checked==true) {
				document.getElementById(field).innerHTML+=i+"d6: "+(probability[i]*100).toFixed(2)+"%<br>";
			};
			meanResults+=i*probability[i];
			var damageRatio;
			(combatType=="h")?damageRatio=2:(combatType=="n")?damageRatio=3:damageRatio=6;
			if (i>0) {
				for (var j=1;j<=i;j++) {
					probabilityDamageResult[j]+=probability[i]/Math.pow(damageRatio,j)* Math.pow(1 - 1/damageRatio,(i-j))*factorial(i)/(factorial(j)*factorial(i-j));
				};
				probabilityDamageResult[0]+=probability[i]*Math.pow(damageRatio-1,i)/Math.pow(damageRatio,i);
			};
		};
	};
	var varianceResults=0;
	for (var i=0;i<15;i++) {
		if (probability[i]>0) {
			varianceResults+=Math.pow(i-meanResults,2)*probability[i];
		};
	};
	document.getElementById(field).innerHTML+="Expected Value:"+((document.getElementById("verboseCheck").checked)?" ":"<br>")+"<b>"+meanResults.toFixed(2)+"</b> (σ = "+Math.sqrt(varianceResults).toFixed(2)+") damage dice<br>";
	var meanResults=0;
	if (document.getElementById("verboseCheck").checked==true) {
		document.getElementById(field).innerHTML+="<br>"
	};
	for (var i=0;i<15;i++) {
		if (probabilityDamageResult[i]>0) {
			if (document.getElementById("verboseCheck").checked==true) {
				document.getElementById(field).innerHTML+=i+" systems damaged: "+(probabilityDamageResult[i]*100).toFixed(2)+"%<br>";
			};
			meanResults+=i*probabilityDamageResult[i];
		};
	};
	var varianceResults=0;
	for (var i=0;i<15;i++) {
		if (probabilityDamageResult[i]>0) {
			varianceResults+=Math.pow(i-meanResults,2)*probabilityDamageResult[i];
		};
	};
	document.getElementById(field).innerHTML+=((document.getElementById("verboseCheck").checked)?"Expected Value: ":"")+"<b>"+meanResults.toFixed(2)+"</b> (σ = "+Math.sqrt(varianceResults).toFixed(2)+") systems damaged<br>";
	switch (field) {
		case "results":
			comparison=meanResults;
			break;
		case "resultsMinus":
			comparisonMinus=meanResults;
			break;
		case "resultsPlus":
			comparisonPlus=meanResults;
			break;
	};
};

function display () {
	document.getElementById("diceline").innerHTML=showDice(sysF, sysW, sysR, yellow6, blue6, 1);
	switch (compareType) {
		case "a":
			calcResults(red6, red8, yellow6, blue6, "results", ""+sysF+sysW+sysR+"0"+"0");
			switch (sysW) {
				case 0:
					if (sysF==2) {
						calcResults(red6-1, red8, yellow6, blue6, "resultsMinus", ""+(sysF-1)+sysW+sysR+"0"+"0");
					}
					else if (sysF==1 && sysR>0) {
						calcResults(red6-1, red8, yellow6, blue6, "resultsMinus", ""+(sysF-1)+sysW+sysR+"0"+"0");
					}
					else if (sysR>1) {
						calcResults(red6, red8-1, yellow6, blue6, "resultsMinus", ""+sysF+sysW+(sysR-1)+"0"+"0");
					}
					else {
						document.getElementById("resultsMinus").innerHTML="";
						document.getElementById("resultsMinusDice").innerHTML="";
					};
					calcResults(red6+2, red8, yellow6, blue6, "resultsPlus", ""+sysF+(sysW+2)+sysR+"0"+"0");
					break;
				case 1:
					if (sysF>0) {
						calcResults(red6-1, red8, yellow6, blue6, "resultsMinus", ""+(sysF-1)+sysW+sysR+"0"+"0");
					}
					else if (sysR>0) {
						calcResults(red6, red8-1, yellow6, blue6, "resultsMinus", ""+sysF+sysW+(sysR-1)+"0"+"0");
					}
					else {
						document.getElementById("resultsMinus").innerHTML="";
						document.getElementById("resultsMinusDice").innerHTML="";
					};
					calcResults(red6+1, red8, yellow6, blue6, "resultsPlus", ""+sysF+(sysW+1)+sysR+"0"+"0");
					break;
				case 2:
					calcResults(red6-1, red8, yellow6, blue6, "resultsMinus", ""+sysF+(sysW-1)+sysR+"0"+"0");
					calcResults(red6, red8+1, yellow6, blue6, "resultsPlus", ""+sysF+(sysW+2)+sysR+"0"+"0");
					break;
				case 3:
					calcResults(red6-1, red8, yellow6, blue6, "resultsMinus", ""+sysF+(sysW-1)+sysR+"0"+"0");
					calcResults(red6-1, red8+1, yellow6, blue6, "resultsPlus", ""+sysF+(sysW+1)+sysR+"0"+"0");
					break;
				case 4:
					calcResults(red6, red8-1, yellow6, blue6, "resultsMinus", ""+sysF+(sysW-2)+sysR+"0"+"0");
					if (sysF<2) {
						calcResults(red6+1, red8, yellow6, blue6, "resultsPlus", ""+(sysF+1)+sysW+sysR+"0"+"0");
					}
					else if (sysR<3 && combatType != "h") {
						calcResults(red6, red8+1, yellow6, blue6, "resultsPlus", ""+sysF+sysW+(sysR+1)+"0"+"0");
					}
					else {
						document.getElementById("resultsPlus").innerHTML="";
						document.getElementById("resultsPlusDice").innerHTML="";
					};
					break;
			};
			break;
		case "s":
			calcResults(red6, red8, yellow6, blue6, "results", "0"+"0"+"0"+yellow6+"0");
			if (yellow6==0) {
				document.getElementById("resultsMinus").innerHTML=""
				document.getElementById("resultsMinusDice").innerHTML="";
			}
			else {
				calcResults(red6, red8, yellow6-1, blue6, "resultsMinus", "0"+"0"+"0"+(yellow6-1)+"0");
			};
			if (yellow6==4) {
				document.getElementById("resultsPlus").innerHTML=""
				document.getElementById("resultsPlusDice").innerHTML="";
			}
			else {
				calcResults(red6, red8, yellow6+1, blue6, "resultsPlus", "0"+"0"+"0"+(yellow6+1)+"0");
			};
			break;
		case "d":
			calcResults(red6, red8, yellow6, blue6, "results", "0"+"0"+"0"+"0"+blue6);
			if (blue6==0) {
				document.getElementById("resultsMinus").innerHTML=""
				document.getElementById("resultsMinusDice").innerHTML="";
			}
			else {
				calcResults(red6, red8, yellow6, blue6-1, "resultsMinus", "0"+"0"+"0"+"0"+(blue6-1));
			};
			if (blue6==4) {
				document.getElementById("resultsPlus").innerHTML=""
				document.getElementById("resultsPlusDice").innerHTML="";
			}
			else {
				calcResults(red6, red8, yellow6, blue6+1, "resultsPlus", "0"+"0"+"0"+"0"+(blue6+1));
			};
			break;
	};
	document.getElementById("resultsMinus").innerHTML+=(document.getElementById("resultsMinus").innerHTML=="")?"":"<div align=center>(<b>"+((comparison>comparisonMinus)?"":"+")+(comparisonMinus-comparison).toFixed(2)+"</b> systems damaged)</div>";
	document.getElementById("resultsPlus").innerHTML+=(document.getElementById("resultsPlus").innerHTML=="")?"":"<div align=center>(<b>"+((comparisonPlus>comparison)?"+":"")+(comparisonPlus-comparison).toFixed(2)+"</b> systems damaged)</div>";
};

-->
</script>
</head>
<body onLoad="display()";>
<table>
<tr><td><a href="help.html" target=_blank>Help</a></td></tr>
</table>
<table align=center border=0>
<tr>
<td>
<table align=center>
<tr>
<td align=center colspan=3>Damage Resolution</td><td width=5></td><td align=center colspan=3>Comparison Attachment</td>
</tr>
<tr>
<td align=center onClick=setCombat("h");><img id=buttonHtH src=images/Rh6-g.png></td>
<td align=center onClick=setCombat("n");><img id=buttonNoCover src=images/Rd6.png></td>
<td align=center onClick=setCombat("c");><img id=buttonCover src=images/C-g.png></td>
<td></td>
<td onClick=setCompare("a");><img id=buttonA src=images/Rd6.png></td>
<td onClick=setCompare("s");><img id=buttonS src=images/Y6-g.png></td>
<td onClick=setCompare("d");><img id=buttonD src=images/B6-g.png></td>
</tr>
</table>
</td>
</tr>
<tr><td colspan=3><hr width=175></td></tr>
<tr>
<td colspan=4>
<table align=center>
<tr>
<td align=center bgcolor=#BBBBBB onClick=setSystems("f","+");>+</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("w","+");>+</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("r","+");>+</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("s","+");>+</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("d","+");>+</td>
</tr>
<tr>
<td><img src=images/W6-r.png></td>
<td><img id="buttonWeapon" src=images/Rd6.png></td>
<td><img id="buttonRocket" src=images/Rr8.png></td>
<td><img src=images/Y6.png></td>
<td><img src=images/B6.png></td>
</tr>
<tr>
<td align=center bgcolor=#BBBBBB onClick=setSystems("f","-");>-</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("w","-");>-</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("r","-");>-</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("s","-");>-</td>
<td align=center bgcolor=#BBBBBB onClick=setSystems("d","-");>-</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan=3>
<table align=center>
<tr>
<td id="diceline" valign=middle></td>
</tr>
</table>
</td>
</tr>
<tr><td colspan=4><hr width=175></td></tr>
</table>
<table align=center>
<tr>
<td><input type="checkbox" id=verboseCheck onClick="display()";>verbose</td>
</tr>
<tr><td height=5></td></tr>
</table>
<table align=center>
<tr>
<td id=resultsMinusDice align=center></td>
<td></td>
<td id=resultsDice align=center></td>
<td></td>
<td id=resultsPlusDice align=center></td>
</tr>
<tr>
<td valign=top width=370 id=resultsMinus bgcolor=#DDDDDD></td>
<td width=20></td>
<td valign=top width=370 id=results bgcolor=#DDDDDD></td>
<td width=20></td>
<td valign=top width=370 id=resultsPlus bgcolor=#DDDDDD></td>
</tr>
</table>
</body>
</html>