Dolibarr / dolibarr

htdocs/contact/list.php

Spacing +7 added lines, -7 removed lines

@@ -500,7 +500,7 @@ 
 
 // Add fields from hooks - ListFrom
 $parameters = array();
-$reshook = $hookmanager->executeHooks('printFieldListFrom', $parameters, $object, $action);    // Note that $action and $object may have been modified by hook
+$reshook = $hookmanager->executeHooks('printFieldListFrom', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
 $sql .= $hookmanager->resPrint;
 $sql .= ' WHERE p.entity IN ('.getEntity('contact').')';
 if (empty($user->rights->societe->client->voir) && !$socid) { //restriction
@@ -543,7 +543,7 @@ 
 			if ($searchCategoryContactOperator == 0) {
 				$searchCategoryContactSqlList[] = " EXISTS (SELECT ck.fk_socpeople FROM ".MAIN_DB_PREFIX."categorie_contact as ck WHERE p.rowid = ck.fk_socpeople AND ck.fk_categorie = ".((int) $searchCategoryContact).")";
 			} else {
-				$listofcategoryid .= ($listofcategoryid ? ', ' : '') .((int) $searchCategoryContact);
+				$listofcategoryid .= ($listofcategoryid ? ', ' : '').((int) $searchCategoryContact);
 			}
 		}
 	}
@@ -575,7 +575,7 @@ 
 			if ($searchCategoryCustomerOperator == 0) {
 				$searchCategoryCustomerSqlList[] = " EXISTS (SELECT ck.fk_soc FROM ".MAIN_DB_PREFIX."categorie_societe as ck WHERE s.rowid = ck.fk_soc AND ck.fk_categorie = ".((int) $searchCategoryCustomer).")";
 			} else {
-				$listofcategoryid .= ($listofcategoryid ? ', ' : '') .((int) $searchCategoryCustomer);
+				$listofcategoryid .= ($listofcategoryid ? ', ' : '').((int) $searchCategoryCustomer);
 			}
 		}
 	}
@@ -607,7 +607,7 @@ 
 			if ($searchCategorySupplierOperator == 0) {
 				$searchCategorySupplierSqlList[] = " EXISTS (SELECT ck.fk_soc FROM ".MAIN_DB_PREFIX."categorie_fournisseur as ck WHERE s.rowid = ck.fk_soc AND ck.fk_categorie = ".((int) $searchCategorySupplier).")";
 			} else {
-				$listofcategoryid .= ($listofcategoryid ? ', ' : '') .((int) $searchCategorySupplier);
+				$listofcategoryid .= ($listofcategoryid ? ', ' : '').((int) $searchCategorySupplier);
 			}
 		}
 	}
@@ -897,7 +897,7 @@ 
 if (count($search_roles) > 0) {
 	$param .= implode('&search_roles[]=', $search_roles);
 }
-if ($search_birthday_start)	{
+if ($search_birthday_start) {
 	$param .= '&search_birthday_start='.urlencode(dol_print_date($search_birthday_start, '%d')).'&search_birthday_startmonth='.urlencode(dol_print_date($search_birthday_start, '%m')).'&search_birthday_startyear='.urlencode(dol_print_date($search_birthday_start, '%Y'));
 }
 if ($search_birthday_end) {
@@ -918,7 +918,7 @@ 
 if (isModEnabled('category') && $user->hasRight('societe', 'creer')) {
 	$arrayofmassactions['preaffecttag'] = img_picto('', 'category', 'class="pictofixedwidth"').$langs->trans("AffectTag");
 }
-if (GETPOST('nomassaction', 'int') || in_array($massaction, array('presend', 'predelete','preaffecttag'))) {
+if (GETPOST('nomassaction', 'int') || in_array($massaction, array('presend', 'predelete', 'preaffecttag'))) {
 	$arrayofmassactions = array();
 }
 if ($contextpage != 'poslist') $massactionbutton = $form->selectMassAction('', $arrayofmassactions);
@@ -946,7 +946,7 @@ 
 if ($contextpage != 'poslist') {
 	$newcardbutton .= dolGetButtonTitle($langs->trans('NewContactAddress'), '', 'fa fa-plus-circle', DOL_URL_ROOT.'/contact/card.php?action=create', '', $permissiontoadd);
 } elseif ($user->hasRight('societe', 'contact', 'creer')) {
-	$url = DOL_URL_ROOT . '/contact/card.php?action=create&type=t&contextpage=poslist&optioncss=print&backtopage=' . urlencode($_SERVER["PHP_SELF"] . '?token=' . newToken() . 'type=t&contextpage=poslist&nomassaction=1&optioncss=print&place='.$place);
+	$url = DOL_URL_ROOT.'/contact/card.php?action=create&type=t&contextpage=poslist&optioncss=print&backtopage='.urlencode($_SERVER["PHP_SELF"].'?token='.newToken().'type=t&contextpage=poslist&nomassaction=1&optioncss=print&place='.$place);
 	$label = 'MenuNewCustomer';
 	$newcardbutton .= dolGetButtonTitle($langs->trans($label), '', 'fa fa-plus-circle', $url);
 }

Braces +6 added lines, -2 removed lines

@@ -277,7 +277,9 @@ 
 $permissiontodelete = $user->hasRight('societe', 'supprimer');
 $permissiontoadd = $user->hasRight('societe', 'creer');
 
-if (!$permissiontoread) accessforbidden();
+if (!$permissiontoread) {
+	accessforbidden();
+}
 
 
 /*
@@ -921,7 +923,9 @@ 
 if (GETPOST('nomassaction', 'int') || in_array($massaction, array('presend', 'predelete','preaffecttag'))) {
 	$arrayofmassactions = array();
 }
-if ($contextpage != 'poslist') $massactionbutton = $form->selectMassAction('', $arrayofmassactions);
+if ($contextpage != 'poslist') {
+	$massactionbutton = $form->selectMassAction('', $arrayofmassactions);
+}
 
 print '<form method="POST" id="searchFormList" action="'.$_SERVER["PHP_SELF"].'" name="formfilter">';
 if ($optioncss != '') {

htdocs/core/lib/modulebuilder.lib.php

Spacing +51 added lines, -51 removed lines

@@ -270,22 +270,22 @@ 
 	// Edit .sql file
 	if ($moduletype == 'internal') {
 		$pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql';
-		if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
+		if (!dol_is_file($readdir.$pathoffiletoeditsrc)) {
 			$pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'_'.strtolower($objectname).'-'.strtolower($module).'.sql';
-			if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
+			if (!dol_is_file($readdir.$pathoffiletoeditsrc)) {
 				$pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'-'.strtolower($module).'.sql';
-				if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
+				if (!dol_is_file($readdir.$pathoffiletoeditsrc)) {
 					$pathoffiletoeditsrc = '/../install/mysql/tables/llx_'.strtolower($module).'.sql';
 				}
 			}
 		}
 	} else {
 		$pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'.sql';
-		if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
+		if (!dol_is_file($readdir.$pathoffiletoeditsrc)) {
 			$pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'_'.strtolower($objectname).'-'.strtolower($module).'.sql';
-			if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
+			if (!dol_is_file($readdir.$pathoffiletoeditsrc)) {
 				$pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'-'.strtolower($module).'.sql';
-				if (! dol_is_file($readdir.$pathoffiletoeditsrc)) {
+				if (!dol_is_file($readdir.$pathoffiletoeditsrc)) {
 					$pathoffiletoeditsrc = '/sql/llx_'.strtolower($module).'.sql';
 				}
 			}
@@ -442,7 +442,7 @@ 
 			$objects[$fileobj['fullname']] = $objectnameloop;
 		}
 	}
-	if (count($objects)>0) {
+	if (count($objects) > 0) {
 		return $objects;
 	}
 
@@ -552,12 +552,12 @@ 
 			}
 		}
 	} elseif ($action == -2 && !empty($objectname) && !empty($module)) {
-		$key= null;
+		$key = null;
 		$right = null;
 		$objectOfRights = array();
 		//check if object already declared in rights file
 		foreach ($permissions as $right) {
-			$objectOfRights[]= $right[4];
+			$objectOfRights[] = $right[4];
 		}
 		if (in_array(strtolower($objectname), $objectOfRights)) {
 			$error++;
@@ -584,7 +584,7 @@ 
 	if (!$error) {
 		// prepare permissions array
 		$count_perms = count($permissions);
-		for ($i = 0;$i<$count_perms;$i++) {
+		for ($i = 0; $i < $count_perms; $i++) {
 			$permissions[$i][0] = "\$this->rights[\$r][0] = \$this->numero . sprintf('%02d', \$r + 1)";
 			$permissions[$i][1] = "\$this->rights[\$r][1] = '".$permissions[$i][1]."'";
 			$permissions[$i][4] = "\$this->rights[\$r][4] = '".$permissions[$i][4]."'";
@@ -604,7 +604,7 @@ 
 
 
 		// parcourir les objets
-		$o=0;
+		$o = 0;
 		foreach ($permissions as &$object) {
 			// récupérer la permission de l'objet
 			$p = 1;
@@ -699,7 +699,7 @@ 
 {
 
 	// stock all properties in array
-	$attributesUnique = array ('type','label', 'enabled', 'position', 'notnull', 'visible', 'noteditable', 'index', 'default' , 'foreignkey', 'arrayofkeyval', 'alwayseditable','validate', 'searchall','comment', 'isameasure', 'css', 'cssview','csslist', 'help', 'showoncombobox','picto' );
+	$attributesUnique = array('type', 'label', 'enabled', 'position', 'notnull', 'visible', 'noteditable', 'index', 'default', 'foreignkey', 'arrayofkeyval', 'alwayseditable', 'validate', 'searchall', 'comment', 'isameasure', 'css', 'cssview', 'csslist', 'help', 'showoncombobox', 'picto');
 
 	$start = "public \$fields=array(";
 	$end = ");";
@@ -729,7 +729,7 @@ 
 	foreach ($attributesUnique as $attUnique) {
 		$table .= "|".$attUnique;
 	}
-	$table .="\n";
+	$table .= "\n";
 	$valuesModif = array();
 	foreach ($keys as $string) {
 		$string = trim($string, "'");
@@ -769,8 +769,8 @@ 
 				$valuesModif[$attUnique] = $values[$attUnique];
 			}
 		}
-		$table .= "|*" . $field[0] . "*|";
-		$table .= implode("|", $valuesModif) . "\n";
+		$table .= "|*".$field[0]."*|";
+		$table .= implode("|", $valuesModif)."\n";
 	}
 
 	// end table
@@ -779,7 +779,7 @@ 
 
 	//write in file
 	$writeInFile = dolReplaceInFile($destfile, array('== DATA SPECIFICATIONS' => $table));
-	if ($writeInFile<0) {
+	if ($writeInFile < 0) {
 		return -1;
 	}
 	return 1;
@@ -801,13 +801,13 @@ 
 
 		$str = file_get_contents($file);
 
-		$search = '/' . preg_quote($start, '/') . '(.*?)' . preg_quote($end, '/') . '/s';
+		$search = '/'.preg_quote($start, '/').'(.*?)'.preg_quote($end, '/').'/s';
 		$new_contents = preg_replace($search, '', $str);
 		file_put_contents($file, $new_contents);
 
 		//perms If Exist
 		$perms = "|*".strtolower($objectname)."*|";
-		$search_pattern_perms = '/' . preg_quote($perms, '/') . '.*?\n/';
+		$search_pattern_perms = '/'.preg_quote($perms, '/').'.*?\n/';
 		$new_contents = preg_replace($search_pattern_perms, '', $new_contents);
 		file_put_contents($file, $new_contents);
 	}
@@ -864,7 +864,7 @@ 
 	$string = "[options='header',grid=rows,width=60%,caption=Organisation]\n";
 	$string .= "|===\n";
 	// header for table
-	$header = array($langs->trans('Objects'),$langs->trans('Permission'));
+	$header = array($langs->trans('Objects'), $langs->trans('Permission'));
 	foreach ($header as $h) {
 		$string .= "|".$h;
 	}
@@ -891,7 +891,7 @@ 
 	foreach ($permissions as $key => $element) {
 		$element = str_replace(" '", '', $element);
 		$element = trim($element, "'");
-		$permsN[] = substr($element, strpos($element, "=")+1);
+		$permsN[] = substr($element, strpos($element, "=") + 1);
 	}
 	array_pop($permsN);
 
@@ -921,7 +921,7 @@ 
 	// end table
 	$string .= "\n|===\n";
 	$write = dolReplaceInFile($destfile, array('__DATA_PERMISSIONS__'=> $string));
-	if ($write<0) {
+	if ($write < 0) {
 		return -1;
 	}
 	return 1;
@@ -950,26 +950,26 @@ 
 		if (strpos($lineContent, $varcomented) !== false) {
 			$lineContent = '';
 			foreach ($objects as $object) {
-				$lineContent .= "\t * @var ".$object." \$".strtolower($object)." {@type ".$object."}". PHP_EOL;
+				$lineContent .= "\t * @var ".$object." \$".strtolower($object)." {@type ".$object."}".PHP_EOL;
 			}
 			//var_dump($lineContent);exit;
 		}
 		if (strpos($lineContent, $props) !== false) {
 			$lineContent = '';
 			foreach ($objects as $object) {
-				$lineContent .= "\tpublic \$".strtolower($object).";". PHP_EOL;
+				$lineContent .= "\tpublic \$".strtolower($object).";".PHP_EOL;
 			}
 		}
 		if (strpos($lineContent, $constructObj) !== false) {
 			$lineContent = '';
 			foreach ($objects as $object) {
-				$lineContent .= "\t\t\$this->".strtolower($object)." = new ".$object."(\$this->db);". PHP_EOL;
+				$lineContent .= "\t\t\$this->".strtolower($object)." = new ".$object."(\$this->db);".PHP_EOL;
 			}
 		}
 		if (strpos($lineContent, $includeClass) !== false) {
 			$lineContent = '';
 			foreach ($objects as $object) {
-				$lineContent .= "dol_include_once('/".strtolower($modulename)."/class/".strtolower($object).".class.php');". PHP_EOL;
+				$lineContent .= "dol_include_once('/".strtolower($modulename)."/class/".strtolower($object).".class.php');".PHP_EOL;
 			}
 		}
 	}
@@ -979,10 +979,10 @@ 
 	//add methods for each object
 	$allContent = getFromFile($file, '/*begin methods CRUD*/', '/*end methods CRUD*/');
 	foreach ($objects as $object) {
-		$contentReplaced =str_replace(["myobject","MyObject"], [strtolower($object),$object], $allContent);
+		$contentReplaced = str_replace(["myobject", "MyObject"], [strtolower($object), $object], $allContent);
 		dolReplaceInFile($file, array('/*end methods CRUD*/' => '/*CRUD FOR '.strtoupper($object).'*/'."\n".$contentReplaced."\n\t".'/*END CRUD FOR '.strtoupper($object).'*/'."\n\t".'/*end methods CRUD*/'));
 	}
-	dolReplaceInFile($file, array($allContent => '','MyModule' => ucfirst($modulename)));
+	dolReplaceInFile($file, array($allContent => '', 'MyModule' => ucfirst($modulename)));
 	return 1;
 }
 
@@ -1043,7 +1043,7 @@ 
  */
 function reWriteAllMenus($file, $menus, $menuWantTo, $key, $action)
 {
-	$errors =0;
+	$errors = 0;
 	$counter = 0;
 	if (!file_exists($file)) {
 		return -1;
@@ -1056,7 +1056,7 @@ 
 		array_push($menus, $menuWantTo);
 	} elseif ($action == 2 && !empty($key) && !empty($menuWantTo)) {
 		// update right from permissions array
-		$urlCounter=0;
+		$urlCounter = 0;
 		// check if the values already exists
 		foreach ($menus as $index => $menu) {
 			if ($index !== $key) {
@@ -1104,20 +1104,20 @@ 
 				$next_val = empty($menus[$index + 1]) ? null : $menus[$index + 1];
 
 				$str_menu .= $start."\n";
-				$str_menu.= "\t\t\$this->menu[\$r++]=array(\n";
-				$str_menu.= "\t\t\t 'fk_menu' =>'".$menu['fk_menu']."',\n";
-				$str_menu.= "\t\t\t 'type' =>'".$menu['type']."',\n";
-				$str_menu.= "\t\t\t 'titre' =>'".$menu['titre']."',\n";
-				$str_menu.= "\t\t\t 'mainmenu' =>'".$menu['mainmenu']."',\n";
-				$str_menu.= "\t\t\t 'leftmenu' =>'".$menu['leftmenu']."',\n";
-				$str_menu.= "\t\t\t 'url' =>'".$menu['url']."',\n";
-				$str_menu.= "\t\t\t 'langs' =>'".$menu['langs']."',\n";
-				$str_menu.= "\t\t\t 'position' =>".$menu['position'].",\n";
-				$str_menu.= "\t\t\t 'enabled' =>'".$menu['enabled']."',\n";
-				$str_menu.= "\t\t\t 'perms' =>'".$menu['perms']."',\n";
-				$str_menu.= "\t\t\t 'target' =>'".$menu['target']."',\n";
-				$str_menu.= "\t\t\t 'user' =>".$menu['user'].",\n";
-				$str_menu.= "\t\t);\n";
+				$str_menu .= "\t\t\$this->menu[\$r++]=array(\n";
+				$str_menu .= "\t\t\t 'fk_menu' =>'".$menu['fk_menu']."',\n";
+				$str_menu .= "\t\t\t 'type' =>'".$menu['type']."',\n";
+				$str_menu .= "\t\t\t 'titre' =>'".$menu['titre']."',\n";
+				$str_menu .= "\t\t\t 'mainmenu' =>'".$menu['mainmenu']."',\n";
+				$str_menu .= "\t\t\t 'leftmenu' =>'".$menu['leftmenu']."',\n";
+				$str_menu .= "\t\t\t 'url' =>'".$menu['url']."',\n";
+				$str_menu .= "\t\t\t 'langs' =>'".$menu['langs']."',\n";
+				$str_menu .= "\t\t\t 'position' =>".$menu['position'].",\n";
+				$str_menu .= "\t\t\t 'enabled' =>'".$menu['enabled']."',\n";
+				$str_menu .= "\t\t\t 'perms' =>'".$menu['perms']."',\n";
+				$str_menu .= "\t\t\t 'target' =>'".$menu['target']."',\n";
+				$str_menu .= "\t\t\t 'user' =>".$menu['user'].",\n";
+				$str_menu .= "\t\t);\n";
 
 				if (is_null($next_val) || $val_actuel['leftmenu'] !== $next_val['leftmenu']) {
 					$str_menu .= $end."\n";
@@ -1154,21 +1154,21 @@ 
 		$dicData .= "\t\t\t'$key'=>";
 
 		if ($key === 'tabcond') {
-			$conditions = array_map(function ($val) use ($module) {
+			$conditions = array_map(function($val) use ($module) {
 				return ($val === true || $val === false) ? "isModEnabled('$module')" : $val;
 			}, $value);
-			$dicData .= "array(" . implode(",", $conditions) . ")";
+			$dicData .= "array(".implode(",", $conditions).")";
 		} elseif ($key === 'tabhelp') {
 			$helpItems = array();
 			foreach ($value as $key => $helpValue) {
 				$helpItems[] = "array('code'=>\$langs->trans('".$helpValue['code']."'), 'field2' => 'field2tooltip')";
 			}
-			$dicData .= "array(" . implode(",", $helpItems) . ")";
+			$dicData .= "array(".implode(",", $helpItems).")";
 		} else {
 			if (is_array($value)) {
-				$dicData .= "array(" . implode(",", array_map(function ($val) {
+				$dicData .= "array(".implode(",", array_map(function($val) {
 					return "'$val'";
-				}, $value)) . ")";
+				}, $value)).")";
 			} else {
 				$dicData .= "'$value'";
 			}
@@ -1234,7 +1234,7 @@ 
 		}
 	}
 	// check if tablename exist in Database and create it if not
-	$query = "SHOW TABLES LIKE '" . MAIN_DB_PREFIX.strtolower($namedic) . "'";
+	$query = "SHOW TABLES LIKE '".MAIN_DB_PREFIX.strtolower($namedic)."'";
 	$checkTable = $db->query($query);
 	if ($checkTable && $db->num_rows($checkTable) > 0) {
 		setEventMessages($langs->trans("ErrorTableExist", $namedic), null, 'errors');
@@ -1343,9 +1343,9 @@ 
 
 	foreach ($allFilesAndDirs as $item) {
 		if ($item != '.' && $item != '..') {
-			if ($type == 1 && is_file($path . DIRECTORY_SEPARATOR . $item) && strpos($item, '.back') === false) {
+			if ($type == 1 && is_file($path.DIRECTORY_SEPARATOR.$item) && strpos($item, '.back') === false) {
 				$count++;
-			} elseif ($type == 2 && is_dir($path . DIRECTORY_SEPARATOR . $item)) {
+			} elseif ($type == 2 && is_dir($path.DIRECTORY_SEPARATOR.$item)) {
 				$count++;
 			}
 		}

htdocs/admin/mails_ticket.php

Spacing +6 added lines, -6 removed lines

@@ -307,7 +307,7 @@ 
 	print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAIL_SENDMODE").'</td><td>';
 
 	// SuperAdministrator access only
-	if (!isModEnabled('multicompany')  || ($user->admin && !$user->entity)) {
+	if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
 		print $form->selectarray('MAIN_MAIL_SENDMODE_TICKET', $listofmethods, $conf->global->MAIN_MAIL_SENDMODE_TICKET);
 	} else {
 		$text = $listofmethods[getDolGlobalString('MAIN_MAIL_SENDMODE_TICKET')];
@@ -316,7 +316,7 @@ 
 		}
 		$htmltext = $langs->trans("ContactSuperAdminForChange");
 		print $form->textwithpicto($text, $htmltext, 1, 'superadmin');
-		print '<input type="hidden" name="MAIN_MAIL_SENDMODE_TICKET" value="' . getDolGlobalString('MAIN_MAIL_SENDMODE_TICKET').'">';
+		print '<input type="hidden" name="MAIN_MAIL_SENDMODE_TICKET" value="'.getDolGlobalString('MAIN_MAIL_SENDMODE_TICKET').'">';
 	}
 	print '</td></tr>';
 
@@ -437,7 +437,7 @@ 
 	if (!empty($conf->use_javascript_ajax) || (isset($conf->global->MAIN_MAIL_SENDMODE_TICKET) && in_array($conf->global->MAIN_MAIL_SENDMODE_TICKET, array('smtps', 'swiftmailer')))) {
 		print '<tr class="oddeven smtp_oauth_service hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_OAUTH_SERVICE").'</td><td>';
 		// SuperAdministrator access only
-		if (!isModEnabled('multicompany')  || ($user->admin && !$user->entity)) {
+		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
 			print $form->selectarray('MAIN_MAIL_SMTPS_OAUTH_SERVICE_TICKET', $oauthservices, $conf->global->MAIN_MAIL_SMTPS_OAUTH_SERVICE_TICKET);
 		} else {
 			$text = $oauthservices[getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE_TICKET')];
@@ -446,7 +446,7 @@ 
 			}
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($text, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" name="MAIN_MAIL_SMTPS_OAUTH_SERVICE_TICKET" value="' . getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE_TICKET').'">';
+			print '<input type="hidden" name="MAIN_MAIL_SMTPS_OAUTH_SERVICE_TICKET" value="'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE_TICKET').'">';
 		}
 		print '</td></tr>';
 	}
@@ -526,13 +526,13 @@ 
 		// AUTH method
 		if (in_array(getDolGlobalString('MAIN_MAIL_SENDMODE_TICKET'), array('smtps', 'swiftmailer'))) {
 			$authtype = getDolGlobalString('MAIN_MAIL_SMTPS_AUTH_TYPE_TICKET', 'LOGIN');
-			$text = ($authtype === "LOGIN") ? $langs->trans("UsePassword") : ($authtype === "XOAUTH2" ?  $langs->trans("UseOauth") : '') ;
+			$text = ($authtype === "LOGIN") ? $langs->trans("UsePassword") : ($authtype === "XOAUTH2" ? $langs->trans("UseOauth") : '');
 			print '<tr class="oddeven hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_AUTH_TYPE").'</td><td>'.$text.'</td></tr>';
 		}
 
 		// SMTPS ID
 		if (isset($conf->global->MAIN_MAIL_SENDMODE_TICKET) && in_array($conf->global->MAIN_MAIL_SENDMODE_TICKET, array('smtps', 'swiftmailer'))) {
-			print '<tr class="oddeven hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_ID").'</td><td>' . getDolGlobalString('MAIN_MAIL_SMTPS_ID_TICKET').'</td></tr>';
+			print '<tr class="oddeven hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_ID").'</td><td>'.getDolGlobalString('MAIN_MAIL_SMTPS_ID_TICKET').'</td></tr>';
 		}
 
 		// SMTPS PW

htdocs/admin/mails_emailing.php

Spacing +23 added lines, -23 removed lines

@@ -327,7 +327,7 @@ 
 		}
 		$htmltext = $langs->trans("ContactSuperAdminForChange");
 		print $form->textwithpicto($text, $htmltext, 1, 'superadmin');
-		print '<input type="hidden" name="MAIN_MAIL_SENDMODE_EMAILING" value="' . getDolGlobalString('MAIN_MAIL_SENDMODE_EMAILING').'">';
+		print '<input type="hidden" name="MAIN_MAIL_SENDMODE_EMAILING" value="'.getDolGlobalString('MAIN_MAIL_SENDMODE_EMAILING').'">';
 	}
 	print '</td></tr>';
 
@@ -352,15 +352,15 @@ 
 		print '</td><td>';
 		// SuperAdministrator access only
 		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
-			print '<input class="flat minwidth300" id="MAIN_MAIL_SMTP_SERVER_EMAILING" name="MAIN_MAIL_SMTP_SERVER_EMAILING" size="18" value="' . $mainserver . '">';
-			print '<input type="hidden" id="MAIN_MAIL_SMTP_SERVER_EMAILING_sav" name="MAIN_MAIL_SMTP_SERVER_EMAILING_sav" value="' . $mainserver . '">';
-			print '<span id="smtp_server_mess" class="opacitymedium">' . $langs->trans("SeeLocalSendMailSetup") . '</span>';
-			print ' <span class="opacitymedium smtp_method">' . $langs->trans("SeeLinkToOnlineDocumentation") . '</span>';
+			print '<input class="flat minwidth300" id="MAIN_MAIL_SMTP_SERVER_EMAILING" name="MAIN_MAIL_SMTP_SERVER_EMAILING" size="18" value="'.$mainserver.'">';
+			print '<input type="hidden" id="MAIN_MAIL_SMTP_SERVER_EMAILING_sav" name="MAIN_MAIL_SMTP_SERVER_EMAILING_sav" value="'.$mainserver.'">';
+			print '<span id="smtp_server_mess" class="opacitymedium">'.$langs->trans("SeeLocalSendMailSetup").'</span>';
+			print ' <span class="opacitymedium smtp_method">'.$langs->trans("SeeLinkToOnlineDocumentation").'</span>';
 		} else {
 			$text = !empty($mainserver) ? $mainserver : $smtpserver;
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($text, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" id="MAIN_MAIL_SMTP_SERVER_EMAILING" name="MAIN_MAIL_SMTP_SERVER_EMAILING" value="' . $mainserver . '">';
+			print '<input type="hidden" id="MAIN_MAIL_SMTP_SERVER_EMAILING" name="MAIN_MAIL_SMTP_SERVER_EMAILING" value="'.$mainserver.'">';
 		}
 		print '</td>';
 	}
@@ -384,14 +384,14 @@ 
 		print '</td><td>';
 		// SuperAdministrator access only
 		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
-			print '<input class="flat" id="MAIN_MAIL_SMTP_PORT_EMAILING" name="MAIN_MAIL_SMTP_PORT_EMAILING" size="3" value="' . $mainport . '">';
-			print '<input type="hidden" id="MAIN_MAIL_SMTP_PORT_EMAILING_sav" name="MAIN_MAIL_SMTP_PORT_EMAILING_sav" value="' . $mainport . '">';
-			print '<span id="smtp_port_mess" class="opacitymedium">' . $langs->trans("SeeLocalSendMailSetup") . '</span>';
+			print '<input class="flat" id="MAIN_MAIL_SMTP_PORT_EMAILING" name="MAIN_MAIL_SMTP_PORT_EMAILING" size="3" value="'.$mainport.'">';
+			print '<input type="hidden" id="MAIN_MAIL_SMTP_PORT_EMAILING_sav" name="MAIN_MAIL_SMTP_PORT_EMAILING_sav" value="'.$mainport.'">';
+			print '<span id="smtp_port_mess" class="opacitymedium">'.$langs->trans("SeeLocalSendMailSetup").'</span>';
 		} else {
 			$text = (!empty($mainport) ? $mainport : $smtpport);
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($text, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" id="MAIN_MAIL_SMTP_PORT_EMAILING" name="MAIN_MAIL_SMTP_PORT_EMAILING" value="' . $mainport . '">';
+			print '<input type="hidden" id="MAIN_MAIL_SMTP_PORT_EMAILING" name="MAIN_MAIL_SMTP_PORT_EMAILING" value="'.$mainport.'">';
 		}
 	}
 	print '</td></tr>';
@@ -418,14 +418,14 @@ 
 	// ID
 	if (!empty($conf->use_javascript_ajax) || (isset($conf->global->MAIN_MAIL_SENDMODE_EMAILING) && in_array($conf->global->MAIN_MAIL_SENDMODE_EMAILING, array('smtps', 'swiftmailer')))) {
 		$mainstmpid = (!empty($conf->global->MAIN_MAIL_SMTPS_ID_EMAILING) ? $conf->global->MAIN_MAIL_SMTPS_ID_EMAILING : '');
-		print '<tr class="drag drop oddeven hideifdefault"><td>' . $langs->trans("MAIN_MAIL_SMTPS_ID") . '</td><td>';
+		print '<tr class="drag drop oddeven hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_ID").'</td><td>';
 		// SuperAdministrator access only
 		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
-			print '<input class="flat" name="MAIN_MAIL_SMTPS_ID_EMAILING" size="32" value="' . $mainstmpid . '">';
+			print '<input class="flat" name="MAIN_MAIL_SMTPS_ID_EMAILING" size="32" value="'.$mainstmpid.'">';
 		} else {
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($conf->global->MAIN_MAIL_SMTPS_ID_EMAILING, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" name="MAIN_MAIL_SMTPS_ID_EMAILING" value="' . $mainstmpid . '">';
+			print '<input type="hidden" name="MAIN_MAIL_SMTPS_ID_EMAILING" value="'.$mainstmpid.'">';
 		}
 		print '</td></tr>';
 	}
@@ -433,14 +433,14 @@ 
 	// PW
 	if (!empty($conf->use_javascript_ajax) || (isset($conf->global->MAIN_MAIL_SENDMODE_EMAILING) && in_array($conf->global->MAIN_MAIL_SENDMODE_EMAILING, array('smtps', 'swiftmailer')))) {
 		$mainsmtppw = (!empty($conf->global->MAIN_MAIL_SMTPS_PW_EMAILING) ? $conf->global->MAIN_MAIL_SMTPS_PW_EMAILING : '');
-		print '<tr class="drag drop oddeven smtp_pw hideifdefault"><td>' . $langs->trans("MAIN_MAIL_SMTPS_PW") . '</td><td>';
+		print '<tr class="drag drop oddeven smtp_pw hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_PW").'</td><td>';
 		// SuperAdministrator access only
 		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
-			print '<input class="flat" type="password" name="MAIN_MAIL_SMTPS_PW_EMAILING" size="32" value="' . $mainsmtppw . '">';
+			print '<input class="flat" type="password" name="MAIN_MAIL_SMTPS_PW_EMAILING" size="32" value="'.$mainsmtppw.'">';
 		} else {
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($conf->global->MAIN_MAIL_SMTPS_PW_EMAILING, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" name="MAIN_MAIL_SMTPS_PW_EMAILING" value="' . $mainsmtppw . '">';
+			print '<input type="hidden" name="MAIN_MAIL_SMTPS_PW_EMAILING" value="'.$mainsmtppw.'">';
 		}
 		print '</td></tr>';
 	}
@@ -450,7 +450,7 @@ 
 		print '<tr class="oddeven smtp_oauth_service hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_OAUTH_SERVICE").'</td><td>';
 
 		// SuperAdministrator access only
-		if (!isModEnabled('multicompany')  || ($user->admin && !$user->entity)) {
+		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
 			print $form->selectarray('MAIN_MAIL_SMTPS_OAUTH_SERVICE_EMAILING', $oauthservices, $conf->global->MAIN_MAIL_SMTPS_OAUTH_SERVICE_EMAILING);
 		} else {
 			$text = $oauthservices[getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE_EMAILING')];
@@ -459,7 +459,7 @@ 
 			}
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($text, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" name="MAIN_MAIL_SMTPS_OAUTH_SERVICE_EMAILING" value="' . getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE_EMAILING').'">';
+			print '<input type="hidden" name="MAIN_MAIL_SMTPS_OAUTH_SERVICE_EMAILING" value="'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE_EMAILING').'">';
 		}
 		print '</td></tr>';
 	}
@@ -552,7 +552,7 @@ 
 		// AUTH method
 		if (in_array(getDolGlobalString('MAIN_MAIL_SENDMODE_EMAILING'), array('smtps', 'swiftmailer'))) {
 			$authtype = getDolGlobalString('MAIN_MAIL_SMTPS_AUTH_TYPE_EMAILING', 'LOGIN');
-			$text = ($authtype === "LOGIN") ? $langs->trans("UsePassword") : ($authtype === "XOAUTH2" ?  $langs->trans("UseOauth") : '') ;
+			$text = ($authtype === "LOGIN") ? $langs->trans("UsePassword") : ($authtype === "XOAUTH2" ? $langs->trans("UseOauth") : '');
 			print '<tr class="oddeven hideifdefault"><td>'.$langs->trans("MAIN_MAIL_SMTPS_AUTH_TYPE").'</td><td>'.$text.'</td></tr>';
 		}
 
@@ -646,16 +646,16 @@ 
 	if (!empty($conf->global->MAIN_MAIL_SENDMODE_EMAILING) && $conf->global->MAIN_MAIL_SENDMODE_EMAILING != 'default') {
 		if ($conf->global->MAIN_MAIL_SENDMODE_EMAILING != 'mail' || !$linuxlike) {
 			if (function_exists('fsockopen') && $port && $server) {
-				print '<a class="butAction" href="' . $_SERVER["PHP_SELF"] . '?action=testconnect">' . $langs->trans("DoTestServerAvailability") . '</a>';
+				print '<a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=testconnect">'.$langs->trans("DoTestServerAvailability").'</a>';
 			}
 		} else {
-			print '<a class="butActionRefused classfortooltip" href="#" title="' . $langs->trans("FeatureNotAvailableOnLinux") . '">' . $langs->trans("DoTestServerAvailability") . '</a>';
+			print '<a class="butActionRefused classfortooltip" href="#" title="'.$langs->trans("FeatureNotAvailableOnLinux").'">'.$langs->trans("DoTestServerAvailability").'</a>';
 		}
 
-		print '<a class="butAction" href="' . $_SERVER["PHP_SELF"] . '?action=test&amp;mode=init">' . $langs->trans("DoTestSend") . '</a>';
+		print '<a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=test&amp;mode=init">'.$langs->trans("DoTestSend").'</a>';
 
 		if (isModEnabled('fckeditor')) {
-			print '<a class="butAction" href="' . $_SERVER["PHP_SELF"] . '?action=testhtml&amp;mode=init">' . $langs->trans("DoTestSendHTML") . '</a>';
+			print '<a class="butAction" href="'.$_SERVER["PHP_SELF"].'?action=testhtml&amp;mode=init">'.$langs->trans("DoTestSendHTML").'</a>';
 		}
 	}
 

htdocs/admin/mails.php

Spacing +8 added lines, -8 removed lines

@@ -383,7 +383,7 @@ 
 	print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAIL_SENDMODE").'</td><td>';
 
 	// SuperAdministrator access only
-	if (!isModEnabled('multicompany')  || ($user->admin && !$user->entity)) {
+	if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
 		print $form->selectarray('MAIN_MAIL_SENDMODE', $listofmethods, getDolGlobalString('MAIN_MAIL_SENDMODE', 'mail'));
 	} else {
 		$text = $listofmethods[getDolGlobalString('MAIN_MAIL_SENDMODE')];
@@ -502,11 +502,11 @@ 
 		print '</td><td>';
 		// SuperAdministrator access only
 		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
-			print '<input class="flat" type="password" name="MAIN_MAIL_SMTPS_PW" size="32" value="' . htmlspecialchars($mainsmtppw, ENT_COMPAT, 'UTF-8') . '" autocomplete="off">';
+			print '<input class="flat" type="password" name="MAIN_MAIL_SMTPS_PW" size="32" value="'.htmlspecialchars($mainsmtppw, ENT_COMPAT, 'UTF-8').'" autocomplete="off">';
 		} else {
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($conf->global->MAIN_MAIL_SMTPS_PW, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" name="MAIN_MAIL_SMTPS_PW" value="' . htmlspecialchars($mainsmtppw, ENT_COMPAT, 'UTF-8') . '">';
+			print '<input type="hidden" name="MAIN_MAIL_SMTPS_PW" value="'.htmlspecialchars($mainsmtppw, ENT_COMPAT, 'UTF-8').'">';
 		}
 		print '</td></tr>';
 	}
@@ -516,7 +516,7 @@ 
 		print '<tr class="oddeven smtp_oauth_service"><td>'.$langs->trans("MAIN_MAIL_SMTPS_OAUTH_SERVICE").'</td><td>';
 
 		// SuperAdministrator access only
-		if (!isModEnabled('multicompany')  || ($user->admin && !$user->entity)) {
+		if (!isModEnabled('multicompany') || ($user->admin && !$user->entity)) {
 			print $form->selectarray('MAIN_MAIL_SMTPS_OAUTH_SERVICE', $oauthservices, $conf->global->MAIN_MAIL_SMTPS_OAUTH_SERVICE);
 		} else {
 			$text = $oauthservices[getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE')];
@@ -525,7 +525,7 @@ 
 			}
 			$htmltext = $langs->trans("ContactSuperAdminForChange");
 			print $form->textwithpicto($text, $htmltext, 1, 'superadmin');
-			print '<input type="hidden" name="MAIN_MAIL_SMTPS_OAUTH_SERVICE" value="' . getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'">';
+			print '<input type="hidden" name="MAIN_MAIL_SMTPS_OAUTH_SERVICE" value="'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'">';
 		}
 		print '</td></tr>';
 	}
@@ -717,13 +717,13 @@ 
 		// AUTH method
 		if (in_array(getDolGlobalString('MAIN_MAIL_SENDMODE', 'mail'), array('smtps', 'swiftmailer'))) {
 			$authtype = getDolGlobalString('MAIN_MAIL_SMTPS_AUTH_TYPE', 'LOGIN');
-			$text = ($authtype === "LOGIN") ? $langs->trans("UsePassword") : ($authtype === "XOAUTH2" ?  $langs->trans("UseOauth") : '') ;
+			$text = ($authtype === "LOGIN") ? $langs->trans("UsePassword") : ($authtype === "XOAUTH2" ? $langs->trans("UseOauth") : '');
 			print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAIL_SMTPS_AUTH_TYPE").'</td><td>'.$text.'</td></tr>';
 		}
 
 		// SMTPS ID
 		if (in_array(getDolGlobalString('MAIN_MAIL_SENDMODE', 'mail'), array('smtps', 'swiftmailer'))) {
-			print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAIL_SMTPS_ID").'</td><td>' . getDolGlobalString('MAIN_MAIL_SMTPS_ID').'</td></tr>';
+			print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAIL_SMTPS_ID").'</td><td>'.getDolGlobalString('MAIN_MAIL_SMTPS_ID').'</td></tr>';
 		}
 
 		// SMTPS PW
@@ -832,7 +832,7 @@ 
 		// From
 		$help = img_help(1, $langs->trans("EMailHelpMsgSPFDKIM"));
 		print '<tr class="oddeven"><td>'.$langs->trans("MAIN_MAIL_EMAIL_FROM", ini_get('sendmail_from') ?ini_get('sendmail_from') : $langs->transnoentities("Undefined")).' '.$help.'</td>';
-		print '<td>' . getDolGlobalString('MAIN_MAIL_EMAIL_FROM');
+		print '<td>'.getDolGlobalString('MAIN_MAIL_EMAIL_FROM');
 		if (empty($conf->global->MAIN_MAIL_EMAIL_FROM)) {
 			print img_warning($langs->trans("Mandatory"));
 		} elseif (!isValidEmail($conf->global->MAIN_MAIL_EMAIL_FROM)) {

htdocs/includes/markrogoyski/math-php/src/Finance.php

Indentation +770 added lines, -770 removed lines

@@ -5,776 +5,776 @@
 use MathPHP\Exception\OutOfBoundsException;
 
 /**
-  * General references on financial functions and formulas:
-  * - Open Document Format for Office Applications (OpenDocument) Version 1.2 Part 2:
-  *   Recalculated Formula (OpenFormula) Format. 29 September 2011. OASIS Standard.
-  *   http://docs.oasis-open.org/office/v1.2/os/OpenDocument-v1.2-os-part2.html#__RefHeading__1018228_715980110
-  * - https://wiki.openoffice.org/wiki/Documentation/How_Tos/Calc:_Derivation_of_Financial_Formulas#Loans_and_Annuities
-  */
+ * General references on financial functions and formulas:
+ * - Open Document Format for Office Applications (OpenDocument) Version 1.2 Part 2:
+ *   Recalculated Formula (OpenFormula) Format. 29 September 2011. OASIS Standard.
+ *   http://docs.oasis-open.org/office/v1.2/os/OpenDocument-v1.2-os-part2.html#__RefHeading__1018228_715980110
+ * - https://wiki.openoffice.org/wiki/Documentation/How_Tos/Calc:_Derivation_of_Financial_Formulas#Loans_and_Annuities
+ */
 class Finance
 {
-    /**
-     * Floating-point range near zero to consider insignificant.
-     */
-    public const EPSILON = 1e-6;
-
-    /**
-     * Consider any floating-point value less than epsilon from zero as zero,
-     * ie any value in the range [-epsilon < 0 < epsilon] is considered zero.
-     * Also used to convert -0.0 to 0.0.
-     *
-     * @param float $value
-     * @param float $epsilon
-     *
-     * @return float
-     */
-    private static function checkZero(float $value, float $epsilon = self::EPSILON): float
-    {
-        return \abs($value) < $epsilon ? 0.0 : $value;
-    }
-
-    /**
-     * Financial payment for a loan or annuity with compound interest.
-     * Determines the periodic payment amount for a given interest rate,
-     * principal, targeted payment goal, life of the annuity as number
-     * of payments, and whether the payments are made at the start or end
-     * of each payment period.
-     *
-     * Same as the =PMT() function in most spreadsheet software.
-     *
-     * The basic monthly payment formula derivation:
-     * https://en.wikipedia.org/wiki/Mortgage_calculator#Monthly_payment_formula
-     *
-     *       rP(1+r)ᴺ
-     * PMT = --------
-     *       (1+r)ᴺ-1
-     *
-     * The formula is adjusted to allow targeting any future value rather than 0.
-     * The 1/(1+r*when) factor adjusts the payment to the beginning or end
-     * of the period. In the common case of a payment at the end of a period,
-     * the factor is 1 and reduces to the formula above. Setting when=1 computes
-     * an "annuity due" with an immediate payment.
-     *
-     * Examples:
-     * The payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
-     * paid at the end of every month.
-     *   pmt(0.035/12, 30*12, 265000, 0, false)
-     *
-     * The payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
-     * needed to half the principal in half in 5 years:
-     *   pmt(0.035/12, 5*12, 265000, 265000/2, false)
-     *
-     * The weekly payment into a savings account with 1% interest rate and current
-     * balance of $1500 needed to reach $10000 after 3 years:
-     *   pmt(0.01/52, 3*52, -1500, 10000, false)
-     * The present_value is negative indicating money put into the savings account,
-     * whereas future_value is positive, indicating money that will be withdrawn from
-     * the account. Similarly, the payment value is negative
-     *
-     * How much money can be withdrawn at the end of every quarter from an account
-     * with $1000000 earning 4% so the money lasts 20 years:
-     *  pmt(0.04/4, 20*4, 1000000, 0, false)
-     *
-     * @param  float $rate
-     * @param  int   $periods
-     * @param  float $present_value
-     * @param  float $future_value
-     * @param  bool  $beginning adjust the payment to the beginning or end of the period
-     *
-     * @return float
-     */
-    public static function pmt(float $rate, int $periods, float $present_value, float $future_value = 0.0, bool $beginning = false): float
-    {
-        $when = $beginning ? 1 : 0;
-
-        if ($rate == 0) {
-            return - ($future_value + $present_value) / $periods;
-        }
-
-        return - ($future_value + ($present_value * \pow(1 + $rate, $periods)))
-            /
-            ((1 + $rate * $when) / $rate * (\pow(1 + $rate, $periods) - 1));
-    }
-
-    /**
-     * Interest on a financial payment for a loan or annuity with compound interest.
-     * Determines the interest payment at a particular period of the annuity. For
-     * a typical loan paid down to zero, the amount of interest and principle paid
-     * throughout the lifetime of the loan will change, with the interest portion
-     * of the payment decreasing over time as the loan principle decreases.
-     *
-     * Same as the =IPMT() function in most spreadsheet software.
-     *
-     * See the PMT function for derivation of the formula. For IPMT, we have
-     * the payment equal to the interest portion and principle portion of the payment:
-     *
-     * PMT = IPMT + PPMT
-     *
-     * The interest portion IPMT on a regular annuity can be calculated by computing
-     * the future value of the annuity for the prior period and computing the compound
-     * interest for one period:
-     *
-     * IPMT = FV(p=n-1) * rate
-     *
-     * For an "annuity due" where payment is at the start of the period, period=1 has
-     * no interest portion of the payment because no time has elapsed for compounding.
-     * To compute the interest portion of the payment, the future value of 2 periods
-     * back needs to be computed, as the definition of a period is different, giving:
-     *
-     * IPMT = (FV(p=n-2) - PMT) * rate
-     *
-     * By thinking of the future value at period 0 instead of the present value, the
-     * given formulas are computed.
-     *
-     * Example of regular annuity and annuity due for a loan of $10.00 paid back in 3 periods.
-     * Although the principle payments are equal, the total payment and interest portion are
-     * lower with the annuity due because a principle payment is made immediately.
-     *
-     *                       Regular Annuity |  Annuity Due
-     * Period   FV       PMT    IPMT   PPMT  |   PMT    IPMT    PPMT
-     *   0     -10.00                        |
-     *   1      -6.83   -3.67  -0.50  -3.17  |  -3.50   0.00   -3.50
-     *   2      -3.50   -3.67  -0.34  -3.33  |  -3.50  -0.33   -3.17
-     *   3       0.00   -3.67  -0.17  -3.50  |  -3.50  -0.17   -3.33
-     *                -----------------------|----------------------
-     *             SUM -11.01  -1.01 -10.00  | -10.50  -0.50  -10.00
-     *
-     * Examples:
-     * The interest on a payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
-     * paid at the end of every month, looking at the first payment:
-     *   ipmt(0.035/12, 1, 30*12, 265000, 0, false)
-     *
-     * @param  float $rate
-     * @param  int   $period
-     * @param  int   $periods
-     * @param  float $present_value
-     * @param  float $future_value
-     * @param  bool  $beginning adjust the payment to the beginning or end of the period
-     *
-     * @return float
-     */
-    public static function ipmt(float $rate, int $period, int $periods, float $present_value, float $future_value = 0.0, bool $beginning = false): float
-    {
-        if ($period < 1 || $period > $periods) {
-            return \NAN;
-        }
-
-        if ($rate == 0) {
-            return 0;
-        }
-
-        if ($beginning && $period == 1) {
-            return 0.0;
-        }
-
-        $payment = self::pmt($rate, $periods, $present_value, $future_value, $beginning);
-        if ($beginning) {
-            $interest = (self::fv($rate, $period - 2, $payment, $present_value, $beginning) - $payment) * $rate;
-        } else {
-            $interest = self::fv($rate, $period - 1, $payment, $present_value, $beginning) * $rate;
-        }
-
-        return self::checkZero($interest);
-    }
-
-    /**
-     * Principle on a financial payment for a loan or annuity with compound interest.
-     * Determines the principle payment at a particular period of the annuity. For
-     * a typical loan paid down to zero, the amount of interest and principle paid
-     * throughout the lifetime of the loan will change, with the principle portion
-     * of the payment increasing over time as the loan principle decreases.
-     *
-     * Same as the =PPMT() function in most spreadsheet software.
-     *
-     * See the PMT function for derivation of the formula.
-     * See the IPMT function for derivation and use of PMT, IPMT, and PPMT.
-     *
-     * With derivations for PMT and IPMT, we simply compute:
-     *
-     * PPMT = PMT - IPMT
-     *
-     * Examples:
-     * The principle on a payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
-     * paid at the end of every month, looking at the first payment:
-     *   ppmt(0.035/12, 1, 30*12, 265000, 0, false)
-     *
-     * @param  float $rate
-     * @param  int   $period
-     * @param  int   $periods
-     * @param  float $present_value
-     * @param  float $future_value
-     * @param  bool  $beginning adjust the payment to the beginning or end of the period
-     *
-     * @return float
-     */
-    public static function ppmt(float $rate, int $period, int $periods, float $present_value, float $future_value = 0.0, bool $beginning = false): float
-    {
-        $payment = self::pmt($rate, $periods, $present_value, $future_value, $beginning);
-        $ipmt    = self::ipmt($rate, $period, $periods, $present_value, $future_value, $beginning);
-
-        return $payment - $ipmt;
-    }
-
-    /**
-     * Number of payment periods of an annuity.
-     * Solves for the number of periods in the annuity formula.
-     *
-     * Same as the =NPER() function in most spreadsheet software.
-     *
-     * Solving the basic annuity formula for number of periods:
-     *        log(PMT - FV*r)
-     *        ---------------
-     *        log(PMT + PV*r)
-     * n = --------------------
-     *          log(1 + r)
-     *
-     * The (1+r*when) factor adjusts the payment to the beginning or end
-     * of the period. In the common case of a payment at the end of a period,
-     * the factor is 1 and reduces to the formula above. Setting when=1 computes
-     * an "annuity due" with an immediate payment.
-     *
-     * Examples:
-     * The number of periods of a $475000 mortgage with interest rate 3.5% and monthly
-     * payment of $2132.96  paid in full:
-     *   nper(0.035/12, -2132.96, 475000, 0)
-     *
-     * @param  float $rate
-     * @param  float $payment
-     * @param  float $present_value
-     * @param  float $future_value
-     * @param  bool  $beginning adjust the payment to the beginning or end of the period
-     *
-     * @return float
-     */
-    public static function periods(float $rate, float $payment, float $present_value, float $future_value, bool $beginning = false): float
-    {
-        $when = $beginning ? 1 : 0;
-
-        if ($rate == 0) {
-            return - ($present_value + $future_value) / $payment;
-        }
-
-        $initial = $payment * (1.0 + $rate * $when);
-        return \log(($initial - $future_value * $rate) / ($initial + $present_value * $rate)) / \log(1.0 + $rate);
-    }
-
-    /**
-     * Annual Equivalent Rate (AER) of an annual percentage rate (APR).
-     * The effective yearly rate of an annual percentage rate when the
-     * annual percentage rate is compounded periodically within the year.
-     *
-     * Same as the =EFFECT() function in most spreadsheet software.
-     *
-     * The formula:
-     * https://en.wikipedia.org/wiki/Effective_interest_rate
-     *
-     *        /     i \ ᴺ
-     * AER = | 1 +  -  |  - 1
-     *        \     n /
-     *
-     * Examples:
-     * The AER of APR 3.5% interest compounded monthly.
-     *   aer(0.035, 12)
-     *
-     * @param  float $nominal
-     * @param  int $periods
-     *
-     * @return float
-     */
-    public static function aer(float $nominal, int $periods): float
-    {
-        if ($periods == 1) {
-            return $nominal;
-        }
-
-        return \pow(1 + ($nominal / $periods), $periods) - 1;
-    }
-
-    /**
-     * Annual Nominal Rate of an annual effective rate (AER).
-     * The nominal yearly rate of an annual effective rate when the
-     * annual effective rate is compounded periodically within the year.
-     *
-     * Same as the =NOMINAL() function in most spreadsheet software.
-     *
-     * See:
-     * https://en.wikipedia.org/wiki/Nominal_interest_rate
-     *
-     *           /          1/N    \
-     * NOMINAL = | (AER + 1)    -1 | * N
-     *           \                 /
-     *
-     * Examples:
-     * The nominal rate of AER 3.557% interest compounded monthly.
-     *   nominal(0.03557, 12)
-     *
-     * @param  float $aer
-     * @param  int $periods
-     *
-     * @return float
-     */
-    public static function nominal(float $aer, int $periods): float
-    {
-        if ($periods == 1) {
-            return $aer;
-        }
-
-        return (\pow($aer + 1, 1 / $periods) - 1) * $periods;
-    }
-
-    /**
-     * Future value for a loan or annuity with compound interest.
-     *
-     * Same as the =FV() function in most spreadsheet software.
-     *
-     * The basic future-value formula derivation:
-     * https://en.wikipedia.org/wiki/Future_value
-     *
-     *                   PMT*((1+r)ᴺ - 1)
-     * FV = -PV*(1+r)ᴺ - ----------------
-     *                          r
-     *
-     * The (1+r*when) factor adjusts the payment to the beginning or end
-     * of the period. In the common case of a payment at the end of a period,
-     * the factor is 1 and reduces to the formula above. Setting when=1 computes
-     * an "annuity due" with an immediate payment.
-     *
-     * Examples:
-     * The future value in 5 years on a 30-year fixed mortgage note of $265000
-     * at 3.5% interest paid at the end of every month. This is how much loan
-     * principle would be outstanding:
-     *   fv(0.035/12, 5*12, 1189.97, -265000, false)
-     *
-     * The present_value is negative indicating money borrowed for the mortgage,
-     * whereas payment is positive, indicating money that will be paid to the
-     * mortgage.
-     *
-     * @param  float $rate
-     * @param  int   $periods
-     * @param  float $payment
-     * @param  float $present_value
-     * @param  bool  $beginning adjust the payment to the beginning or end of the period
-     *
-     * @return float
-     */
-    public static function fv(float $rate, int $periods, float $payment, float $present_value, bool $beginning = false): float
-    {
-        $when = $beginning ? 1 : 0;
-
-        if ($rate == 0) {
-            $fv = -($present_value + ($payment * $periods));
-            return self::checkZero($fv);
-        }
-
-        $initial  = 1 + ($rate * $when);
-        $compound = \pow(1 + $rate, $periods);
-        $fv       = - (($present_value * $compound) + (($payment * $initial * ($compound - 1)) / $rate));
-
-        return self::checkZero($fv);
-    }
-
-    /**
-     * Present value for a loan or annuity with compound interest.
-     *
-     * Same as the =PV() function in most spreadsheet software.
-     *
-     * The basic present-value formula derivation:
-     * https://en.wikipedia.org/wiki/Present_value
-     *
-     *            PMT*((1+r)ᴺ - 1)
-     * PV = -FV - ----------------
-     *                   r
-     *      ---------------------
-     *             (1 + r)ᴺ
-     *
-     * The (1+r*when) factor adjusts the payment to the beginning or end
-     * of the period. In the common case of a payment at the end of a period,
-     * the factor is 1 and reduces to the formula above. Setting when=1 computes
-     * an "annuity due" with an immediate payment.
-     *
-     * Examples:
-     * The present value of a bond's $1000 face value paid in 5 year's time
-     * with a constant discount rate of 3.5% compounded monthly:
-     *   pv(0.035/12, 5*12, 0, -1000, false)
-     *
-     * The present value of a $1000 5-year bond that pays a fixed 7% ($70)
-     * coupon at the end of each year with a discount rate of 5%:
-     *   pv(0.5, 5, -70, -1000, false)
-     *
-     * The payment and future_value is negative indicating money paid out.
-     *
-     * @param  float $rate
-     * @param  int   $periods
-     * @param  float $payment
-     * @param  float $future_value
-     * @param  bool  $beginning adjust the payment to the beginning or end of the period
-     *
-     * @return float
-     */
-    public static function pv(float $rate, int $periods, float $payment, float $future_value, bool $beginning = false): float
-    {
-        $when = $beginning ? 1 : 0;
-
-        if ($rate == 0) {
-            $pv = -$future_value - ($payment * $periods);
-            return self::checkZero($pv);
-        }
-
-        $initial  = 1 + ($rate * $when);
-        $compound = \pow(1 + $rate, $periods);
-        $pv       = (-$future_value - (($payment * $initial * ($compound - 1)) / $rate)) / $compound;
-
-        return self::checkZero($pv);
-    }
-
-    /**
-     * Net present value of cash flows. Cash flows are periodic starting
-     * from an initial time and with a uniform discount rate.
-     *
-     * Similar to the =NPV() function in most spreadsheet software, except
-     * the initial (usually negative) cash flow at time 0 is given as the
-     * first element of the array rather than subtracted. For example,
-     *   spreadsheet: =NPV(0.01, 100, 200, 300, 400) - 1000
-     * is done as
-     *   MathPHP::npv(0.01, [-1000, 100, 200, 300, 400])
-     *
-     * The basic net-present-value formula derivation:
-     * https://en.wikipedia.org/wiki/Net_present_value
-     *
-     *  n      Rt
-     *  Σ   --------
-     * t=0  (1 / r)ᵗ
-     *
-     * Examples:
-     * The net present value of 5 yearly cash flows after an initial $1000
-     * investment with a 3% discount rate:
-     *  npv(0.03, [-1000, 100, 500, 300, 700, 700])
-     *
-     * @param  float $rate
-     * @param  array<float> $values
-     *
-     * @return float
-     */
-    public static function npv(float $rate, array $values): float
-    {
-        $result = 0.0;
-
-        for ($i = 0; $i < \count($values); ++$i) {
-            $result += $values[$i] / (1 + $rate) ** $i;
-        }
-
-        return $result;
-    }
-
-    /**
-     * Interest rate per period of an Annuity.
-     *
-     * Same as the =RATE() formula in most spreadsheet software.
-     *
-     * The basic rate formula derivation is to solve for the future value
-     * taking into account the present value:
-     * https://en.wikipedia.org/wiki/Future_value
-     *
-     *                        ((1+r)ᴺ - 1)
-     * FV + PV*(1+r)ᴺ + PMT * ------------ = 0
-     *                             r
-     * The (1+r*when) factor adjusts the payment to the beginning or end
-     * of the period. In the common case of a payment at the end of a period,
-     * the factor is 1 and reduces to the formula above. Setting when=1 computes
-     * an "annuity due" with an immediate payment.
-     *
-     * Not all solutions for the rate have real-value solutions or converge.
-     * In these cases, NAN is returned.
-     *
-     * @param  float $periods
-     * @param  float $payment
-     * @param  float $present_value
-     * @param  float $future_value
-     * @param  bool  $beginning
-     * @param  float $initial_guess
-     *
-     * @return float
-     */
-    public static function rate(float $periods, float $payment, float $present_value, float $future_value, bool $beginning = false, float $initial_guess = 0.1): float
-    {
-        $when = $beginning ? 1 : 0;
-
-        $func = function ($x, $periods, $payment, $present_value, $future_value, $when) {
-            return $future_value + $present_value * (1 + $x) ** $periods + $payment * (1 + $x * $when) / $x * ((1 + $x) ** $periods - 1);
-        };
-
-        return self::checkZero(NumericalAnalysis\RootFinding\NewtonsMethod::solve($func, [$initial_guess, $periods, $payment, $present_value, $future_value, $when], 0, self::EPSILON, 0));
-    }
-
-    /**
-     * Internal rate of return.
-     * Periodic rate of return that would provide a net-present value (NPV) of 0.
-     *
-     * Same as =IRR formula in most spreadsheet software.
-     *
-     * Reference:
-     * https://en.wikipedia.org/wiki/Internal_rate_of_return
-     *
-     * Examples:
-     * The rate of return of an initial investment of $100 with returns
-     * of $50, $40, and $30:
-     *  irr([-100, 50, 40, 30])
-     *
-     * Solves for NPV=0 using Newton's Method.
-     * @param array<float> $values
-     * @param float $initial_guess
-     *
-     * @return float
-     *
-     * @throws OutOfBoundsException
-     *
-     * @todo: Use eigenvalues to find the roots of a characteristic polynomial.
-     * This will allow finding all solutions and eliminate the need of the initial_guess.
-     */
-    public static function irr(array $values, float $initial_guess = 0.1): float
-    {
-        $func = function ($x, $values) {
-            return Finance::npv($x, $values);
-        };
-
-        if (\count($values) <= 1) {
-            return \NAN;
-        }
-
-        $root = NumericalAnalysis\RootFinding\NewtonsMethod::solve($func, [$initial_guess, $values], 0, self::EPSILON, 0);
-        if (!\is_nan($root)) {
-            return self::CheckZero($root);
-        }
-        return self::checkZero(self::alternateIrr($values));
-    }
-
-    /**
-     * Alternate IRR implementation.
-     *
-     * A more numerically stable implementation that converges to only one value.
-     *
-     * Based off of Better: https://github.com/better/irr
-     *
-     * @param  array<float> $values
-     *
-     * @return float
-     */
-    private static function alternateIrr(array $values): float
-    {
-        $rate = 0.0;
-        for ($iter = 0; $iter < 100; $iter++) {
-            $m = -1000;
-            for ($i = 0; $i < \count($values); $i++) {
-                $m = \max($m, -$rate * $i);
-            }
-            $f = [];
-            for ($i = 0; $i < \count($values); $i++) {
-                $f[$i] = \exp(-$rate * $i - $m);
-            }
-            $t = 0;
-            for ($i = 0; $i < \count($values); $i++) {
-                $t += $f[$i] * $values[$i];
-            }
-            if (\abs($t) < (self::EPSILON * \exp($m))) {
-                break;
-            }
-            $u = 0;
-            for ($i = 0; $i < \count($values); $i++) {
-                $u += $f[$i] * $i * $values[$i];
-            }
-            if ($u == 0) {
-                return \NAN;
-            }
-            $rate += $t / $u;
-        }
-        return \exp($rate) - 1;
-    }
-
-    /**
-     * Modified internal rate of return.
-     * Rate of return that discounts outflows (investments) at the financing rate,
-     * and reinvests inflows with an expected rate of return.
-     *
-     * Same as =MIRR formula in most spreadsheet software.
-     *
-     * The formula derivation:
-     * https://en.wikipedia.org/wiki/Modified_internal_rate_of_return
-     *
-     *       _____________________________
-     *     n/ FV(re-invested cash inflows)
-     *  -  /  ----------------------------  - 1.0
-     *   \/   PV(discounted cash outflows)
-     *
-     * Examples:
-     * The rate of return of an initial investment of $100 at 5% financing
-     * with returns of $50, $40, and $30 reinvested at 10%:
-     *  mirr([-100, 50, 40, 30], 0.05, 0.10)
-     *
-     * @param  array<float> $values
-     * @param  float $finance_rate
-     * @param  float $reinvestment_rate
-     *
-     * @return float
-     */
-    public static function mirr(array $values, float $finance_rate, float $reinvestment_rate): float
-    {
-        $inflows  = array();
-        $outflows = array();
-
-        for ($i = 0; $i < \count($values); $i++) {
-            if ($values[$i] >= 0) {
-                $inflows[]  = $values[$i];
-                $outflows[] = 0;
-            } else {
-                $inflows[]  = 0;
-                $outflows[] = $values[$i];
-            }
-        }
-
-        $nonzero = function ($x) {
-            return $x != 0;
-        };
-
-        if (\count(\array_filter($inflows, $nonzero)) == 0 || \count(\array_filter($outflows, $nonzero)) == 0) {
-            return \NAN;
-        }
-
-        $root        = \count($values) - 1;
-        $pv_inflows  = self::npv($reinvestment_rate, $inflows);
-        $fv_inflows  = self::fv($reinvestment_rate, $root, 0, -$pv_inflows);
-        $pv_outflows = self::npv($finance_rate, $outflows);
-
-        return self::checkZero(\pow($fv_inflows / -$pv_outflows, 1 / $root) - 1);
-    }
-
-    /**
-     * Discounted Payback of an investment.
-     * The number of periods to recoup cash outlays of an investment.
-     *
-     * This is commonly used with discount rate=0 as simple payback period,
-     * but it is not a real financial measurement when it doesn't consider the
-     * discount rate. Even with a discount rate, it doesn't consider the cost
-     * of capital or re-investment of returns.
-     *
-     * Avoid this when possible. Consider NPV, MIRR, IRR, and other financial
-     * functions.
-     *
-     * Reference:
-     * https://en.wikipedia.org/wiki/Payback_period
-     *
-     * The result is given assuming cash flows are continous throughout a period.
-     * To compute payback in terms of whole periods, use ceil() on the result.
-     *
-     * An investment could reach its payback period before future cash outlays occur.
-     * The payback period returned is defined to be the final point at which the
-     * sum of returns becomes positive.
-     *
-     * Examples:
-     * The payback period of an investment with a $1,000 investment and future returns
-     * of $100, $200, $300, $400, $500:
-     *  payback([-1000, 100, 200, 300, 400, 500])
-     *
-     * The discounted payback period of an investment with a $1,000 investment, future returns
-     * of $100, $200, $300, $400, $500, and a discount rate of 0.10:
-     *  payback([-1000, 100, 200, 300, 400, 500], 0.1)
-     *
-     * @param  array<float> $values
-     * @param  float $rate
-     *
-     * @return float
-     */
-    public static function payback(array $values, float $rate = 0.0): float
-    {
-        $last_outflow = -1;
-        for ($i = 0; $i < \count($values); $i++) {
-            if ($values[$i] < 0) {
-                $last_outflow = $i;
-            }
-        }
-
-        if ($last_outflow < 0) {
-            return 0.0;
-        }
-
-        $sum            = $values[0];
-        $payback_period = -1;
-
-        for ($i = 1; $i < \count($values); $i++) {
-            $prevsum         = $sum;
-            $discounted_flow = $values[$i] / (1 + $rate) ** $i;
-            $sum            += $discounted_flow;
-            if ($sum >= 0) {
-                if ($i > $last_outflow) {
-                    return ($i - 1) + (-$prevsum / $discounted_flow);
-                }
-                if ($payback_period == -1) {
-                    $payback_period = ($i - 1) + (-$prevsum / $discounted_flow);
-                }
-            } else {
-                $payback_period = -1;
-            }
-        }
-        if ($sum >= 0) {
-            return $payback_period;
-        }
-
-        return \NAN;
-    }
-
-    /**
-     * Profitability Index.
-     * The Profitability Index, also referred to as Profit Investment
-     * Ratio (PIR) and Value Investment Ratio (VIR), is a comparison of
-     * discounted cash inflows to discounted cash outflows. It can be
-     * used as a decision criteria of an investment, using larger than 1
-     * to choose an investment, and less than 1 to pass.
-     *
-     * The formula derivation:
-     * https://en.wikipedia.org/wiki/Profitability_index
-     *
-     * PV(cash inflows)
-     * ----------------
-     * PV(cash outflows)
-     *
-     * The formula is usually stated in terms of the initial investmest,
-     * but it is generalized here to discount all future outflows.
-     *
-     * Examples:
-     * The profitability index of an initial $100 investment with future
-     * returns of $50, $50, $50 with a 10% discount rate:
-     *  profitabilityIndex([-100, 50, 50, 50], 0.10)
-     *
-     * @param  array<float> $values
-     * @param  float $rate
-     *
-     * @return float
-     */
-    public static function profitabilityIndex(array $values, float $rate): float
-    {
-        $inflows  = array();
-        $outflows = array();
-
-        for ($i = 0; $i < \count($values); $i++) {
-            if ($values[$i] >= 0) {
-                $inflows[]  = $values[$i];
-                $outflows[] = 0;
-            } else {
-                $inflows[]  = 0;
-                $outflows[] = -$values[$i];
-            }
-        }
-
-        $nonzero = function ($x) {
-            return $x != 0;
-        };
-
-        if (\count(\array_filter($outflows, $nonzero)) == 0) {
-            return \NAN;
-        }
-
-        $pv_inflows  = self::npv($rate, $inflows);
-        $pv_outflows = self::npv($rate, $outflows);
-
-        return $pv_inflows / $pv_outflows;
-    }
+	/**
+	 * Floating-point range near zero to consider insignificant.
+	 */
+	public const EPSILON = 1e-6;
+
+	/**
+	 * Consider any floating-point value less than epsilon from zero as zero,
+	 * ie any value in the range [-epsilon < 0 < epsilon] is considered zero.
+	 * Also used to convert -0.0 to 0.0.
+	 *
+	 * @param float $value
+	 * @param float $epsilon
+	 *
+	 * @return float
+	 */
+	private static function checkZero(float $value, float $epsilon = self::EPSILON): float
+	{
+		return \abs($value) < $epsilon ? 0.0 : $value;
+	}
+
+	/**
+	 * Financial payment for a loan or annuity with compound interest.
+	 * Determines the periodic payment amount for a given interest rate,
+	 * principal, targeted payment goal, life of the annuity as number
+	 * of payments, and whether the payments are made at the start or end
+	 * of each payment period.
+	 *
+	 * Same as the =PMT() function in most spreadsheet software.
+	 *
+	 * The basic monthly payment formula derivation:
+	 * https://en.wikipedia.org/wiki/Mortgage_calculator#Monthly_payment_formula
+	 *
+	 *       rP(1+r)ᴺ
+	 * PMT = --------
+	 *       (1+r)ᴺ-1
+	 *
+	 * The formula is adjusted to allow targeting any future value rather than 0.
+	 * The 1/(1+r*when) factor adjusts the payment to the beginning or end
+	 * of the period. In the common case of a payment at the end of a period,
+	 * the factor is 1 and reduces to the formula above. Setting when=1 computes
+	 * an "annuity due" with an immediate payment.
+	 *
+	 * Examples:
+	 * The payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
+	 * paid at the end of every month.
+	 *   pmt(0.035/12, 30*12, 265000, 0, false)
+	 *
+	 * The payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
+	 * needed to half the principal in half in 5 years:
+	 *   pmt(0.035/12, 5*12, 265000, 265000/2, false)
+	 *
+	 * The weekly payment into a savings account with 1% interest rate and current
+	 * balance of $1500 needed to reach $10000 after 3 years:
+	 *   pmt(0.01/52, 3*52, -1500, 10000, false)
+	 * The present_value is negative indicating money put into the savings account,
+	 * whereas future_value is positive, indicating money that will be withdrawn from
+	 * the account. Similarly, the payment value is negative
+	 *
+	 * How much money can be withdrawn at the end of every quarter from an account
+	 * with $1000000 earning 4% so the money lasts 20 years:
+	 *  pmt(0.04/4, 20*4, 1000000, 0, false)
+	 *
+	 * @param  float $rate
+	 * @param  int   $periods
+	 * @param  float $present_value
+	 * @param  float $future_value
+	 * @param  bool  $beginning adjust the payment to the beginning or end of the period
+	 *
+	 * @return float
+	 */
+	public static function pmt(float $rate, int $periods, float $present_value, float $future_value = 0.0, bool $beginning = false): float
+	{
+		$when = $beginning ? 1 : 0;
+
+		if ($rate == 0) {
+			return - ($future_value + $present_value) / $periods;
+		}
+
+		return - ($future_value + ($present_value * \pow(1 + $rate, $periods)))
+			/
+			((1 + $rate * $when) / $rate * (\pow(1 + $rate, $periods) - 1));
+	}
+
+	/**
+	 * Interest on a financial payment for a loan or annuity with compound interest.
+	 * Determines the interest payment at a particular period of the annuity. For
+	 * a typical loan paid down to zero, the amount of interest and principle paid
+	 * throughout the lifetime of the loan will change, with the interest portion
+	 * of the payment decreasing over time as the loan principle decreases.
+	 *
+	 * Same as the =IPMT() function in most spreadsheet software.
+	 *
+	 * See the PMT function for derivation of the formula. For IPMT, we have
+	 * the payment equal to the interest portion and principle portion of the payment:
+	 *
+	 * PMT = IPMT + PPMT
+	 *
+	 * The interest portion IPMT on a regular annuity can be calculated by computing
+	 * the future value of the annuity for the prior period and computing the compound
+	 * interest for one period:
+	 *
+	 * IPMT = FV(p=n-1) * rate
+	 *
+	 * For an "annuity due" where payment is at the start of the period, period=1 has
+	 * no interest portion of the payment because no time has elapsed for compounding.
+	 * To compute the interest portion of the payment, the future value of 2 periods
+	 * back needs to be computed, as the definition of a period is different, giving:
+	 *
+	 * IPMT = (FV(p=n-2) - PMT) * rate
+	 *
+	 * By thinking of the future value at period 0 instead of the present value, the
+	 * given formulas are computed.
+	 *
+	 * Example of regular annuity and annuity due for a loan of $10.00 paid back in 3 periods.
+	 * Although the principle payments are equal, the total payment and interest portion are
+	 * lower with the annuity due because a principle payment is made immediately.
+	 *
+	 *                       Regular Annuity |  Annuity Due
+	 * Period   FV       PMT    IPMT   PPMT  |   PMT    IPMT    PPMT
+	 *   0     -10.00                        |
+	 *   1      -6.83   -3.67  -0.50  -3.17  |  -3.50   0.00   -3.50
+	 *   2      -3.50   -3.67  -0.34  -3.33  |  -3.50  -0.33   -3.17
+	 *   3       0.00   -3.67  -0.17  -3.50  |  -3.50  -0.17   -3.33
+	 *                -----------------------|----------------------
+	 *             SUM -11.01  -1.01 -10.00  | -10.50  -0.50  -10.00
+	 *
+	 * Examples:
+	 * The interest on a payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
+	 * paid at the end of every month, looking at the first payment:
+	 *   ipmt(0.035/12, 1, 30*12, 265000, 0, false)
+	 *
+	 * @param  float $rate
+	 * @param  int   $period
+	 * @param  int   $periods
+	 * @param  float $present_value
+	 * @param  float $future_value
+	 * @param  bool  $beginning adjust the payment to the beginning or end of the period
+	 *
+	 * @return float
+	 */
+	public static function ipmt(float $rate, int $period, int $periods, float $present_value, float $future_value = 0.0, bool $beginning = false): float
+	{
+		if ($period < 1 || $period > $periods) {
+			return \NAN;
+		}
+
+		if ($rate == 0) {
+			return 0;
+		}
+
+		if ($beginning && $period == 1) {
+			return 0.0;
+		}
+
+		$payment = self::pmt($rate, $periods, $present_value, $future_value, $beginning);
+		if ($beginning) {
+			$interest = (self::fv($rate, $period - 2, $payment, $present_value, $beginning) - $payment) * $rate;
+		} else {
+			$interest = self::fv($rate, $period - 1, $payment, $present_value, $beginning) * $rate;
+		}
+
+		return self::checkZero($interest);
+	}
+
+	/**
+	 * Principle on a financial payment for a loan or annuity with compound interest.
+	 * Determines the principle payment at a particular period of the annuity. For
+	 * a typical loan paid down to zero, the amount of interest and principle paid
+	 * throughout the lifetime of the loan will change, with the principle portion
+	 * of the payment increasing over time as the loan principle decreases.
+	 *
+	 * Same as the =PPMT() function in most spreadsheet software.
+	 *
+	 * See the PMT function for derivation of the formula.
+	 * See the IPMT function for derivation and use of PMT, IPMT, and PPMT.
+	 *
+	 * With derivations for PMT and IPMT, we simply compute:
+	 *
+	 * PPMT = PMT - IPMT
+	 *
+	 * Examples:
+	 * The principle on a payment on a 30-year fixed mortgage note of $265000 at 3.5% interest
+	 * paid at the end of every month, looking at the first payment:
+	 *   ppmt(0.035/12, 1, 30*12, 265000, 0, false)
+	 *
+	 * @param  float $rate
+	 * @param  int   $period
+	 * @param  int   $periods
+	 * @param  float $present_value
+	 * @param  float $future_value
+	 * @param  bool  $beginning adjust the payment to the beginning or end of the period
+	 *
+	 * @return float
+	 */
+	public static function ppmt(float $rate, int $period, int $periods, float $present_value, float $future_value = 0.0, bool $beginning = false): float
+	{
+		$payment = self::pmt($rate, $periods, $present_value, $future_value, $beginning);
+		$ipmt    = self::ipmt($rate, $period, $periods, $present_value, $future_value, $beginning);
+
+		return $payment - $ipmt;
+	}
+
+	/**
+	 * Number of payment periods of an annuity.
+	 * Solves for the number of periods in the annuity formula.
+	 *
+	 * Same as the =NPER() function in most spreadsheet software.
+	 *
+	 * Solving the basic annuity formula for number of periods:
+	 *        log(PMT - FV*r)
+	 *        ---------------
+	 *        log(PMT + PV*r)
+	 * n = --------------------
+	 *          log(1 + r)
+	 *
+	 * The (1+r*when) factor adjusts the payment to the beginning or end
+	 * of the period. In the common case of a payment at the end of a period,
+	 * the factor is 1 and reduces to the formula above. Setting when=1 computes
+	 * an "annuity due" with an immediate payment.
+	 *
+	 * Examples:
+	 * The number of periods of a $475000 mortgage with interest rate 3.5% and monthly
+	 * payment of $2132.96  paid in full:
+	 *   nper(0.035/12, -2132.96, 475000, 0)
+	 *
+	 * @param  float $rate
+	 * @param  float $payment
+	 * @param  float $present_value
+	 * @param  float $future_value
+	 * @param  bool  $beginning adjust the payment to the beginning or end of the period
+	 *
+	 * @return float
+	 */
+	public static function periods(float $rate, float $payment, float $present_value, float $future_value, bool $beginning = false): float
+	{
+		$when = $beginning ? 1 : 0;
+
+		if ($rate == 0) {
+			return - ($present_value + $future_value) / $payment;
+		}
+
+		$initial = $payment * (1.0 + $rate * $when);
+		return \log(($initial - $future_value * $rate) / ($initial + $present_value * $rate)) / \log(1.0 + $rate);
+	}
+
+	/**
+	 * Annual Equivalent Rate (AER) of an annual percentage rate (APR).
+	 * The effective yearly rate of an annual percentage rate when the
+	 * annual percentage rate is compounded periodically within the year.
+	 *
+	 * Same as the =EFFECT() function in most spreadsheet software.
+	 *
+	 * The formula:
+	 * https://en.wikipedia.org/wiki/Effective_interest_rate
+	 *
+	 *        /     i \ ᴺ
+	 * AER = | 1 +  -  |  - 1
+	 *        \     n /
+	 *
+	 * Examples:
+	 * The AER of APR 3.5% interest compounded monthly.
+	 *   aer(0.035, 12)
+	 *
+	 * @param  float $nominal
+	 * @param  int $periods
+	 *
+	 * @return float
+	 */
+	public static function aer(float $nominal, int $periods): float
+	{
+		if ($periods == 1) {
+			return $nominal;
+		}
+
+		return \pow(1 + ($nominal / $periods), $periods) - 1;
+	}
+
+	/**
+	 * Annual Nominal Rate of an annual effective rate (AER).
+	 * The nominal yearly rate of an annual effective rate when the
+	 * annual effective rate is compounded periodically within the year.
+	 *
+	 * Same as the =NOMINAL() function in most spreadsheet software.
+	 *
+	 * See:
+	 * https://en.wikipedia.org/wiki/Nominal_interest_rate
+	 *
+	 *           /          1/N    \
+	 * NOMINAL = | (AER + 1)    -1 | * N
+	 *           \                 /
+	 *
+	 * Examples:
+	 * The nominal rate of AER 3.557% interest compounded monthly.
+	 *   nominal(0.03557, 12)
+	 *
+	 * @param  float $aer
+	 * @param  int $periods
+	 *
+	 * @return float
+	 */
+	public static function nominal(float $aer, int $periods): float
+	{
+		if ($periods == 1) {
+			return $aer;
+		}
+
+		return (\pow($aer + 1, 1 / $periods) - 1) * $periods;
+	}
+
+	/**
+	 * Future value for a loan or annuity with compound interest.
+	 *
+	 * Same as the =FV() function in most spreadsheet software.
+	 *
+	 * The basic future-value formula derivation:
+	 * https://en.wikipedia.org/wiki/Future_value
+	 *
+	 *                   PMT*((1+r)ᴺ - 1)
+	 * FV = -PV*(1+r)ᴺ - ----------------
+	 *                          r
+	 *
+	 * The (1+r*when) factor adjusts the payment to the beginning or end
+	 * of the period. In the common case of a payment at the end of a period,
+	 * the factor is 1 and reduces to the formula above. Setting when=1 computes
+	 * an "annuity due" with an immediate payment.
+	 *
+	 * Examples:
+	 * The future value in 5 years on a 30-year fixed mortgage note of $265000
+	 * at 3.5% interest paid at the end of every month. This is how much loan
+	 * principle would be outstanding:
+	 *   fv(0.035/12, 5*12, 1189.97, -265000, false)
+	 *
+	 * The present_value is negative indicating money borrowed for the mortgage,
+	 * whereas payment is positive, indicating money that will be paid to the
+	 * mortgage.
+	 *
+	 * @param  float $rate
+	 * @param  int   $periods
+	 * @param  float $payment
+	 * @param  float $present_value
+	 * @param  bool  $beginning adjust the payment to the beginning or end of the period
+	 *
+	 * @return float
+	 */
+	public static function fv(float $rate, int $periods, float $payment, float $present_value, bool $beginning = false): float
+	{
+		$when = $beginning ? 1 : 0;
+
+		if ($rate == 0) {
+			$fv = -($present_value + ($payment * $periods));
+			return self::checkZero($fv);
+		}
+
+		$initial  = 1 + ($rate * $when);
+		$compound = \pow(1 + $rate, $periods);
+		$fv       = - (($present_value * $compound) + (($payment * $initial * ($compound - 1)) / $rate));
+
+		return self::checkZero($fv);
+	}
+
+	/**
+	 * Present value for a loan or annuity with compound interest.
+	 *
+	 * Same as the =PV() function in most spreadsheet software.
+	 *
+	 * The basic present-value formula derivation:
+	 * https://en.wikipedia.org/wiki/Present_value
+	 *
+	 *            PMT*((1+r)ᴺ - 1)
+	 * PV = -FV - ----------------
+	 *                   r
+	 *      ---------------------
+	 *             (1 + r)ᴺ
+	 *
+	 * The (1+r*when) factor adjusts the payment to the beginning or end
+	 * of the period. In the common case of a payment at the end of a period,
+	 * the factor is 1 and reduces to the formula above. Setting when=1 computes
+	 * an "annuity due" with an immediate payment.
+	 *
+	 * Examples:
+	 * The present value of a bond's $1000 face value paid in 5 year's time
+	 * with a constant discount rate of 3.5% compounded monthly:
+	 *   pv(0.035/12, 5*12, 0, -1000, false)
+	 *
+	 * The present value of a $1000 5-year bond that pays a fixed 7% ($70)
+	 * coupon at the end of each year with a discount rate of 5%:
+	 *   pv(0.5, 5, -70, -1000, false)
+	 *
+	 * The payment and future_value is negative indicating money paid out.
+	 *
+	 * @param  float $rate
+	 * @param  int   $periods
+	 * @param  float $payment
+	 * @param  float $future_value
+	 * @param  bool  $beginning adjust the payment to the beginning or end of the period
+	 *
+	 * @return float
+	 */
+	public static function pv(float $rate, int $periods, float $payment, float $future_value, bool $beginning = false): float
+	{
+		$when = $beginning ? 1 : 0;
+
+		if ($rate == 0) {
+			$pv = -$future_value - ($payment * $periods);
+			return self::checkZero($pv);
+		}
+
+		$initial  = 1 + ($rate * $when);
+		$compound = \pow(1 + $rate, $periods);
+		$pv       = (-$future_value - (($payment * $initial * ($compound - 1)) / $rate)) / $compound;
+
+		return self::checkZero($pv);
+	}
+
+	/**
+	 * Net present value of cash flows. Cash flows are periodic starting
+	 * from an initial time and with a uniform discount rate.
+	 *
+	 * Similar to the =NPV() function in most spreadsheet software, except
+	 * the initial (usually negative) cash flow at time 0 is given as the
+	 * first element of the array rather than subtracted. For example,
+	 *   spreadsheet: =NPV(0.01, 100, 200, 300, 400) - 1000
+	 * is done as
+	 *   MathPHP::npv(0.01, [-1000, 100, 200, 300, 400])
+	 *
+	 * The basic net-present-value formula derivation:
+	 * https://en.wikipedia.org/wiki/Net_present_value
+	 *
+	 *  n      Rt
+	 *  Σ   --------
+	 * t=0  (1 / r)ᵗ
+	 *
+	 * Examples:
+	 * The net present value of 5 yearly cash flows after an initial $1000
+	 * investment with a 3% discount rate:
+	 *  npv(0.03, [-1000, 100, 500, 300, 700, 700])
+	 *
+	 * @param  float $rate
+	 * @param  array<float> $values
+	 *
+	 * @return float
+	 */
+	public static function npv(float $rate, array $values): float
+	{
+		$result = 0.0;
+
+		for ($i = 0; $i < \count($values); ++$i) {
+			$result += $values[$i] / (1 + $rate) ** $i;
+		}
+
+		return $result;
+	}
+
+	/**
+	 * Interest rate per period of an Annuity.
+	 *
+	 * Same as the =RATE() formula in most spreadsheet software.
+	 *
+	 * The basic rate formula derivation is to solve for the future value
+	 * taking into account the present value:
+	 * https://en.wikipedia.org/wiki/Future_value
+	 *
+	 *                        ((1+r)ᴺ - 1)
+	 * FV + PV*(1+r)ᴺ + PMT * ------------ = 0
+	 *                             r
+	 * The (1+r*when) factor adjusts the payment to the beginning or end
+	 * of the period. In the common case of a payment at the end of a period,
+	 * the factor is 1 and reduces to the formula above. Setting when=1 computes
+	 * an "annuity due" with an immediate payment.
+	 *
+	 * Not all solutions for the rate have real-value solutions or converge.
+	 * In these cases, NAN is returned.
+	 *
+	 * @param  float $periods
+	 * @param  float $payment
+	 * @param  float $present_value
+	 * @param  float $future_value
+	 * @param  bool  $beginning
+	 * @param  float $initial_guess
+	 *
+	 * @return float
+	 */
+	public static function rate(float $periods, float $payment, float $present_value, float $future_value, bool $beginning = false, float $initial_guess = 0.1): float
+	{
+		$when = $beginning ? 1 : 0;
+
+		$func = function ($x, $periods, $payment, $present_value, $future_value, $when) {
+			return $future_value + $present_value * (1 + $x) ** $periods + $payment * (1 + $x * $when) / $x * ((1 + $x) ** $periods - 1);
+		};
+
+		return self::checkZero(NumericalAnalysis\RootFinding\NewtonsMethod::solve($func, [$initial_guess, $periods, $payment, $present_value, $future_value, $when], 0, self::EPSILON, 0));
+	}
+
+	/**
+	 * Internal rate of return.
+	 * Periodic rate of return that would provide a net-present value (NPV) of 0.
+	 *
+	 * Same as =IRR formula in most spreadsheet software.
+	 *
+	 * Reference:
+	 * https://en.wikipedia.org/wiki/Internal_rate_of_return
+	 *
+	 * Examples:
+	 * The rate of return of an initial investment of $100 with returns
+	 * of $50, $40, and $30:
+	 *  irr([-100, 50, 40, 30])
+	 *
+	 * Solves for NPV=0 using Newton's Method.
+	 * @param array<float> $values
+	 * @param float $initial_guess
+	 *
+	 * @return float
+	 *
+	 * @throws OutOfBoundsException
+	 *
+	 * @todo: Use eigenvalues to find the roots of a characteristic polynomial.
+	 * This will allow finding all solutions and eliminate the need of the initial_guess.
+	 */
+	public static function irr(array $values, float $initial_guess = 0.1): float
+	{
+		$func = function ($x, $values) {
+			return Finance::npv($x, $values);
+		};
+
+		if (\count($values) <= 1) {
+			return \NAN;
+		}
+
+		$root = NumericalAnalysis\RootFinding\NewtonsMethod::solve($func, [$initial_guess, $values], 0, self::EPSILON, 0);
+		if (!\is_nan($root)) {
+			return self::CheckZero($root);
+		}
+		return self::checkZero(self::alternateIrr($values));
+	}
+
+	/**
+	 * Alternate IRR implementation.
+	 *
+	 * A more numerically stable implementation that converges to only one value.
+	 *
+	 * Based off of Better: https://github.com/better/irr
+	 *
+	 * @param  array<float> $values
+	 *
+	 * @return float
+	 */
+	private static function alternateIrr(array $values): float
+	{
+		$rate = 0.0;
+		for ($iter = 0; $iter < 100; $iter++) {
+			$m = -1000;
+			for ($i = 0; $i < \count($values); $i++) {
+				$m = \max($m, -$rate * $i);
+			}
+			$f = [];
+			for ($i = 0; $i < \count($values); $i++) {
+				$f[$i] = \exp(-$rate * $i - $m);
+			}
+			$t = 0;
+			for ($i = 0; $i < \count($values); $i++) {
+				$t += $f[$i] * $values[$i];
+			}
+			if (\abs($t) < (self::EPSILON * \exp($m))) {
+				break;
+			}
+			$u = 0;
+			for ($i = 0; $i < \count($values); $i++) {
+				$u += $f[$i] * $i * $values[$i];
+			}
+			if ($u == 0) {
+				return \NAN;
+			}
+			$rate += $t / $u;
+		}
+		return \exp($rate) - 1;
+	}
+
+	/**
+	 * Modified internal rate of return.
+	 * Rate of return that discounts outflows (investments) at the financing rate,
+	 * and reinvests inflows with an expected rate of return.
+	 *
+	 * Same as =MIRR formula in most spreadsheet software.
+	 *
+	 * The formula derivation:
+	 * https://en.wikipedia.org/wiki/Modified_internal_rate_of_return
+	 *
+	 *       _____________________________
+	 *     n/ FV(re-invested cash inflows)
+	 *  -  /  ----------------------------  - 1.0
+	 *   \/   PV(discounted cash outflows)
+	 *
+	 * Examples:
+	 * The rate of return of an initial investment of $100 at 5% financing
+	 * with returns of $50, $40, and $30 reinvested at 10%:
+	 *  mirr([-100, 50, 40, 30], 0.05, 0.10)
+	 *
+	 * @param  array<float> $values
+	 * @param  float $finance_rate
+	 * @param  float $reinvestment_rate
+	 *
+	 * @return float
+	 */
+	public static function mirr(array $values, float $finance_rate, float $reinvestment_rate): float
+	{
+		$inflows  = array();
+		$outflows = array();
+
+		for ($i = 0; $i < \count($values); $i++) {
+			if ($values[$i] >= 0) {
+				$inflows[]  = $values[$i];
+				$outflows[] = 0;
+			} else {
+				$inflows[]  = 0;
+				$outflows[] = $values[$i];
+			}
+		}
+
+		$nonzero = function ($x) {
+			return $x != 0;
+		};
+
+		if (\count(\array_filter($inflows, $nonzero)) == 0 || \count(\array_filter($outflows, $nonzero)) == 0) {
+			return \NAN;
+		}
+
+		$root        = \count($values) - 1;
+		$pv_inflows  = self::npv($reinvestment_rate, $inflows);
+		$fv_inflows  = self::fv($reinvestment_rate, $root, 0, -$pv_inflows);
+		$pv_outflows = self::npv($finance_rate, $outflows);
+
+		return self::checkZero(\pow($fv_inflows / -$pv_outflows, 1 / $root) - 1);
+	}
+
+	/**
+	 * Discounted Payback of an investment.
+	 * The number of periods to recoup cash outlays of an investment.
+	 *
+	 * This is commonly used with discount rate=0 as simple payback period,
+	 * but it is not a real financial measurement when it doesn't consider the
+	 * discount rate. Even with a discount rate, it doesn't consider the cost
+	 * of capital or re-investment of returns.
+	 *
+	 * Avoid this when possible. Consider NPV, MIRR, IRR, and other financial
+	 * functions.
+	 *
+	 * Reference:
+	 * https://en.wikipedia.org/wiki/Payback_period
+	 *
+	 * The result is given assuming cash flows are continous throughout a period.
+	 * To compute payback in terms of whole periods, use ceil() on the result.
+	 *
+	 * An investment could reach its payback period before future cash outlays occur.
+	 * The payback period returned is defined to be the final point at which the
+	 * sum of returns becomes positive.
+	 *
+	 * Examples:
+	 * The payback period of an investment with a $1,000 investment and future returns
+	 * of $100, $200, $300, $400, $500:
+	 *  payback([-1000, 100, 200, 300, 400, 500])
+	 *
+	 * The discounted payback period of an investment with a $1,000 investment, future returns
+	 * of $100, $200, $300, $400, $500, and a discount rate of 0.10:
+	 *  payback([-1000, 100, 200, 300, 400, 500], 0.1)
+	 *
+	 * @param  array<float> $values
+	 * @param  float $rate
+	 *
+	 * @return float
+	 */
+	public static function payback(array $values, float $rate = 0.0): float
+	{
+		$last_outflow = -1;
+		for ($i = 0; $i < \count($values); $i++) {
+			if ($values[$i] < 0) {
+				$last_outflow = $i;
+			}
+		}
+
+		if ($last_outflow < 0) {
+			return 0.0;
+		}
+
+		$sum            = $values[0];
+		$payback_period = -1;
+
+		for ($i = 1; $i < \count($values); $i++) {
+			$prevsum         = $sum;
+			$discounted_flow = $values[$i] / (1 + $rate) ** $i;
+			$sum            += $discounted_flow;
+			if ($sum >= 0) {
+				if ($i > $last_outflow) {
+					return ($i - 1) + (-$prevsum / $discounted_flow);
+				}
+				if ($payback_period == -1) {
+					$payback_period = ($i - 1) + (-$prevsum / $discounted_flow);
+				}
+			} else {
+				$payback_period = -1;
+			}
+		}
+		if ($sum >= 0) {
+			return $payback_period;
+		}
+
+		return \NAN;
+	}
+
+	/**
+	 * Profitability Index.
+	 * The Profitability Index, also referred to as Profit Investment
+	 * Ratio (PIR) and Value Investment Ratio (VIR), is a comparison of
+	 * discounted cash inflows to discounted cash outflows. It can be
+	 * used as a decision criteria of an investment, using larger than 1
+	 * to choose an investment, and less than 1 to pass.
+	 *
+	 * The formula derivation:
+	 * https://en.wikipedia.org/wiki/Profitability_index
+	 *
+	 * PV(cash inflows)
+	 * ----------------
+	 * PV(cash outflows)
+	 *
+	 * The formula is usually stated in terms of the initial investmest,
+	 * but it is generalized here to discount all future outflows.
+	 *
+	 * Examples:
+	 * The profitability index of an initial $100 investment with future
+	 * returns of $50, $50, $50 with a 10% discount rate:
+	 *  profitabilityIndex([-100, 50, 50, 50], 0.10)
+	 *
+	 * @param  array<float> $values
+	 * @param  float $rate
+	 *
+	 * @return float
+	 */
+	public static function profitabilityIndex(array $values, float $rate): float
+	{
+		$inflows  = array();
+		$outflows = array();
+
+		for ($i = 0; $i < \count($values); $i++) {
+			if ($values[$i] >= 0) {
+				$inflows[]  = $values[$i];
+				$outflows[] = 0;
+			} else {
+				$inflows[]  = 0;
+				$outflows[] = -$values[$i];
+			}
+		}
+
+		$nonzero = function ($x) {
+			return $x != 0;
+		};
+
+		if (\count(\array_filter($outflows, $nonzero)) == 0) {
+			return \NAN;
+		}
+
+		$pv_inflows  = self::npv($rate, $inflows);
+		$pv_outflows = self::npv($rate, $outflows);
+
+		return $pv_inflows / $pv_outflows;
+	}
 }

Spacing +7 added lines, -7 removed lines

@@ -88,10 +88,10 @@ 
         $when = $beginning ? 1 : 0;
 
         if ($rate == 0) {
-            return - ($future_value + $present_value) / $periods;
+            return -($future_value + $present_value) / $periods;
         }
 
-        return - ($future_value + ($present_value * \pow(1 + $rate, $periods)))
+        return -($future_value + ($present_value * \pow(1 + $rate, $periods)))
             /
             ((1 + $rate * $when) / $rate * (\pow(1 + $rate, $periods) - 1));
     }
@@ -251,7 +251,7 @@ 
         $when = $beginning ? 1 : 0;
 
         if ($rate == 0) {
-            return - ($present_value + $future_value) / $payment;
+            return -($present_value + $future_value) / $payment;
         }
 
         $initial = $payment * (1.0 + $rate * $when);
@@ -499,7 +499,7 @@ 
     {
         $when = $beginning ? 1 : 0;
 
-        $func = function ($x, $periods, $payment, $present_value, $future_value, $when) {
+        $func = function($x, $periods, $payment, $present_value, $future_value, $when) {
             return $future_value + $present_value * (1 + $x) ** $periods + $payment * (1 + $x * $when) / $x * ((1 + $x) ** $periods - 1);
         };
 
@@ -533,7 +533,7 @@ 
      */
     public static function irr(array $values, float $initial_guess = 0.1): float
     {
-        $func = function ($x, $values) {
+        $func = function($x, $values) {
             return Finance::npv($x, $values);
         };
 
@@ -631,7 +631,7 @@ 
             }
         }
 
-        $nonzero = function ($x) {
+        $nonzero = function($x) {
             return $x != 0;
         };
 
@@ -764,7 +764,7 @@ 
             }
         }
 
-        $nonzero = function ($x) {
+        $nonzero = function($x) {
             return $x != 0;
         };
 

htdocs/includes/markrogoyski/math-php/src/NumericalAnalysis/RootFinding/NewtonsMethod.php

Indentation +43 added lines, -43 removed lines

@@ -12,50 +12,50 @@
  */
 class NewtonsMethod
 {
-    /**
-     * Use Newton's Method to find the x which produces $target = $function(x) value
-     * $args is an array of parameters to pass to $function, but having the element that
-     * will be changed and serve as the initial guess in position $position.
-     *
-     * @param callable     $function     f(x) callback function
-     * @param array<mixed> $args         Parameters to pass to callback function. The initial value for the
-     *                                   parameter of interest must be in this array.
-     * @param int|float    $target       Value of f(x) we a trying to solve for
-     * @param float        $tol          Tolerance; How close to the actual solution we would like.
-     * @param int          $position     Which element in the $args array will be changed; also serves as initial guess
-     * @param int          $iterations
-     *
-     * @return int|float
-     *
-     * @throws Exception\OutOfBoundsException if the tolerance is not valid
-     */
-    public static function solve(callable $function, array $args, $target, float $tol, int $position = 0, int $iterations = 100)
-    {
-        Validation::tolerance($tol);
+	/**
+	 * Use Newton's Method to find the x which produces $target = $function(x) value
+	 * $args is an array of parameters to pass to $function, but having the element that
+	 * will be changed and serve as the initial guess in position $position.
+	 *
+	 * @param callable     $function     f(x) callback function
+	 * @param array<mixed> $args         Parameters to pass to callback function. The initial value for the
+	 *                                   parameter of interest must be in this array.
+	 * @param int|float    $target       Value of f(x) we a trying to solve for
+	 * @param float        $tol          Tolerance; How close to the actual solution we would like.
+	 * @param int          $position     Which element in the $args array will be changed; also serves as initial guess
+	 * @param int          $iterations
+	 *
+	 * @return int|float
+	 *
+	 * @throws Exception\OutOfBoundsException if the tolerance is not valid
+	 */
+	public static function solve(callable $function, array $args, $target, float $tol, int $position = 0, int $iterations = 100)
+	{
+		Validation::tolerance($tol);
 
-        // Initialize
-        $args1 = $args;
-        $guess = $args[$position];
-        $i     = 0;
+		// Initialize
+		$args1 = $args;
+		$guess = $args[$position];
+		$i     = 0;
 
-        do {
-            $args1[$position] = $guess + $tol; // load the initial guess into the arguments
-            $args[$position]  = $guess;        // load the initial guess into the arguments
-            $y                = $function(...$args);
-            $y_at_xplusdelx   = $function(...$args1);
-            $slope            = ($y_at_xplusdelx - $y) / $tol;
-            $del_y            = $target - $y;
-            if (\abs($slope) < $tol) {
-                return \NAN;
-            }
-            $guess            = $del_y / $slope + $guess;
-            $dif              = \abs($del_y);
-            $i++;
-        } while ($dif > $tol && $i < $iterations);
+		do {
+			$args1[$position] = $guess + $tol; // load the initial guess into the arguments
+			$args[$position]  = $guess;        // load the initial guess into the arguments
+			$y                = $function(...$args);
+			$y_at_xplusdelx   = $function(...$args1);
+			$slope            = ($y_at_xplusdelx - $y) / $tol;
+			$del_y            = $target - $y;
+			if (\abs($slope) < $tol) {
+				return \NAN;
+			}
+			$guess            = $del_y / $slope + $guess;
+			$dif              = \abs($del_y);
+			$i++;
+		} while ($dif > $tol && $i < $iterations);
 
-        if ($dif > $tol) {
-            return \NAN;
-        }
-        return $guess;
-    }
+		if ($dif > $tol) {
+			return \NAN;
+		}
+		return $guess;
+	}
 }

Spacing +1 added lines, -1 removed lines

@@ -40,7 +40,7 @@
 
         do {
             $args1[$position] = $guess + $tol; // load the initial guess into the arguments
-            $args[$position]  = $guess;        // load the initial guess into the arguments
+            $args[$position]  = $guess; // load the initial guess into the arguments
             $y                = $function(...$args);
             $y_at_xplusdelx   = $function(...$args1);
             $slope            = ($y_at_xplusdelx - $y) / $tol;

htdocs/includes/markrogoyski/math-php/src/NumericalAnalysis/RootFinding/Validation.php

Indentation +27 added lines, -27 removed lines

@@ -9,32 +9,32 @@
  */
 class Validation
 {
-    /**
-     * Throw an exception if the tolerance is negative.
-     *
-     * @param int|float $tol Tolerance; How close to the actual solution we would like.
-     *
-     * @throws Exception\OutOfBoundsException if $tol (the tolerance) is negative
-     */
-    public static function tolerance($tol): void
-    {
-        if ($tol < 0) {
-            throw new Exception\OutOfBoundsException('Tolerance must be greater than zero.');
-        }
-    }
+	/**
+	 * Throw an exception if the tolerance is negative.
+	 *
+	 * @param int|float $tol Tolerance; How close to the actual solution we would like.
+	 *
+	 * @throws Exception\OutOfBoundsException if $tol (the tolerance) is negative
+	 */
+	public static function tolerance($tol): void
+	{
+		if ($tol < 0) {
+			throw new Exception\OutOfBoundsException('Tolerance must be greater than zero.');
+		}
+	}
 
-    /**
-     * Verify that the start and end of of an interval are distinct numbers.
-     *
-     * @param int|float $a The start of the interval
-     * @param int|float $b The end of the interval
-     *
-     * @throws Exception\BadDataException if $a = $b
-     */
-    public static function interval($a, $b): void
-    {
-        if ($a === $b) {
-            throw new Exception\BadDataException('Start point and end point of interval cannot be the same.');
-        }
-    }
+	/**
+	 * Verify that the start and end of of an interval are distinct numbers.
+	 *
+	 * @param int|float $a The start of the interval
+	 * @param int|float $b The end of the interval
+	 *
+	 * @throws Exception\BadDataException if $a = $b
+	 */
+	public static function interval($a, $b): void
+	{
+		if ($a === $b) {
+			throw new Exception\BadDataException('Start point and end point of interval cannot be the same.');
+		}
+	}
 }

htdocs/api/index.php

Spacing +4 added lines, -4 removed lines

@@ -91,7 +91,7 @@ 
 
 require_once DOL_DOCUMENT_ROOT.'/includes/restler/framework/Luracast/Restler/AutoLoader.php';
 
-call_user_func(function () {
+call_user_func(function() {
 	$loader = Luracast\Restler\AutoLoader::instance();
 	spl_autoload_register($loader);
 	return $loader;
@@ -112,7 +112,7 @@ 
 }
 
 // Enable and test if module Api is enabled
-if (!isModEnabled('api') ) {
+if (!isModEnabled('api')) {
 	$langs->load("admin");
 	dol_syslog("Call of Dolibarr API interfaces with module API REST are disabled");
 	print $langs->trans("WarningModuleNotActive", 'Api').'.<br><br>';
@@ -169,7 +169,7 @@ 
 // If MAIN_API_DEBUG is set to 1, we save logs into file "dolibarr_api.log"
 if (!empty($conf->global->MAIN_API_DEBUG)) {
 	$r = $api->r;
-	$r->onCall(function () use ($r) {
+	$r->onCall(function() use ($r) {
 		// Don't log Luracast Restler Explorer recources calls
 		//if (!preg_match('/^explorer/', $r->url)) {
 		//	'method'  => $api->r->requestMethod,
@@ -354,7 +354,7 @@ 
 			}
 		}
 
-		if (! $endpointisallowed) {
+		if (!$endpointisallowed) {
 			dol_syslog('The API with endpoint /'.$classfile.' is forbidden by config API_ENDPOINT_RULES', LOG_WARNING);
 			print 'The API with endpoint /'.$classfile.' is forbidden by config API_ENDPOINT_RULES';
 			header('HTTP/1.1 501 API is forbidden by API_ENDPOINT_RULES');