TilingSize.cm
Bertrand Serlet August 24, 1987 0:24:21 am PDT
Install PWCore
Run TilingSize
← &rows ← TilingSize.Rows[10, 50]
← &record ← TilingSize.Record[10, 50]
← &tiling ← TilingSize.Tiles[10, 50]
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -g
← &rows ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &record ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &tiling ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &dummy ← NIL
← &rows ← TilingSize.Rows[20, 50]
← &record ← TilingSize.Record[20, 50]
← &tiling ← TilingSize.Tiles[20, 50]
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -g
← &rows ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &record ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &tiling ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &dummy ← NIL
← &rows ← TilingSize.Rows[20, 100]
← &record ← TilingSize.Record[20, 100]
← &tiling ← TilingSize.Tiles[20, 100]
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -g
← &rows ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &record ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &tiling ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
TakeHeapStats -d -g
← &dummy ← NIL
In words, For 10, 50:
rows: 65582 71302 1574W 498CI 46CT
record: 16180 16384 715W 527CI 4CT
tiling: 11092 7486 496T 147W
In words, For 20, 50:
rows: 117832 130768 132212 110100 3011W 1042CI 51CT
record: 12304 19604 24756 33032 1008W 755CI 1CT
tiling: 75764 35166 25506 44730 970T 293W
In words, For 20, 100:
rows: 254034 252692 5811W 2046CI 99CT
record: 59776 70360 2038W 1205CI 3CT
tiling: 42286 51234 1935T 569W
rows = XX * n * p + YY * n + ZZ * p + WW
record = XX * n * p + YY * n + ZZ * p + WW
tiling = XX * n * p + YY * n + ZZ * p + WW