removed QWQNG, added stdin

2024-03-02 17:58:28 +02:00 · 2024-03-02 17:58:28 +02:00 · 0fe369bc5a
commit 0fe369bc5a
39 changed files with 3095 additions and 0 deletions
--- a/RandTest/Monkey.cpp
+++ b/RandTest/Monkey.cpp
@ -0,0 +1,102 @@
+//#include "StdAfx.h"
+#include "Monkey.h"
+#include "math.h"
+
+CMonkey::CMonkey(void)
+{
+    CreateChi2Test();
+
+	pow2_32 = pow( 2.0, 32 );
+	ResetAll();
+}
+
+CMonkey::~CMonkey(void)
+{
+    delete MetaChi2;
+}
+
+
+// Submits a 32 bit word for OQSO testing
+void CMonkey::InsertWord32(uint32_t InWord32)
+{
+    WordStream >>= 32;
+    WordStream |= (uint64_t)InWord32 << 32;
+
+	// Submit as many overlapped words as possible from wordstream
+	while ( LetterPointer >= 0 )
+	{
+		// Word is 20 bits long, overlapped every 5 bits
+		CurrentWord = (uint32_t)(WordStream>>LetterPointer);
+		CurrentWord &= 0x000fffff;
+
+		if ( !(MonkeyBitmap.CheckWord( CurrentWord )) )
+			MissingWords--;
+
+		// Test 2097152 words (or 10485775 bits)
+		WordCount++;
+		if ( WordCount>=2097152 )
+		{
+			// Calc current and cumulative z-scores
+			totalBlockCount++;
+
+            //double UnitZScore = -((double)MissingWords-141909.1945)/294.656;
+			
+            MetaChi2->Insert(MissingWords);
+
+			//ZScoreTotal += UnitZScore;
+			MissingWordsTotal += (uint64_t)MissingWords;
+			
+            P_Chi2 = MetaChi2->GetPvalue();
+
+			if (totalBlockCount!=0) {
+				//cumulativeZScore = ZScoreTotal / sqrt(totalBlockCount);
+				cumulativeZScore = -((double)MissingWordsTotal - (totalBlockCount * 141909.104)) / (sqrt(totalBlockCount) * 294.656);
+			}
+
+			ResetTest();
+		}
+
+		LetterPointer -= 5;
+	}
+	
+	LetterPointer += 32;
+}
+
+// Resets cumulative and current test
+void CMonkey::ResetAll(void)
+{
+	cumulativeZScore = 0;
+	WordStream = 0;
+	ZScoreTotal = 0;
+	MissingWordsTotal = 0;
+	totalBlockCount = 0.;
+	LetterPointer = 12;
+	P_Chi2 = .5;
+    MetaChi2->Reset();
+
+	ResetTest();
+}
+
+// Resets current test
+void CMonkey::ResetTest(void)
+{
+	MissingWords = 1048576;
+	MonkeyBitmap.Clearmap();
+	WordCount = 0;
+}
+
+void CMonkey::CreateChi2Test(void) {
+    double pTable[] = {
+        0.020035263116770285, 0.04007592896841139, 0.059900259673160094, 0.07990555454845777, 0.09973585094717441, 0.12019013336507156, 0.14037340713890295, 0.16024040737242062, 0.18006661762415743, 0.20040959652731188, 0.22005106263679536, 0.2407529898402695, 0.26025548231499596, 0.2805415527829255, 0.300377215413428, 0.3208231113598671, 0.3405774462690355, 0.36077911411228614, 0.38137696414272143, 0.4009988146079183, 0.4208736799354211, 0.4409523283066323, 0.4611839548890032, 0.4815165669138008, 0.5018973841149283, 0.522273249393845, 0.5425910443898824, 0.5614554567534166, 0.5815124046447061, 0.6026740748901427, 0.6222435463400903, 0.6427760999481655, 0.6616581917860309, 0.6825745983586168, 0.7017433191528237, 0.722654551841068, 0.7428220165027213, 0.7621991815446298, 0.7817526213870567, 0.8022460422705294, 0.8224190682008065, 0.8420653268505389, 0.8617367254552067, 0.8817041720232961, 0.9019201354926609, 0.9214978872400847, 0.9412230272875216, 0.9610265302820049, 0.981060464990248, 1.0
+    };
+
+    double boundaryTable[] = {
+        141306, 141395, 141452, 141496, 141532, 141564, 141592, 141617, 141640, 141662,
+        141682, 141702, 141720, 141738, 141755, 141772, 141788, 141804, 141820, 141835,
+        141850, 141865, 141880, 141895, 141910, 141925, 141940, 141954, 141969, 141985,
+        142000, 142016, 142031, 142048, 142064, 142082, 142100, 142118, 142137, 142158,
+        142180, 142203, 142228, 142256, 142288, 142324, 142368, 142426, 142518, 1e100
+    };
+
+    MetaChi2 = new Chi2(50, pTable, true, boundaryTable, false);
+}