ViciDial/ViciDialSVN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added Dutch webform 3 buttons, Issue #1012

Browse Source 
More fixed for forecasting report

git-svn-id: svn://192.168.202.10@2748 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2017-05-05 16:32:42 +00:00
parent 55ef97b99e
commit 3f7a63abdc
4 changed files with 74 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files
agc_2-X/trunk/www/agc/images/vdc_LB_webform_three_OFF_nl.gif
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

agc_2-X/trunk/www/agc/images/vdc_LB_webform_three_nl.gif
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

agc_2-X/trunk/www/vicidial/AST_inbound_forecasting.php
+37 -37
View File
@@ -6,7 +6,7 @@
# CHANGES # CHANGES
# #
# 170428-1205 - First build # 170428-1205 - First build
# 170504-2115 - Minor bug fixes # 170504-2245 - Minor bug fixes
# #
$startMS = microtime(); $startMS = microtime();
@@ -39,7 +39,7 @@ require("functions.php");
for ($q=0; $q<100; $q++) { for ($q=0; $q<100; $q++) {
$E[($q+1)]=$erlangs+($retry_rate/100)*$E[$q]*$P[$q]; $E[($q+1)]=$erlangs+($retry_rate/100)*$E[$q]*$P[$q];
$P[($q+1)]=(pow($E[($q+1)], $lines)/(factorial($lines)))/(erlsum(0, $lines, $E[($q+1)])); $P[($q+1)]=MathZDC((pow($E[($q+1)], $lines)/(factorial($lines))), (erlsum(0, $lines, $E[($q+1)])));
} }
return $P[100]; return $P[100];
@@ -394,7 +394,7 @@ $NOW_TIME = date("Y-m-d H:i:s");
$STARTtime = date("U"); $STARTtime = date("U");
if (!isset($group)) {$group = array();} if (!isset($group)) {$group = array();}
if (!isset($drop_percent)) {$drop_percent = '3';} if (!isset($drop_percent)) {$drop_percent = '3';}
if (!isset($campaign)) {$campaign = '';} if (!isset($campaign)) {$campaign = array();}
if (!isset($query_date)) {$query_date = $NOW_DATE;} if (!isset($query_date)) {$query_date = $NOW_DATE;}
if (!isset($end_date)) {$end_date = $NOW_DATE;} if (!isset($end_date)) {$end_date = $NOW_DATE;}
@@ -726,8 +726,8 @@ else
} }
$uid_clause=""; $uid_clause="";
} }
$avg_dispo_sec=$dispo_secs/$wrapup_calls; $avg_dispo_sec=MathZDC($dispo_secs, $wrapup_calls);
$avg_talk_sec=$talk_secs/$wrapup_calls; $avg_talk_sec=MathZDC($talk_secs, $wrapup_calls);
##### #####
@@ -761,9 +761,9 @@ else
} }
} }
$hours_active=count($erlang_array); # Used for giving total erlangs for day, need to divide by number of hours reported, not one hour $hours_active=count($erlang_array); # Used for giving total erlangs for day, need to divide by number of hours reported, not one hour
$total_erlangs=($erlang_calls*$average_call_length/(3600*$hours_active)); $total_erlangs=MathZDC(($erlang_calls*$average_call_length),(3600*$hours_active));
$total_blocking=($drops_blocks/$erlang_calls); $total_blocking=MathZDC($drops_blocks, $erlang_calls);
$sale_percent=($sales/$erlang_calls); $sale_percent=MathZDC($sales, $erlang_calls);
$rpt_header ="+-----------------+-------+-------+------------+----------+-------------+----------+---------+"; $rpt_header ="+-----------------+-------+-------+------------+----------+-------------+----------+---------+";
if ($erlang_type=="B") {$rpt_header.="---------+";} if ($erlang_type=="B") {$rpt_header.="---------+";}
@@ -821,19 +821,19 @@ else
# ESTIMATED AGENTS # ESTIMATED AGENTS
$lines=1; $lines=1;
if ($total_blocking>0) { if ($total_blocking>0) {
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($GoS>$total_blocking) { if ($GoS>$total_blocking) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$total_blocking) { while ($GoS>$total_blocking) {
$lines++; $lines++;
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);} #"B" allows for retry rates, "C" does not. if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);} #"B" allows for retry rates, "C" does not.
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
$ASCII_text.="\n-->"; $ASCII_text.="\n-->";
} }
$Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-($total_erlangs/$lines))*erlsum(0, ($lines-1), $total_erlangs))); $Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-MathZDC($total_erlangs, $lines))*erlsum(0, ($lines-1), $total_erlangs)));
$ASA=($Pqueue*$average_call_length)/($lines-$total_erlangs); $ASA=MathZDC(($Pqueue*$average_call_length), ($lines-$total_erlangs));
} else { } else {
$lines="N/A"; $lines="N/A";
$Pqueue=0; $Pqueue=0;
@@ -878,12 +878,12 @@ else
##### RECOMMENDED AGENTS ##### RECOMMENDED AGENTS
$lines=1; $lines=1;
if ($erlang_type=="B") { if ($erlang_type=="B") {
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($GoS>$drop_rate) { if ($GoS>$drop_rate) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$drop_rate) { while ($GoS>$drop_rate) {
$lines++; $lines++;
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($retry_rate>0) {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);} if ($retry_rate>0) {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);}
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
@@ -891,12 +891,12 @@ else
} }
} }
if ($erlang_type=="C") { if ($erlang_type=="C") {
$Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-($total_erlangs/$lines))*erlsum(0, ($lines-1), $total_erlangs))); $Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-MathZDC($total_erlangs, $lines))*erlsum(0, ($lines-1), $total_erlangs)));
if ($Pqueue>$pqueue_target) { if ($Pqueue>$pqueue_target) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($Pqueue>$pqueue_target) { while ($Pqueue>$pqueue_target) {
$lines++; $lines++;
$Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-($total_erlangs/$lines))*erlsum(0, ($lines-1), $total_erlangs))); $Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-MathZDC($total_erlangs, $lines))*erlsum(0, ($lines-1), $total_erlangs)));
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
$ASCII_text.="\n-->"; $ASCII_text.="\n-->";
@@ -981,9 +981,9 @@ else
while(list($key, $val)=each($erlang_array)) { while(list($key, $val)=each($erlang_array)) {
if ($val[0]>$bht) {$bht=$val[0];} if ($val[0]>$bht) {$bht=$val[0];}
if ($q%2==0) {$tdclass="records_list_x";} else {$tdclass="records_list_y";} if ($q%2==0) {$tdclass="records_list_x";} else {$tdclass="records_list_y";}
$average_time=round($val[0]/$val[2]); $average_time=round(MathZDC($val[0], $val[2]));
$blocking=($val[3]/$val[2]); $blocking=MathZDC($val[3], $val[2]);
$erlangs=($val[2]*$average_time/3600); # Row is call per hour, therefore call length average must be in hours. $erlangs=$val[2]*MathZDC($average_time, 3600); # Row is call per hour, therefore call length average must be in hours.
$sales=$val[4]+0; $sales=$val[4]+0;
$ASCII_text.="| "; #.substr($key, 0, -2)." - ".substr($key, 5, 2)." ".substr($key, 8, 2)." ".substr($key, 0, 4); $ASCII_text.="| "; #.substr($key, 0, -2)." - ".substr($key, 5, 2)." ".substr($key, 8, 2)." ".substr($key, 0, 4);
@@ -1027,12 +1027,12 @@ else
##### RECOMMENDED AGENTS ##### RECOMMENDED AGENTS
$lines=1; $lines=1;
if ($erlang_type=="B") { if ($erlang_type=="B") {
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($GoS>$drop_rate) { if ($GoS>$drop_rate) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$drop_rate) { while ($GoS>$drop_rate) {
$lines++; $lines++;
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($retry_rate>0) {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);} if ($retry_rate>0) {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);}
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
@@ -1040,12 +1040,12 @@ else
} }
} }
if ($erlang_type=="C") { if ($erlang_type=="C") {
$Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-($erlangs/$lines))*erlsum(0, ($lines-1), $erlangs))); $Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-MathZDC($erlangs, $lines))*erlsum(0, ($lines-1), $erlangs)));
if ($Pqueue>$pqueue_target) { if ($Pqueue>$pqueue_target) {
$ASCII_text.="<!-- \n"; $ASCII_text.="<!-- \n";
while ($Pqueue>$pqueue_target) { while ($Pqueue>$pqueue_target) {
$lines++; $lines++;
$Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-($erlangs/$lines))*erlsum(0, ($lines-1), $erlangs))); $Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-MathZDC($erlangs, $lines))*erlsum(0, ($lines-1), $erlangs)));
$ASCII_text.=" $lines, $erlangs - $Pqueue \n"; $ASCII_text.=" $lines, $erlangs - $Pqueue \n";
} }
$ASCII_text.="\n-->"; $ASCII_text.="\n-->";
@@ -1056,20 +1056,20 @@ else
##### ESTIMATED AGENTS ##### ESTIMATED AGENTS
$lines=1; $lines=1;
if ($blocking>0) { if ($blocking>0) {
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($GoS>$blocking) { if ($GoS>$blocking) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$blocking) { while ($GoS>$blocking) {
$lines++; $lines++;
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);} # "B" allows for retry rates, "C" does not if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);} # "B" allows for retry rates, "C" does not
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
$ASCII_text.="\n-->"; $ASCII_text.="\n-->";
} }
$Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-($erlangs/$lines))*erlsum(0, ($lines-1), $erlangs))); $Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-MathZDC($erlangs, $lines))*erlsum(0, ($lines-1), $erlangs)));
$ASA=($Pqueue*$average_time)/($lines-$erlangs); $ASA=MathZDC(($Pqueue*$average_time), ($lines-$erlangs));
} else { } else {
$lines="$recommended_agents"; $lines="$recommended_agents";
$Pqueue=0; $Pqueue=0;
@@ -1114,11 +1114,11 @@ else
$ASCII_text.=sprintf("%10s", $lines); $ASCII_text.=sprintf("%10s", $lines);
$ASCII_text.=" | "; $ASCII_text.=" | ";
$ASCII_text.=sprintf("%-10.2f", ($val[2]/$lines)); $ASCII_text.=sprintf("%-10.2f", MathZDC($val[2], $lines));
# $ASCII_text.=" | "; # $ASCII_text.=" | ";
# $ASCII_text.=sprintf("%-8s", "\$".number_format(($revenue_per_sale*$sales/$val[2]),2,".",",")); # $ASCII_text.=sprintf("%-8s", "\$".number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",","));
# $ASCII_text.=" | "; # $ASCII_text.=" | ";
# $ASCII_text.=sprintf("%-9s", "\$".number_format(($revenue_per_sale*$sales/$lines),2,".",",")); # $ASCII_text.=sprintf("%-9s", "\$".number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",","));
# $ASCII_text.=" | "; # $ASCII_text.=" | ";
# $ASCII_text.=sprintf("%-10s", "\$".number_format(($revenue_per_sale*$sales),2,".",",")); # $ASCII_text.=sprintf("%-10s", "\$".number_format(($revenue_per_sale*$sales),2,".",","));
# $ASCII_text.=" | "; # $ASCII_text.=" | ";
@@ -1131,9 +1131,9 @@ else
$CSV_text.="\"$lines\","; $CSV_text.="\"$lines\",";
$CSV_text.="\"".sprintf("%.2f", ($val[2]/$lines))."\","; $CSV_text.="\"".sprintf("%.2f", MathZDC($val[2], $lines))."\",";
# $CSV_text.="\"$".number_format(($revenue_per_sale*$sales/$val[2]),2,".",",")."\","; # $CSV_text.="\"$".number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",",")."\",";
# $CSV_text.="\"$".number_format(($revenue_per_sale*$sales/$lines),2,".",",")."\","; # $CSV_text.="\"$".number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",",")."\",";
# $CSV_text.="\"$".number_format(($revenue_per_sale*$sales),2,".",",")."\","; # $CSV_text.="\"$".number_format(($revenue_per_sale*$sales),2,".",",")."\",";
# $CSV_text.="\"$".number_format(($lines*$hourly_pay),2,".",",")."\","; # $CSV_text.="\"$".number_format(($lines*$hourly_pay),2,".",",")."\",";
# $CSV_text.="\"$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."\"\n"; # $CSV_text.="\"$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."\"\n";
@@ -1141,8 +1141,8 @@ else
$graph_stats["$graph_key"][6]=$lines; $graph_stats["$graph_key"][6]=$lines;
$graph_stats["$graph_key"][8]=$drop_rate; $graph_stats["$graph_key"][8]=$drop_rate;
$graph_stats["$graph_key"][9]=$sales; $graph_stats["$graph_key"][9]=$sales;
$graph_stats["$graph_key"][10]=number_format(($revenue_per_sale*$sales/$val[2]),2,".",""); # Revenue per call $graph_stats["$graph_key"][10]=number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",""); # Revenue per call
$graph_stats["$graph_key"][11]=number_format(($revenue_per_sale*$sales/$lines),2,".",""); # Revenue per agent $graph_stats["$graph_key"][11]=number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",""); # Revenue per agent
$graph_stats["$graph_key"][12]=number_format(($revenue_per_sale*$sales),2,".",""); # Total revenue $graph_stats["$graph_key"][12]=number_format(($revenue_per_sale*$sales),2,".",""); # Total revenue
$graph_stats["$graph_key"][13]=number_format(($lines*$hourly_pay),2,".",""); # Cost $graph_stats["$graph_key"][13]=number_format(($lines*$hourly_pay),2,".",""); # Cost
$graph_stats["$graph_key"][14]=number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",","); $graph_stats["$graph_key"][14]=number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",");
@@ -1152,8 +1152,8 @@ else
$HTML_text2.="<td><font size=1>$lines</font></td>\n"; $HTML_text2.="<td><font size=1>$lines</font></td>\n";
$HTML_text2.="<td><font size=1>".sprintf("%.2f", ($val[2]/$lines))."</font></td>\n"; $HTML_text2.="<td><font size=1>".sprintf("%.2f", ($val[2]/$lines))."</font></td>\n";
# $HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales/$val[2]),2,".",",")."</font></td>\n"; # $HTML_text2.="<td><font size=1>\$".number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",",")."</font></td>\n";
# $HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales/$lines),2,".",",")."</font></td>\n"; # $HTML_text2.="<td><font size=1>\$".number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",",")."</font></td>\n";
# $HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales),2,".",",")."</font></td>\n"; # $HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales),2,".",",")."</font></td>\n";
# $HTML_text2.="<td><font size=1>\$".number_format(($lines*$hourly_pay),2,".",",")."</font></td>\n"; # $HTML_text2.="<td><font size=1>\$".number_format(($lines*$hourly_pay),2,".",",")."</font></td>\n";
# $HTML_text2.="<td><font size=1>\$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."</font></td>\n"; # $HTML_text2.="<td><font size=1>\$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."</font></td>\n";
agc_2-X/trunk/www/vicidial/Erlang_report.php
+37 -37
View File
@@ -6,7 +6,7 @@
# CHANGES # CHANGES
# #
# 170428-1205 - First build # 170428-1205 - First build
# 170504-2115 - Minor bug fixes # 170504-2245 - Minor bug fixes
# #
$startMS = microtime(); $startMS = microtime();
@@ -39,7 +39,7 @@ require("functions.php");
for ($q=0; $q<100; $q++) { for ($q=0; $q<100; $q++) {
$E[($q+1)]=$erlangs+($retry_rate/100)*$E[$q]*$P[$q]; $E[($q+1)]=$erlangs+($retry_rate/100)*$E[$q]*$P[$q];
$P[($q+1)]=(pow($E[($q+1)], $lines)/(factorial($lines)))/(erlsum(0, $lines, $E[($q+1)])); $P[($q+1)]=MathZDC((pow($E[($q+1)], $lines)/(factorial($lines))), (erlsum(0, $lines, $E[($q+1)])));
} }
return $P[100]; return $P[100];
@@ -392,7 +392,7 @@ $NOW_TIME = date("Y-m-d H:i:s");
$STARTtime = date("U"); $STARTtime = date("U");
if (!isset($group)) {$group = array();} if (!isset($group)) {$group = array();}
if (!isset($drop_percent)) {$drop_percent = '3';} if (!isset($drop_percent)) {$drop_percent = '3';}
if (!isset($campaign)) {$campaign = '';} if (!isset($campaign)) {$campaign = array();}
if (!isset($query_date)) {$query_date = $NOW_DATE;} if (!isset($query_date)) {$query_date = $NOW_DATE;}
if (!isset($end_date)) {$end_date = $NOW_DATE;} if (!isset($end_date)) {$end_date = $NOW_DATE;}
@@ -719,8 +719,8 @@ else
} }
$uid_clause=""; $uid_clause="";
} }
$avg_dispo_sec=$dispo_secs/$wrapup_calls; $avg_dispo_sec=MathZDC($dispo_secs, $wrapup_calls);
$avg_talk_sec=$talk_secs/$wrapup_calls; $avg_talk_sec=MathZDC($talk_secs, $wrapup_calls);
##### #####
@@ -754,9 +754,9 @@ else
} }
} }
$hours_active=count($erlang_array); # Used for giving total erlangs for day, need to divide by number of hours reported, not one hour $hours_active=count($erlang_array); # Used for giving total erlangs for day, need to divide by number of hours reported, not one hour
$total_erlangs=($erlang_calls*$average_call_length/(3600*$hours_active)); $total_erlangs=MathZDC(($erlang_calls*$average_call_length),(3600*$hours_active));
$total_blocking=($drops_blocks/$erlang_calls); $total_blocking=MathZDC($drops_blocks, $erlang_calls);
$sale_percent=($sales/$erlang_calls); $sale_percent=MathZDC($sales, $erlang_calls);
$rpt_header ="+-----------------+-------+-------+------------+----------+-------------+----------+---------+"; $rpt_header ="+-----------------+-------+-------+------------+----------+-------------+----------+---------+";
if ($erlang_type=="B") {$rpt_header.="---------+";} if ($erlang_type=="B") {$rpt_header.="---------+";}
@@ -827,12 +827,12 @@ else
# ESTIMATED AGENTS # ESTIMATED AGENTS
$lines=1; $lines=1;
if ($total_blocking>0) { if ($total_blocking>0) {
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($GoS>$total_blocking) { if ($GoS>$total_blocking) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$total_blocking) { while ($GoS>$total_blocking) {
$lines++; $lines++;
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);} #"B" allows for retry rates, "C" does not. if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);} #"B" allows for retry rates, "C" does not.
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
# if ($lines%2==0) {echo "1-$lines) adjustedGoS($total_erlangs, $GoS, $retry_rate);<BR>\n";} # if ($lines%2==0) {echo "1-$lines) adjustedGoS($total_erlangs, $GoS, $retry_rate);<BR>\n";}
@@ -841,8 +841,8 @@ else
$ASCII_text.="\n-->"; $ASCII_text.="\n-->";
# if ($retry_rate>0) {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);} # if ($retry_rate>0) {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);}
} }
$Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-($total_erlangs/$lines))*erlsum(0, ($lines-1), $total_erlangs))); $Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-MathZDC($total_erlangs, $lines))*erlsum(0, ($lines-1), $total_erlangs)));
$ASA=($Pqueue*$average_call_length)/($lines-$total_erlangs); $ASA=MathZDC(($Pqueue*$average_call_length), ($lines-$total_erlangs));
} else { } else {
$lines="N/A"; $lines="N/A";
$Pqueue=0; $Pqueue=0;
@@ -885,12 +885,12 @@ else
##### RECOMMENDED AGENTS ##### RECOMMENDED AGENTS
$lines=1; $lines=1;
if ($erlang_type=="B") { if ($erlang_type=="B") {
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($GoS>$drop_rate) { if ($GoS>$drop_rate) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$drop_rate) { while ($GoS>$drop_rate) {
$lines++; $lines++;
$GoS=(pow($total_erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $total_erlangs)); $GoS=MathZDC((pow($total_erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $total_erlangs)));
if ($retry_rate>0) {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);} if ($retry_rate>0) {$GoS=adjustedGoS($total_erlangs, $GoS, $retry_rate, $lines);}
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
@@ -898,12 +898,12 @@ else
} }
} }
if ($erlang_type=="C") { if ($erlang_type=="C") {
$Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-($total_erlangs/$lines))*erlsum(0, ($lines-1), $total_erlangs))); $Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-MathZDC($total_erlangs, $lines))*erlsum(0, ($lines-1), $total_erlangs)));
if ($Pqueue>$pqueue_target) { if ($Pqueue>$pqueue_target) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($Pqueue>$pqueue_target) { while ($Pqueue>$pqueue_target) {
$lines++; $lines++;
$Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-($total_erlangs/$lines))*erlsum(0, ($lines-1), $total_erlangs))); $Pqueue=(pow($total_erlangs, $lines)/(factorial($lines)))/((pow($total_erlangs, $lines)/(factorial($lines)))+((1-MathZDC($total_erlangs, $lines))*erlsum(0, ($lines-1), $total_erlangs)));
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
$ASCII_text.="\n-->"; $ASCII_text.="\n-->";
@@ -971,9 +971,9 @@ else
while(list($key, $val)=each($erlang_array)) { while(list($key, $val)=each($erlang_array)) {
if ($val[0]>$bht) {$bht=$val[0];} if ($val[0]>$bht) {$bht=$val[0];}
if ($q%2==0) {$tdclass="records_list_x";} else {$tdclass="records_list_y";} if ($q%2==0) {$tdclass="records_list_x";} else {$tdclass="records_list_y";}
$average_time=round($val[0]/$val[2]); $average_time=round(MathZDC($val[0], $val[2]));
$blocking=($val[3]/$val[2]); $blocking=MathZDC($val[3], $val[2]);
$erlangs=($val[2]*$average_time/3600); # Row is call per hour, therefore call length average must be in hours. $erlangs=$val[2]*MathZDC($average_time, 3600); # Row is call per hour, therefore call length average must be in hours.
$sales=$val[4]+0; $sales=$val[4]+0;
$ASCII_text.="| "; #.substr($key, 0, -2)." - ".substr($key, 5, 2)." ".substr($key, 8, 2)." ".substr($key, 0, 4); $ASCII_text.="| "; #.substr($key, 0, -2)." - ".substr($key, 5, 2)." ".substr($key, 8, 2)." ".substr($key, 0, 4);
@@ -1017,12 +1017,12 @@ else
##### RECOMMENDED AGENTS ##### RECOMMENDED AGENTS
$lines=1; $lines=1;
if ($erlang_type=="B") { if ($erlang_type=="B") {
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($GoS>$drop_rate) { if ($GoS>$drop_rate) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$drop_rate) { while ($GoS>$drop_rate) {
$lines++; $lines++;
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($retry_rate>0) {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);} if ($retry_rate>0) {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);}
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
@@ -1031,12 +1031,12 @@ else
} }
} }
if ($erlang_type=="C") { if ($erlang_type=="C") {
$Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-($erlangs/$lines))*erlsum(0, ($lines-1), $erlangs))); $Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-MathZDC($erlangs, $lines))*erlsum(0, ($lines-1), $erlangs)));
if ($Pqueue>$pqueue_target) { if ($Pqueue>$pqueue_target) {
$ASCII_text.="<!-- \n"; $ASCII_text.="<!-- \n";
while ($Pqueue>$pqueue_target) { while ($Pqueue>$pqueue_target) {
$lines++; $lines++;
$Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-($erlangs/$lines))*erlsum(0, ($lines-1), $erlangs))); $Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-MathZDC($erlangs, $lines))*erlsum(0, ($lines-1), $erlangs)));
$ASCII_text.=" $lines, $erlangs - $Pqueue \n"; $ASCII_text.=" $lines, $erlangs - $Pqueue \n";
} }
$ASCII_text.="\n-->"; $ASCII_text.="\n-->";
@@ -1047,12 +1047,12 @@ else
##### ESTIMATED AGENTS ##### ESTIMATED AGENTS
$lines=1; $lines=1;
if ($blocking>0) { if ($blocking>0) {
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($GoS>$blocking) { if ($GoS>$blocking) {
$ASCII_text.="<!-- $lines \n"; $ASCII_text.="<!-- $lines \n";
while ($GoS>$blocking) { while ($GoS>$blocking) {
$lines++; $lines++;
$GoS=(pow($erlangs, $lines)/(factorial($lines)))/(erlsum(0, $lines, $erlangs)); $GoS=MathZDC((pow($erlangs, $lines)/(factorial($lines))), (erlsum(0, $lines, $erlangs)));
if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);} # "B" allows for retry rates, "C" does not if ($retry_rate>0 && $erlang_type=="B") {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);} # "B" allows for retry rates, "C" does not
$ASCII_text.=" $GoS \n"; $ASCII_text.=" $GoS \n";
} }
@@ -1060,8 +1060,8 @@ else
# if ($retry_rate>0) {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);} # if ($retry_rate>0) {$GoS=adjustedGoS($erlangs, $GoS, $retry_rate, $lines);}
} }
$Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-($erlangs/$lines))*erlsum(0, ($lines-1), $erlangs))); $Pqueue=(pow($erlangs, $lines)/(factorial($lines)))/((pow($erlangs, $lines)/(factorial($lines)))+((1-MathZDC($erlangs, $lines))*erlsum(0, ($lines-1), $erlangs)));
$ASA=($Pqueue*$average_time)/($lines-$erlangs); $ASA=MathZDC(($Pqueue*$average_time), ($lines-$erlangs));
} else { } else {
$lines="$recommended_agents"; $lines="$recommended_agents";
$Pqueue=0; $Pqueue=0;
@@ -1106,11 +1106,11 @@ else
$ASCII_text.=sprintf("%10s", $lines); $ASCII_text.=sprintf("%10s", $lines);
$ASCII_text.=" | "; $ASCII_text.=" | ";
$ASCII_text.=sprintf("%-10.2f", ($val[2]/$lines)); $ASCII_text.=sprintf("%-10.2f", MathZDC($val[2], $lines));
$ASCII_text.=" | "; $ASCII_text.=" | ";
$ASCII_text.=sprintf("%-8s", "\$".number_format(($revenue_per_sale*$sales/$val[2]),2,".",",")); $ASCII_text.=sprintf("%-8s", "\$".number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",","));
$ASCII_text.=" | "; $ASCII_text.=" | ";
$ASCII_text.=sprintf("%-9s", "\$".number_format(($revenue_per_sale*$sales/$lines),2,".",",")); $ASCII_text.=sprintf("%-9s", "\$".number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",","));
$ASCII_text.=" | "; $ASCII_text.=" | ";
$ASCII_text.=sprintf("%-10s", "\$".number_format(($revenue_per_sale*$sales),2,".",",")); $ASCII_text.=sprintf("%-10s", "\$".number_format(($revenue_per_sale*$sales),2,".",","));
$ASCII_text.=" | "; $ASCII_text.=" | ";
@@ -1125,9 +1125,9 @@ else
$CSV_text.="\"$lines\","; $CSV_text.="\"$lines\",";
$CSV_text.="\"".sprintf("%.2f", ($val[2]/$lines))."\","; $CSV_text.="\"".sprintf("%.2f", MathZDC($val[2], $lines))."\",";
$CSV_text.="\"$".number_format(($revenue_per_sale*$sales/$val[2]),2,".",",")."\","; $CSV_text.="\"$".number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",",")."\",";
$CSV_text.="\"$".number_format(($revenue_per_sale*$sales/$lines),2,".",",")."\","; $CSV_text.="\"$".number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",",")."\",";
$CSV_text.="\"$".number_format(($revenue_per_sale*$sales),2,".",",")."\","; $CSV_text.="\"$".number_format(($revenue_per_sale*$sales),2,".",",")."\",";
$CSV_text.="\"$".number_format(($lines*$hourly_pay),2,".",",")."\","; $CSV_text.="\"$".number_format(($lines*$hourly_pay),2,".",",")."\",";
$CSV_text.="\"$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."\"\n"; $CSV_text.="\"$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."\"\n";
@@ -1136,8 +1136,8 @@ else
$graph_stats["$graph_key"][6]=$lines; $graph_stats["$graph_key"][6]=$lines;
$graph_stats["$graph_key"][8]=$drop_rate; $graph_stats["$graph_key"][8]=$drop_rate;
$graph_stats["$graph_key"][9]=$sales; $graph_stats["$graph_key"][9]=$sales;
$graph_stats["$graph_key"][10]=number_format(($revenue_per_sale*$sales/$val[2]),2,".",""); # Revenue per call $graph_stats["$graph_key"][10]=number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",""); # Revenue per call
$graph_stats["$graph_key"][11]=number_format(($revenue_per_sale*$sales/$lines),2,".",""); # Revenue per agent $graph_stats["$graph_key"][11]=number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",""); # Revenue per agent
$graph_stats["$graph_key"][12]=number_format(($revenue_per_sale*$sales),2,".",""); # Total revenue $graph_stats["$graph_key"][12]=number_format(($revenue_per_sale*$sales),2,".",""); # Total revenue
$graph_stats["$graph_key"][13]=number_format(($lines*$hourly_pay),2,".",""); # Cost $graph_stats["$graph_key"][13]=number_format(($lines*$hourly_pay),2,".",""); # Cost
$graph_stats["$graph_key"][14]=number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",","); $graph_stats["$graph_key"][14]=number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",");
@@ -1148,8 +1148,8 @@ else
$HTML_text2.="<td><font size=1>$lines</font></td>\n"; $HTML_text2.="<td><font size=1>$lines</font></td>\n";
$HTML_text2.="<td><font size=1>".sprintf("%.2f", ($val[2]/$lines))."</font></td>\n"; $HTML_text2.="<td><font size=1>".sprintf("%.2f", ($val[2]/$lines))."</font></td>\n";
$HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales/$val[2]),2,".",",")."</font></td>\n"; $HTML_text2.="<td><font size=1>\$".number_format(MathZDC(($revenue_per_sale*$sales), $val[2]),2,".",",")."</font></td>\n";
$HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales/$lines),2,".",",")."</font></td>\n"; $HTML_text2.="<td><font size=1>\$".number_format(MathZDC(($revenue_per_sale*$sales), $lines),2,".",",")."</font></td>\n";
$HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales),2,".",",")."</font></td>\n"; $HTML_text2.="<td><font size=1>\$".number_format(($revenue_per_sale*$sales),2,".",",")."</font></td>\n";
$HTML_text2.="<td><font size=1>\$".number_format(($lines*$hourly_pay),2,".",",")."</font></td>\n"; $HTML_text2.="<td><font size=1>\$".number_format(($lines*$hourly_pay),2,".",",")."</font></td>\n";
$HTML_text2.="<td><font size=1>\$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."</font></td>\n"; $HTML_text2.="<td><font size=1>\$".number_format((($revenue_per_sale*$sales)-($lines*$hourly_pay)),2,".",",")."</font></td>\n";