Er is slordigheid in de macro geslopen. De module die testpatronen maakt, patronen die 10% afwijken van de oorspronkelijke, is niet bestand tegen veranderingen in het soort patronen. Omdat de code voor mij al haast ondoorgrondelijk was lijkt het me een beetje veel gevraagd om jullie dat te laten aanpassen. Daarom zit als 'attachment' een robuuster stukje code van een stagiair voor het maken van afwijkingen. Het bevat een procedure 'makedistortedpat' (of een dergelijke naam) die je in de plaats moet zetten van de procedure met dezelfde naam in het oorspr. script. Ook moet je een regel in de 'test'-procedure veranderen; welke dat is wordt uitgelegd.

martijn

Public Sub MakeDistortedPat(ByRef pat, patterns(), ByRef distortedPat(), ByRef nrOfFlips)

End Sub

Verder moet de 'initialisatieregel' voor 'nrOfFlips' aangepast worden in de TEST procedure (is hierin de laatste van een aantal initialisaties).

code was: nrOfFlips = patternLength / nrOfNodes * 10

code moet worden: nrOfFlips = Int((patternLength / 10) + 0.5)