QAT Code: The Visual Cluster Method - Revision history

XenoEngineer: XenoEngineer moved page QAT Code: The Visual Gather Method to QAT Code: The Visual Cluster Method over a redirect without leaving a redirect

2024-02-13T19:09:05Z

XenoEngineer moved page QAT Code: The Visual Gather Method to QAT Code: The Visual Cluster Method over a redirect without leaving a redirect

← Older revision	Revision as of 19:09, 13 February 2024
(No difference)

XenoEngineer at 13:25, 13 February 2024

2024-02-13T13:25:05Z

← Older revision		Revision as of 13:25, 13 February 2024
Line 4:		Line 4:

	<pre style="background:#222; color:lime; overflow:both; height:600px; border:7px outset black; padding:0 10px; max-width:880px; margin:0 auto; font-family:monospace;">		<pre style="background:#222; color:lime; overflow:both; height:600px; border:7px outset black; padding:0 10px; max-width:880px; margin:0 auto; font-family:monospace;">
			'' ##### #### ###### ## ## ##### #### #### #### ##### ######
			'' ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
			'' ##### #### #### ## ## ## ## ## ## ## ## ## ## ## ####
			'' ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
			'' ## #### ###### #### ##### #### #### #### ##### ######

	// Define subroutine iFnData_ClusterAtomsRadial with parameters oTopic (reference) and optional MaxKiloIters with default value "100"		// Define subroutine iFnData_ClusterAtomsRadial with parameters oTopic (reference) and optional MaxKiloIters with default value "100"
	SUBROUTINE iFnData_ClusterAtomsRadial(oTopic, MaxKiloIters = "100")		SUBROUTINE iFnData_ClusterAtomsRadial(oTopic, MaxKiloIters = "100")
Line 73:		Line 79:

	Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")		Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")
	~~'' ##### #### ###### ## ## ##### #### #### #### ##### ######~~
	~~'' ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##~~
	~~'' ##### #### #### ## ## ## ## ## ## ## ## ## ## ## ####~~
	~~'' ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##~~
	~~'' ## #### ###### #### ##### #### #### #### ##### ######~~

	Dim AtomA As clsAtom		Dim AtomA As clsAtom
	Dim AtomB As clsAtom		Dim AtomB As clsAtom

XenoEngineer at 13:24, 13 February 2024

2024-02-13T13:24:31Z

@@ Line 2: / Line 2: @@
 {{headerQuasiAI|subcat=QAT.code}}
 {{headerQATcode| <small><small>&mdash;The Visual Randomized-Gather Method</small></small>  }}
 <pre style="background:#222; color:lime; overflow:both; height:600px; border:7px outset black; padding:0 1em; width:auto; font-family:monospace;">
 Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")
      Dim AtomA As clsAtom

XenoEngineer at 13:56, 25 July 2023

2023-07-25T13:56:47Z

← Older revision		Revision as of 13:56, 25 July 2023
Line 1:		Line 1:
			{{contentWrapper}}
	{{headerQuasiAI\|subcat=QAT.code}}		{{headerQuasiAI\|subcat=QAT.code}}
	{{headerQATcode\|: The Visual Randomized-Gather Method}}		{{headerQATcode\| <small><small>—The Visual Randomized-Gather Method</small></small> }}
			<pre style="background:#222; color:lime; overflow:both; height:600px; border:7px outset black; padding:0 1em; width:auto; font-family:monospace;">

	<pre style="background:#222; color:lime; overflow:both; height:600px; border:7px outset black~~; margin:0 5em~~; padding:0 1em; width:auto; font-family:monospace;">

	Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")		Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")
Line 156:		Line 155:

	</pre>		</pre>
			{{closeWrapper}}

XenoEngineer at 13:30, 13 July 2023

2023-07-13T13:30:53Z

← Older revision		Revision as of 13:30, 13 July 2023
Line 3:		Line 3:


	<pre style="background:#222; color:lime; overflow:both; border:7px outset black; margin:~~1em 2em~~; padding:0 1em; width:~~888px~~; font-family:monospace;">		<pre style="background:#222; color:lime; overflow:both; height:600px; border:7px outset black; margin:0 5em; padding:0 1em; width:auto; font-family:monospace;">

	Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")		Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")

XenoEngineer: XenoEngineer moved page QAT Code: The Visual Cluster Method to QAT Code: The Visual Gather Method

2023-07-13T13:06:31Z

XenoEngineer moved page QAT Code: The Visual Cluster Method to QAT Code: The Visual Gather Method

← Older revision	Revision as of 13:06, 13 July 2023
(No difference)

XenoEngineer at 12:17, 13 July 2023

2023-07-13T12:17:25Z

← Older revision		Revision as of 12:17, 13 July 2023
Line 1:		Line 1:
	{{headerQuasiAI\|subcat=QAT.code}}		{{headerQuasiAI\|subcat=QAT.code}}
	{{headerQATcode\|: The Visual ~~Cluster~~ Method}}		{{headerQATcode\|: The Visual Randomized-Gather Method}}


Line 22:		Line 22:
	Dim lngMaxIters As Long		Dim lngMaxIters As Long
	Dim lngStartingIters As Long		Dim lngStartingIters As Long

			Const cHeat = 0.67

	Dim col As Collection 'pair counter with hash		Dim col As Collection 'pair counter with hash
	~~'Const cHeat = 0.05~~
	~~'Const cHeat = 0.3~~
	~~Const cHeat = 0.67~~
	~~'Const cHeat = 1~~
	~~'Const cHeat = 1.33~~

	On Error Resume Next		On Error Resume Next

	Set col = New Collection		Set col = New Collection ' A VB6 data object of Variant data type by string key.

	Screen.MousePointer = vbArrowHourglass ' ~~because~~ DoEvents is in a loop,		Screen.MousePointer = vbArrowHourglass ' Because DoEvents is in a loop,
	' allowing IterationEnabled to be toggled		' allowing IterationEnabled to be toggled
	' while iterating		' while iterating

XenoEngineer at 02:17, 13 July 2023

2023-07-13T02:17:41Z

← Older revision		Revision as of 02:17, 13 July 2023
Line 1:		Line 1:
	{{headerQuasiAI\|subcat=QAT.code}}		{{headerQuasiAI\|subcat=QAT.code}}
	{{headerQATcode\|~~subcat=QAT.cluster~~}}		{{headerQATcode\|: The Visual Cluster Method}}

XenoEngineer at 20:26, 12 July 2023

2023-07-12T20:26:21Z

← Older revision		Revision as of 20:26, 12 July 2023
Line 1:		Line 1:
			{{headerQuasiAI\|subcat=QAT.code}}
	{{headerQATcode\|subcat=QAT.cluster}}		{{headerQATcode\|subcat=QAT.cluster}}

	~~===<b><big>Answer sought </big></b>in the review of [[Vintage VB6 Code]] is about the existence test of random pairs assembled from A,B sets randomly===~~
	~~::'''Question: Is the index of the Cartesian product table randomly selected?'''~~

	~~I reckon it has to be. Standby...~~		<pre style="background:#222; color:lime; overflow:both; border:7px outset black; margin:1em 2em; padding:0 1em; width:888px; font-family:monospace;">


	~~<div style="background:azure; border:1px outset azure; margin:1em 2em; padding:0 1em; width:888px;">~~
	~~<pre >~~
	Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")		Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")

Line 53:		Line 49:
	While mbooIteration And (ndx < lngMaxIters)		While mbooIteration And (ndx < lngMaxIters)

	DoEvents 'allowing IterationEnabled to be toggled		DoEvents 'allowing IterationEnabled to be toggled in another VB click-event thread, or command call.

	With oTopic.Atoms		With oTopic.Atoms
	' Randomly select two atoms		' Randomly select two atoms
	Set AtomA = .Item(CInt(Rnd * (.Count - 1)) + 1) 'retrieve Atom by random ordinal		Set AtomA = .Item(CInt(Rnd * (.Count - 1)) + 1) 'retrieve Atom A by random ordinal
	Set AtomB = .Item(CInt(Rnd * (.Count - 1)) + 1)		Set AtomB = .Item(CInt(Rnd * (.Count - 1)) + 1) 'retrieve Atom B by random ordinal, also
	End With		End With

Line 112:		Line 108:
	AtomA.Degree = intAngle1		AtomA.Degree = intAngle1
	AtomB.Degree = intAngle2		AtomB.Degree = intAngle2

	End If 'PairExists(strPair)		End If 'PairExists(strPair)

Line 129:		Line 126:
	'Debug.Print oTopic.Meta.Iters; ndx		'Debug.Print oTopic.Meta.Iters; ndx

	' Send ~~notifacation~~ message		' Send notification message
	RaiseEvent AtomDistributionChangedRadial(oTopic)		RaiseEvent AtomDistributionChangedRadial(oTopic)

Line 160:		Line 157:

	End Sub		End Sub

	</pre>		</pre>
	~~</div>~~

XenoEngineer at 19:59, 12 July 2023

2023-07-12T19:59:52Z

← Older revision		Revision as of 19:59, 12 July 2023
Line 8:		Line 8:

	<div style="background:azure; border:1px outset azure; margin:1em 2em; padding:0 1em; width:888px;">		<div style="background:azure; border:1px outset azure; margin:1em 2em; padding:0 1em; width:888px;">
			<pre >
	Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")		Private Sub iFnData_ClusterAtomsRadial(ByRef oTopic As iTopic, Optional ByVal MaxKiloIters As String = "100")

Line 160:		Line 160:

	End Sub		End Sub
			</pre>
	</div>		</div>