From ee21da1311b64f4fd1104b6286e6fd614c954516 Mon Sep 17 00:00:00 2001
From: Jiri Pittner <jiri@pittnerovi.com>
Date: Mon, 22 Nov 2021 23:06:22 +0100
Subject: [PATCH] simple fit weight scaling

---
 simple.h | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/simple.h b/simple.h
index d106bd1..786073f 100644
--- a/simple.h
+++ b/simple.h
@@ -117,7 +117,7 @@ int npoints;
 			rhsmat[0][i] += funcs[i]*y;
 			}
 		}
-	T solve(bool preserve=false)
+	T solve(const T preserve=0)
 		{
 		//for(int i=0; i<n; ++i)  {for(int j=0; j<n; ++j) std::cout <<fitmat[i][j]<<" "; std::cout<<std::endl;}
 		//for(int j=0; j<n; ++j) std::cout <<rhsmat[0][j]<<" "; std::cout<<std::endl;
@@ -128,6 +128,11 @@ int npoints;
 			T rhswork[1][n];memcpy(rhswork,rhsmat,1*n*sizeof(T));
 			T det = simple_gaussj(fitwork,rhswork);
                 	memcpy(&fitcoef[0],&rhswork[0][0],n*sizeof(T));
+			if(preserve!=(T)1) //scale weight of old data points
+				{
+				for(int i=0; i<n; ++i)  for(int j=0; j<n; ++j) fitmat[i][j] *= preserve;
+				for(int i=0; i<n; ++i) rhsmat[0][i] *= preserve;
+				}
                 	return det;
 			}
 		T det = simple_gaussj(fitmat,rhsmat);