Ψηφιακό σχολείο - Μαθηματικά Β΄ Γυμνασίου - Α.4.1. Δειγματοληψία

Πληθυσμός

Πληθυσμός

Δείγμα

Παρακάτω έχουμε μπάλες σε διάφορα χρώματα. Να επιλέξετε ένα μικρό πλήθος από μπάλες (π.χ. 10 ή 15) 
και να τις τοποθετήστε στην περιοχή του δείγματος φροντίζοντας να είναι αντιπροσωπευτικό του πληθυσμού.
Μπορείτε να μετακινήσετε είτε τις μπάλες είτε την περιοχή του δείγματος.

Βοήθεια (οπτική επαλήθευση)

Να προτείνετε στην τάξη έναν τρόπο με τον οποίο να μπορεί να ελεγχθεί κατά πόσο ένα δείγμα είναι 
αντιπροσωπευτικό του πληθυσμού. Στη συνέχεια να εφαρμόσετε τον τρόπο αυτόν στο δείγμα που επιλέξατε.
Τελικά, το δείγμα που επιλέξατε είναι αντιπροσωπευτικό του πληθυσμού;
Μπορείτε να επιλέξετε ένα περισσότερο αντιπροσωπευτικό δείγμα;

Δραστηριότητα 1

Δραστηριότητα 2

(μπάλες-δείγμα κλειδωμένα)

Χρειάζεστε βοήθεια στο μέτρημα;

Δραστηριότητα 1

Δραστηριότητα 2

Βοήθεια (οπτική επαλήθευση)

Δείγμα

Δειγματοληψία

GraphValue = 0 (slider from 0 to 1, step 0.01)
Nmin = 50
Nmax = 200
N_0 = Random(Nmin, Nmax)
Visible = Sequence(Random[1, 200] ≤ N_0, i, 1, Nmax)
N = Sum(Visible)
p200 = (19.5, 10.5)
p199 = (18.5, 10.5)
p198 = (17.5, 10.5)
p197 = (16.5, 10.5)
p196 = (15.5, 10.5)
p195 = (14.5, 10.5)
p194 = (13.5, 10.5)
p193 = (12.5, 10.5)
p192 = (11.5, 10.5)
p191 = (10.5, 10.5)
p190 = (9.5, 10.5)
p189 = (8.5, 10.5)
p188 = (7.5, 10.5)
p187 = (10.960503195988485, 2.5873759506892156)
p186 = (5.5, 10.5)
p185 = (4.5, 10.5)
p184 = (10.279136289513666, 4.140892497451804)
p183 = (9.35247729670791, 2.369338540617273)
p182 = (1.5, 10.5)
p181 = (9.434241325484889, 3.9501097636388547)
p180 = (20, 10)
p179 = (19, 10)
p178 = (18, 10)
p177 = (17, 10)
p176 = (16, 10)
p175 = (15, 10)
p174 = (14, 10)
p173 = (13, 10)
p172 = (12, 10)
p171 = (11, 10)
p170 = (10, 10)
p169 = (9, 10)
p168 = (8, 10)
p167 = (7, 10)
p166 = (6, 10)
p165 = (5, 10)
p164 = (4, 10)
p163 = (3, 10)
p162 = (2, 10)
p161 = (1, 10)
p160 = (19.5, 9.5)
p159 = (18.5, 9.5)
p158 = (17.5, 9.5)
p157 = (16.5, 9.5)
p156 = (15.5, 9.5)
p155 = (14.5, 9.5)
p154 = (13.5, 9.5)
p153 = (12.5, 9.5)
p152 = (11.5, 9.5)
p151 = (10.5, 9.5)
p150 = (9.5, 9.5)
p149 = (8.5, 9.5)
p148 = (7.5, 9.5)
p147 = (6.5, 9.5)
p146 = (5.5, 9.5)
p145 = (4.5, 9.5)
p144 = (3.5, 9.5)
p143 = (2.5, 9.5)
p142 = (1.5, 9.5)
p141 = (0.5, 9.5)
p140 = (20, 9)
p139 = (19, 9)
p138 = (18, 9)
p137 = (17, 9)
p136 = (16, 9)
p135 = (15, 9)
p134 = (14, 9)
p133 = (13, 9)
p132 = (12, 9)
p131 = (11, 9)
p130 = (10, 9)
p129 = (9, 9)
p128 = (8, 9)
p127 = (7, 9)
p126 = (6, 9)
p125 = (5, 9)
p124 = (4, 9)
p123 = (3, 9)
p122 = (2, 9)
p121 = (1, 9)
p120 = (19.5, 8.5)
p119 = (18.5, 8.5)
p118 = (17.5, 8.5)
p117 = (16.5, 8.5)
p116 = (15.5, 8.5)
p115 = (14.5, 8.5)
p114 = (13.5, 8.5)
p113 = (12.5, 8.5)
p112 = (11.5, 8.5)
p111 = (10.5, 8.5)
p110 = (9.5, 8.5)
p109 = (8.5, 8.5)
p108 = (7.5, 8.5)
p107 = (6.5, 8.5)
p106 = (5.5, 8.5)
p105 = (4.5, 8.5)
p104 = (3.5, 8.5)
p103 = (2.5, 8.5)
p102 = (1.5, 8.5)
p101 = (0.5, 8.5)
p100 = (20, 8)
p099 = (19, 8)
p098 = (18, 8)
p097 = (17, 8)
p096 = (16, 8)
p095 = (15, 8)
p094 = (14, 8)
p093 = (13, 8)
p092 = (12, 8)
p091 = (11, 8)
p090 = (10, 8)
p089 = (9, 8)
p088 = (8, 8)
p087 = (7, 8)
p086 = (6, 8)
p085 = (5, 8)
p084 = (4, 8)
p083 = (3, 8)
p082 = (2, 8)
p081 = (1, 8)
p080 = (19.5, 7.5)
p079 = (18.5, 7.5)
p078 = (17.5, 7.5)
p077 = (16.5, 7.5)
p076 = (15.5, 7.5)
p075 = (14.5, 7.5)
p074 = (13.5, 7.5)
p073 = (12.5, 7.5)
p072 = (11.5, 7.5)
p071 = (10.5, 7.5)
p070 = (9.5, 7.5)
p069 = (8.5, 7.5)
p068 = (7.5, 7.5)
p067 = (6.5, 7.5)
p066 = (5.5, 7.5)
p065 = (4.5, 7.5)
p064 = (3.5, 7.5)
p063 = (2.5, 7.5)
p062 = (1.5, 7.5)
p061 = (0.5, 7.5)
p060 = (20, 7)
p059 = (19, 7)
p058 = (18, 7)
p057 = (17, 7)
p056 = (16, 7)
p055 = (15, 7)
p054 = (14, 7)
p053 = (13, 7)
p052 = (12, 7)
p051 = (11, 7)
p050 = (10, 7)
p049 = (9, 7)
p048 = (8, 7)
p047 = (7, 7)
p046 = (6, 7)
p045 = (5, 7)
p044 = (4, 7)
p043 = (3, 7)
p042 = (2, 7)
p041 = (1, 7)
p040 = (19.5, 6.5)
p039 = (18.5, 6.5)
p038 = (17.5, 6.5)
p037 = (16.5, 6.5)
p036 = (15.5, 6.5)
p035 = (14.5, 6.5)
p034 = (13.5, 6.5)
p033 = (12.5, 6.5)
p032 = (11.5, 6.5)
p031 = (10.5, 6.5)
p030 = (9.5, 6.5)
p029 = (8.5, 6.5)
p028 = (7.5, 6.5)
p027 = (6.5, 6.5)
p026 = (5.5, 6.5)
p025 = (4.5, 6.5)
p024 = (3.5, 6.5)
p023 = (2.5, 6.5)
p022 = (1.5, 6.5)
p021 = (0.5, 6.5)
p020 = (20, 6)
p019 = (19, 6)
p018 = (18, 6)
p017 = (17, 6)
p016 = (16, 6)
p015 = (15, 6)
p014 = (14, 6)
p013 = (13, 6)
p012 = (12, 6)
p011 = (11, 6)
p010 = (10, 6)
p009 = (9, 6)
p008 = (8, 6)
p007 = (7, 6)
p006 = (6, 6)
p005 = (5, 6)
p004 = (4, 6)
p003 = (3, 6)
p002 = (2, 6)
p001 = (1, 6)
PinList: {p001, p002, p003, p004, p005, p006, p007, p008, p009, p010, p011, p012, p013, p014, p015, p016, p017, p018, p019, p020, p021, p022, p023, p024, p025, p026, p027, p028, p029, p030, p031, p032, p033, p034, p035, p036, p037, p038, p039, p040, p041, p042, p043, p044, p045, p046, p047, p048, p049, p050, p051, p052, p053, p054, p055, p056, p057, p058, p059, p060, p061, p062, p063, p064, p065, p066, p067, p068, p069, p070, p071, p072, p073, p074, p075, p076, p077, p078, p079, p080, p081, p082, p083, p084, p085, p086, p087, p088, p089, p090, p091, p092, p093, p094, p095, p096, p097, p098, p099, p100, p101, p102, p103, p104, p105, p106, p107, p108, p109, p110, p111, p112, p113, p114, p115, p116, p117, p118, p119, p120, p121, p122, p123, p124, p125, p126, p127, p128, p129, p130, p131, p132, p133, p134, p135, p136, p137, p138, p139, p140, p141, p142, p143, p144, p145, p146, p147, p148, p149, p150, p151, p152, p153, p154, p155, p156, p157, p158, p159, p160, p161, p162, p163, p164, p165, p166, p167, p168, p169, p170, p171, p172, p173, p174, p175, p176, p177, p178, p179, p180, p181, p182, p183, p184, p185, p186, p187, p188, p189, p190, p191, p192, p193, p194, p195, p196, p197, p198, p199, p200}
sul = (8.5, 5)
sdr = (12.5, 1)
sx1 = Min(x(sul), x(sdr))
sx2 = Max(x(sul), x(sdr))
sy1 = Min(y(sul), y(sdr))
sy2 = Max(y(sul), y(sdr))
PinInSampleCriteriaList = Sequence(Element[Visible, i] ∧ sx1 < x(Element[PinList, i]) ∧ x(Element[PinList, i]) < sx2 ∧ sy1 < y(Element[PinList, i]) ∧ y(Element[PinList, i]) < sy2, i, 1, Nmax)
PinsInSample = Sum(PinInSampleCriteriaList)
GraphStepY = If(PinsInSample ≟ 0, 0.5, If[ceil(N / PinsInSample) < 20, 0.5, 10 / ceil(N / PinsInSample)])
GraphStepX = If(PinsInSample < 40, 0.5, 20 / PinsInSample)
GraphCenter = (10.5, 8)
sdr2: (x(GraphCenter) + ((PinsInSample / 2 - 1) * GraphStepX) + 0.4, y(GraphCenter) - (floor(N / PinsInSample) / 2 * GraphStepY) - 1.5 - 0.4)
sdrV = Dilate(sdr2, GraphValue, sdr)
sul2: (x(GraphCenter) - (PinsInSample / 2 * GraphStepX) - 0.4, y(GraphCenter) - (floor(N / PinsInSample) / 2 * GraphStepY) - 1.5 + 0.4)
sulV = Dilate(sul2, GraphValue, sul)
ValidColors: {false, true, true, false, true, false, true, false}
ColorWeightList_n = Sequence(If[Element[ValidColors, i], Random[1, 100], 0], i, 1, 8)
ColorWeightList_N = Sequence(Sum[ColorWeightList_n, i], i, 1, 8)
ColorWeightSum = Sum(ColorWeightList_n)
ColorRandomWeights = Sequence(Random[1, ColorWeightSum], i, 1, Nmax)
ColorIndexes = Sequence(9 - Sum[Sequence[Element[ColorRandomWeights, i] ≤ Element[ColorWeightList_N, j], j, 1, 8]], i, 1, Nmax)
ColorCriteriaTable = Sequence(Sequence[Element[ColorIndexes, i] ≟ j, i, 1, Nmax], j, 1, 8)
P_R: Element[ColorCriteriaTable, 5] + Element[ColorCriteriaTable, 6] + Element[ColorCriteriaTable, 7] + Element[ColorCriteriaTable, 8]
P_B: Element[ColorCriteriaTable, 2] + Element[ColorCriteriaTable, 4] + Element[ColorCriteriaTable, 6] + Element[ColorCriteriaTable, 8]
spol, spol1, spol2, spol3, spol4 = Polygon(sul, (x(sul), y(sdr)), sdr, (x(sdr), y(sul)))
P_G: Element[ColorCriteriaTable, 3] + Element[ColorCriteriaTable, 4] + Element[ColorCriteriaTable, 7] + Element[ColorCriteriaTable, 8]
wpol, wpol1, wpol2, wpol3, wpol4 = Polygon((0, 0), (11, 0), (11, 11), (0, 11))
chkGrHelp = false
Colors: {"Μαύρο", "Μπλε", "Πράσινο", "Γαλάζοπράσινο", "Κόκκινο", "Ιώδες", "Κίτρινο", "Άσπρο"}
SamplePointList = If(chkGrHelp, Sequence[(x(GraphCenter) + ((((-PinsInSample)) / 2 + i - 1) * GraphStepX), y(GraphCenter) - (floor(N / PinsInSample) / 2 * GraphStepY) - 1.5), i, 1, PinsInSample], Sequence[Element[PinList, i], i, 1, Nmax])
VisiblePerColor = Sequence(If[Element[ValidColors, c], Sequence[Element[Visible, i] ∧ Element[ColorIndexes, i] ≟ c, i, 1, Nmax], {false}], c, 1, 8)
VisiblePerColor_n = Sequence(Sum[Element[VisiblePerColor, c]], c, 1, 8)
VisiblePerColor_N = Join({{0}, Sequence[Sum[VisiblePerColor_n, c], c, 1, 8]})
GraphIndexPerColor = Sequence(Sequence[If[Element[Element[VisiblePerColor, c], i], Sum[Element[VisiblePerColor, c], i] + Element[VisiblePerColor_N, c], 0], i, 1, Nmax], c, 1, 8)
GraphPointList = If(chkGrHelp, Sequence[(x(GraphCenter) + ((((-PinsInSample)) / 2 + floor(((i - 1) * PinsInSample / N))) * GraphStepX), y(GraphCenter) + ((((-floor(N / PinsInSample))) / 2 + floor(i - (floor(((i - 1) * PinsInSample / N)) * N / PinsInSample) - 1)) * GraphStepY)), i, 1, N], Sequence[Element[PinList, i], i, 1, Nmax])
GraphIndex = If(chkGrHelp, Element[GraphIndexPerColor, 1] + Element[GraphIndexPerColor, 2] + Element[GraphIndexPerColor, 3] + Element[GraphIndexPerColor, 4] + Element[GraphIndexPerColor, 5] + Element[GraphIndexPerColor, 6] + Element[GraphIndexPerColor, 7] + Element[GraphIndexPerColor, 8], Sequence[i, i, 1, Nmax])
i = (0, 1)
SamplePerColor = Sequence(If[Element[ValidColors, c], Sequence[Element[Visible, i] ∧ Element[ColorIndexes, i] ≟ c ∧ Element[PinInSampleCriteriaList, i], i, 1, Nmax], {false}], c, 1, 8)
SamplePerColor_n = Sequence(Sum[Element[SamplePerColor, c]], c, 1, 8)
SamplePerColor_N = Join({{0}, Sequence[Sum[SamplePerColor_n, c], c, 1, 8]})
SampleIndexPerColor = Sequence(Sequence[If[Element[Element[SamplePerColor, c], i], Sum[Element[SamplePerColor, c], i] + Element[SamplePerColor_N, c], 0], i, 1, Nmax], c, 1, 8)
SampleIndex = If(chkGrHelp, Element[SampleIndexPerColor, 1] + Element[SampleIndexPerColor, 2] + Element[SampleIndexPerColor, 3] + Element[SampleIndexPerColor, 4] + Element[SampleIndexPerColor, 5] + Element[SampleIndexPerColor, 6] + Element[SampleIndexPerColor, 7] + Element[SampleIndexPerColor, 8], Sequence[i, i, 1, Nmax])
chkAct1 = false
chkAct2 = false
κμνΒοήθεια1 = If(PinsInSample ≟ 0, "Το δείγμα είναι άδειο", "<Αρχική θέση-Ταξινόμηση>")
tpol, tpol1, tpol2, tpol3, tpol4 = Polygon(sulV, (x(sulV), y(sdrV)), sdrV, (x(sdrV), y(sulV)))
gp001 = If(chkGrHelp, If[Element[GraphIndex, 1] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 1]], GraphValue, p001]])
gp002 = If(chkGrHelp, If[Element[GraphIndex, 2] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 2]], GraphValue, p002]])
gp003 = If(chkGrHelp, If[Element[GraphIndex, 3] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 3]], GraphValue, p003]])
gp004 = If(chkGrHelp, If[Element[GraphIndex, 4] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 4]], GraphValue, p004]])
gp005 = If(chkGrHelp, If[Element[GraphIndex, 5] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 5]], GraphValue, p005]])
gp006 = If(chkGrHelp, If[Element[GraphIndex, 6] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 6]], GraphValue, p006]])
gp007 = If(chkGrHelp, If[Element[GraphIndex, 7] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 7]], GraphValue, p007]])
gp008 = If(chkGrHelp, If[Element[GraphIndex, 8] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 8]], GraphValue, p008]])
gp009 = If(chkGrHelp, If[Element[GraphIndex, 9] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 9]], GraphValue, p009]])
gp010 = If(chkGrHelp, If[Element[GraphIndex, 10] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 10]], GraphValue, p010]])
gp011 = If(chkGrHelp, If[Element[GraphIndex, 11] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 11]], GraphValue, p011]])
gp012 = If(chkGrHelp, If[Element[GraphIndex, 12] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 12]], GraphValue, p012]])
gp013 = If(chkGrHelp, If[Element[GraphIndex, 13] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 13]], GraphValue, p013]])
gp014 = If(chkGrHelp, If[Element[GraphIndex, 14] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 14]], GraphValue, p014]])
gp015 = If(chkGrHelp, If[Element[GraphIndex, 15] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 15]], GraphValue, p015]])
gp016 = If(chkGrHelp, If[Element[GraphIndex, 16] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 16]], GraphValue, p016]])
gp017 = If(chkGrHelp, If[Element[GraphIndex, 17] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 17]], GraphValue, p017]])
gp018 = If(chkGrHelp, If[Element[GraphIndex, 18] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 18]], GraphValue, p018]])
gp019 = If(chkGrHelp, If[Element[GraphIndex, 19] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 19]], GraphValue, p019]])
gp020 = If(chkGrHelp, If[Element[GraphIndex, 20] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 20]], GraphValue, p020]])
gp021 = If(chkGrHelp, If[Element[GraphIndex, 21] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 21]], GraphValue, p021]])
gp022 = If(chkGrHelp, If[Element[GraphIndex, 22] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 22]], GraphValue, p022]])
gp023 = If(chkGrHelp, If[Element[GraphIndex, 23] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 23]], GraphValue, p023]])
gp024 = If(chkGrHelp, If[Element[GraphIndex, 24] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 24]], GraphValue, p024]])
gp025 = If(chkGrHelp, If[Element[GraphIndex, 25] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 25]], GraphValue, p025]])
gp026 = If(chkGrHelp, If[Element[GraphIndex, 26] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 26]], GraphValue, p026]])
gp027 = If(chkGrHelp, If[Element[GraphIndex, 27] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 27]], GraphValue, p027]])
gp028 = If(chkGrHelp, If[Element[GraphIndex, 28] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 28]], GraphValue, p028]])
gp029 = If(chkGrHelp, If[Element[GraphIndex, 29] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 29]], GraphValue, p029]])
gp030 = If(chkGrHelp, If[Element[GraphIndex, 30] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 30]], GraphValue, p030]])
gp031 = If(chkGrHelp, If[Element[GraphIndex, 31] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 31]], GraphValue, p031]])
gp032 = If(chkGrHelp, If[Element[GraphIndex, 32] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 32]], GraphValue, p032]])
gp033 = If(chkGrHelp, If[Element[GraphIndex, 33] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 33]], GraphValue, p033]])
gp034 = If(chkGrHelp, If[Element[GraphIndex, 34] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 34]], GraphValue, p034]])
gp035 = If(chkGrHelp, If[Element[GraphIndex, 35] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 35]], GraphValue, p035]])
gp036 = If(chkGrHelp, If[Element[GraphIndex, 36] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 36]], GraphValue, p036]])
gp037 = If(chkGrHelp, If[Element[GraphIndex, 37] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 37]], GraphValue, p037]])
gp038 = If(chkGrHelp, If[Element[GraphIndex, 38] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 38]], GraphValue, p038]])
gp039 = If(chkGrHelp, If[Element[GraphIndex, 39] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 39]], GraphValue, p039]])
gp040 = If(chkGrHelp, If[Element[GraphIndex, 40] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 40]], GraphValue, p040]])
gp041 = If(chkGrHelp, If[Element[GraphIndex, 41] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 41]], GraphValue, p041]])
gp042 = If(chkGrHelp, If[Element[GraphIndex, 42] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 42]], GraphValue, p042]])
gp043 = If(chkGrHelp, If[Element[GraphIndex, 43] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 43]], GraphValue, p043]])
gp044 = If(chkGrHelp, If[Element[GraphIndex, 44] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 44]], GraphValue, p044]])
gp045 = If(chkGrHelp, If[Element[GraphIndex, 45] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 45]], GraphValue, p045]])
gp046 = If(chkGrHelp, If[Element[GraphIndex, 46] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 46]], GraphValue, p046]])
gp047 = If(chkGrHelp, If[Element[GraphIndex, 47] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 47]], GraphValue, p047]])
gp048 = If(chkGrHelp, If[Element[GraphIndex, 48] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 48]], GraphValue, p048]])
gp049 = If(chkGrHelp, If[Element[GraphIndex, 49] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 49]], GraphValue, p049]])
gp050 = If(chkGrHelp, If[Element[GraphIndex, 50] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 50]], GraphValue, p050]])
gp051 = If(chkGrHelp, If[Element[GraphIndex, 51] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 51]], GraphValue, p051]])
gp052 = If(chkGrHelp, If[Element[GraphIndex, 52] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 52]], GraphValue, p052]])
gp053 = If(chkGrHelp, If[Element[GraphIndex, 53] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 53]], GraphValue, p053]])
gp054 = If(chkGrHelp, If[Element[GraphIndex, 54] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 54]], GraphValue, p054]])
gp055 = If(chkGrHelp, If[Element[GraphIndex, 55] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 55]], GraphValue, p055]])
gp056 = If(chkGrHelp, If[Element[GraphIndex, 56] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 56]], GraphValue, p056]])
gp057 = If(chkGrHelp, If[Element[GraphIndex, 57] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 57]], GraphValue, p057]])
gp058 = If(chkGrHelp, If[Element[GraphIndex, 58] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 58]], GraphValue, p058]])
gp059 = If(chkGrHelp, If[Element[GraphIndex, 59] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 59]], GraphValue, p059]])
gp060 = If(chkGrHelp, If[Element[GraphIndex, 60] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 60]], GraphValue, p060]])
gp061 = If(chkGrHelp, If[Element[GraphIndex, 61] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 61]], GraphValue, p061]])
gp062 = If(chkGrHelp, If[Element[GraphIndex, 62] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 62]], GraphValue, p062]])
gp063 = If(chkGrHelp, If[Element[GraphIndex, 63] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 63]], GraphValue, p063]])
gp064 = If(chkGrHelp, If[Element[GraphIndex, 64] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 64]], GraphValue, p064]])
gp065 = If(chkGrHelp, If[Element[GraphIndex, 65] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 65]], GraphValue, p065]])
gp066 = If(chkGrHelp, If[Element[GraphIndex, 66] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 66]], GraphValue, p066]])
gp067 = If(chkGrHelp, If[Element[GraphIndex, 67] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 67]], GraphValue, p067]])
gp068 = If(chkGrHelp, If[Element[GraphIndex, 68] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 68]], GraphValue, p068]])
gp069 = If(chkGrHelp, If[Element[GraphIndex, 69] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 69]], GraphValue, p069]])
gp070 = If(chkGrHelp, If[Element[GraphIndex, 70] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 70]], GraphValue, p070]])
gp071 = If(chkGrHelp, If[Element[GraphIndex, 71] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 71]], GraphValue, p071]])
gp072 = If(chkGrHelp, If[Element[GraphIndex, 72] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 72]], GraphValue, p072]])
gp073 = If(chkGrHelp, If[Element[GraphIndex, 73] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 73]], GraphValue, p073]])
gp074 = If(chkGrHelp, If[Element[GraphIndex, 74] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 74]], GraphValue, p074]])
gp075 = If(chkGrHelp, If[Element[GraphIndex, 75] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 75]], GraphValue, p075]])
gp076 = If(chkGrHelp, If[Element[GraphIndex, 76] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 76]], GraphValue, p076]])
gp077 = If(chkGrHelp, If[Element[GraphIndex, 77] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 77]], GraphValue, p077]])
gp078 = If(chkGrHelp, If[Element[GraphIndex, 78] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 78]], GraphValue, p078]])
gp079 = If(chkGrHelp, If[Element[GraphIndex, 79] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 79]], GraphValue, p079]])
gp080 = If(chkGrHelp, If[Element[GraphIndex, 80] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 80]], GraphValue, p080]])
gp081 = If(chkGrHelp, If[Element[GraphIndex, 81] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 81]], GraphValue, p081]])
gp082 = If(chkGrHelp, If[Element[GraphIndex, 82] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 82]], GraphValue, p082]])
gp083 = If(chkGrHelp, If[Element[GraphIndex, 83] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 83]], GraphValue, p083]])
gp084 = If(chkGrHelp, If[Element[GraphIndex, 84] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 84]], GraphValue, p084]])
gp085 = If(chkGrHelp, If[Element[GraphIndex, 85] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 85]], GraphValue, p085]])
gp086 = If(chkGrHelp, If[Element[GraphIndex, 86] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 86]], GraphValue, p086]])
gp087 = If(chkGrHelp, If[Element[GraphIndex, 87] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 87]], GraphValue, p087]])
gp088 = If(chkGrHelp, If[Element[GraphIndex, 88] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 88]], GraphValue, p088]])
gp089 = If(chkGrHelp, If[Element[GraphIndex, 89] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 89]], GraphValue, p089]])
gp090 = If(chkGrHelp, If[Element[GraphIndex, 90] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 90]], GraphValue, p090]])
gp091 = If(chkGrHelp, If[Element[GraphIndex, 91] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 91]], GraphValue, p091]])
gp092 = If(chkGrHelp, If[Element[GraphIndex, 92] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 92]], GraphValue, p092]])
gp093 = If(chkGrHelp, If[Element[GraphIndex, 93] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 93]], GraphValue, p093]])
gp094 = If(chkGrHelp, If[Element[GraphIndex, 94] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 94]], GraphValue, p094]])
gp095 = If(chkGrHelp, If[Element[GraphIndex, 95] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 95]], GraphValue, p095]])
gp096 = If(chkGrHelp, If[Element[GraphIndex, 96] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 96]], GraphValue, p096]])
gp097 = If(chkGrHelp, If[Element[GraphIndex, 97] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 97]], GraphValue, p097]])
gp098 = If(chkGrHelp, If[Element[GraphIndex, 98] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 98]], GraphValue, p098]])
gp099 = If(chkGrHelp, If[Element[GraphIndex, 99] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 99]], GraphValue, p099]])
gp100 = If(chkGrHelp, If[Element[GraphIndex, 100] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 100]], GraphValue, p100]])
gp101 = If(chkGrHelp, If[Element[GraphIndex, 101] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 101]], GraphValue, p101]])
gp102 = If(chkGrHelp, If[Element[GraphIndex, 102] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 102]], GraphValue, p102]])
gp103 = If(chkGrHelp, If[Element[GraphIndex, 103] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 103]], GraphValue, p103]])
gp104 = If(chkGrHelp, If[Element[GraphIndex, 104] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 104]], GraphValue, p104]])
gp105 = If(chkGrHelp, If[Element[GraphIndex, 105] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 105]], GraphValue, p105]])
gp106 = If(chkGrHelp, If[Element[GraphIndex, 106] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 106]], GraphValue, p106]])
gp107 = If(chkGrHelp, If[Element[GraphIndex, 107] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 107]], GraphValue, p107]])
gp108 = If(chkGrHelp, If[Element[GraphIndex, 108] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 108]], GraphValue, p108]])
gp109 = If(chkGrHelp, If[Element[GraphIndex, 109] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 109]], GraphValue, p109]])
gp110 = If(chkGrHelp, If[Element[GraphIndex, 110] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 110]], GraphValue, p110]])
gp111 = If(chkGrHelp, If[Element[GraphIndex, 111] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 111]], GraphValue, p111]])
gp112 = If(chkGrHelp, If[Element[GraphIndex, 112] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 112]], GraphValue, p112]])
gp113 = If(chkGrHelp, If[Element[GraphIndex, 113] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 113]], GraphValue, p113]])
gp114 = If(chkGrHelp, If[Element[GraphIndex, 114] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 114]], GraphValue, p114]])
gp115 = If(chkGrHelp, If[Element[GraphIndex, 115] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 115]], GraphValue, p115]])
gp116 = If(chkGrHelp, If[Element[GraphIndex, 116] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 116]], GraphValue, p116]])
gp117 = If(chkGrHelp, If[Element[GraphIndex, 117] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 117]], GraphValue, p117]])
gp118 = If(chkGrHelp, If[Element[GraphIndex, 118] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 118]], GraphValue, p118]])
gp119 = If(chkGrHelp, If[Element[GraphIndex, 119] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 119]], GraphValue, p119]])
gp120 = If(chkGrHelp, If[Element[GraphIndex, 120] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 120]], GraphValue, p120]])
gp121 = If(chkGrHelp, If[Element[GraphIndex, 121] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 121]], GraphValue, p121]])
gp122 = If(chkGrHelp, If[Element[GraphIndex, 122] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 122]], GraphValue, p122]])
gp123 = If(chkGrHelp, If[Element[GraphIndex, 123] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 123]], GraphValue, p123]])
gp124 = If(chkGrHelp, If[Element[GraphIndex, 124] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 124]], GraphValue, p124]])
gp125 = If(chkGrHelp, If[Element[GraphIndex, 125] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 125]], GraphValue, p125]])
gp126 = If(chkGrHelp, If[Element[GraphIndex, 126] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 126]], GraphValue, p126]])
gp127 = If(chkGrHelp, If[Element[GraphIndex, 127] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 127]], GraphValue, p127]])
gp128 = If(chkGrHelp, If[Element[GraphIndex, 128] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 128]], GraphValue, p128]])
gp129 = If(chkGrHelp, If[Element[GraphIndex, 129] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 129]], GraphValue, p129]])
gp130 = If(chkGrHelp, If[Element[GraphIndex, 130] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 130]], GraphValue, p130]])
gp131 = If(chkGrHelp, If[Element[GraphIndex, 131] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 131]], GraphValue, p131]])
gp132 = If(chkGrHelp, If[Element[GraphIndex, 132] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 132]], GraphValue, p132]])
gp133 = If(chkGrHelp, If[Element[GraphIndex, 133] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 133]], GraphValue, p133]])
gp134 = If(chkGrHelp, If[Element[GraphIndex, 134] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 134]], GraphValue, p134]])
gp135 = If(chkGrHelp, If[Element[GraphIndex, 135] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 135]], GraphValue, p135]])
gp136 = If(chkGrHelp, If[Element[GraphIndex, 136] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 136]], GraphValue, p136]])
gp137 = If(chkGrHelp, If[Element[GraphIndex, 137] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 137]], GraphValue, p137]])
gp138 = If(chkGrHelp, If[Element[GraphIndex, 138] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 138]], GraphValue, p138]])
gp139 = If(chkGrHelp, If[Element[GraphIndex, 139] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 139]], GraphValue, p139]])
gp140 = If(chkGrHelp, If[Element[GraphIndex, 140] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 140]], GraphValue, p140]])
gp141 = If(chkGrHelp, If[Element[GraphIndex, 141] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 141]], GraphValue, p141]])
gp142 = If(chkGrHelp, If[Element[GraphIndex, 142] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 142]], GraphValue, p142]])
gp143 = If(chkGrHelp, If[Element[GraphIndex, 143] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 143]], GraphValue, p143]])
gp144 = If(chkGrHelp, If[Element[GraphIndex, 144] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 144]], GraphValue, p144]])
gp145 = If(chkGrHelp, If[Element[GraphIndex, 145] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 145]], GraphValue, p145]])
gp146 = If(chkGrHelp, If[Element[GraphIndex, 146] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 146]], GraphValue, p146]])
gp147 = If(chkGrHelp, If[Element[GraphIndex, 147] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 147]], GraphValue, p147]])
gp148 = If(chkGrHelp, If[Element[GraphIndex, 148] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 148]], GraphValue, p148]])
gp149 = If(chkGrHelp, If[Element[GraphIndex, 149] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 149]], GraphValue, p149]])
gp150 = If(chkGrHelp, If[Element[GraphIndex, 150] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 150]], GraphValue, p150]])
gp151 = If(chkGrHelp, If[Element[GraphIndex, 151] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 151]], GraphValue, p151]])
gp152 = If(chkGrHelp, If[Element[GraphIndex, 152] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 152]], GraphValue, p152]])
gp153 = If(chkGrHelp, If[Element[GraphIndex, 153] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 153]], GraphValue, p153]])
gp154 = If(chkGrHelp, If[Element[GraphIndex, 154] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 154]], GraphValue, p154]])
gp155 = If(chkGrHelp, If[Element[GraphIndex, 155] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 155]], GraphValue, p155]])
gp156 = If(chkGrHelp, If[Element[GraphIndex, 156] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 156]], GraphValue, p156]])
gp157 = If(chkGrHelp, If[Element[GraphIndex, 157] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 157]], GraphValue, p157]])
gp158 = If(chkGrHelp, If[Element[GraphIndex, 158] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 158]], GraphValue, p158]])
gp159 = If(chkGrHelp, If[Element[GraphIndex, 159] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 159]], GraphValue, p159]])
gp160 = If(chkGrHelp, If[Element[GraphIndex, 160] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 160]], GraphValue, p160]])
gp161 = If(chkGrHelp, If[Element[GraphIndex, 161] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 161]], GraphValue, p161]])
gp162 = If(chkGrHelp, If[Element[GraphIndex, 162] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 162]], GraphValue, p162]])
gp163 = If(chkGrHelp, If[Element[GraphIndex, 163] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 163]], GraphValue, p163]])
gp164 = If(chkGrHelp, If[Element[GraphIndex, 164] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 164]], GraphValue, p164]])
gp165 = If(chkGrHelp, If[Element[GraphIndex, 165] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 165]], GraphValue, p165]])
gp166 = If(chkGrHelp, If[Element[GraphIndex, 166] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 166]], GraphValue, p166]])
gp167 = If(chkGrHelp, If[Element[GraphIndex, 167] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 167]], GraphValue, p167]])
gp168 = If(chkGrHelp, If[Element[GraphIndex, 168] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 168]], GraphValue, p168]])
gp169 = If(chkGrHelp, If[Element[GraphIndex, 169] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 169]], GraphValue, p169]])
gp170 = If(chkGrHelp, If[Element[GraphIndex, 170] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 170]], GraphValue, p170]])
gp171 = If(chkGrHelp, If[Element[GraphIndex, 171] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 171]], GraphValue, p171]])
gp172 = If(chkGrHelp, If[Element[GraphIndex, 172] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 172]], GraphValue, p172]])
gp173 = If(chkGrHelp, If[Element[GraphIndex, 173] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 173]], GraphValue, p173]])
gp174 = If(chkGrHelp, If[Element[GraphIndex, 174] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 174]], GraphValue, p174]])
gp175 = If(chkGrHelp, If[Element[GraphIndex, 175] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 175]], GraphValue, p175]])
gp176 = If(chkGrHelp, If[Element[GraphIndex, 176] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 176]], GraphValue, p176]])
gp177 = If(chkGrHelp, If[Element[GraphIndex, 177] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 177]], GraphValue, p177]])
gp178 = If(chkGrHelp, If[Element[GraphIndex, 178] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 178]], GraphValue, p178]])
gp179 = If(chkGrHelp, If[Element[GraphIndex, 179] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 179]], GraphValue, p179]])
gp180 = If(chkGrHelp, If[Element[GraphIndex, 180] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 180]], GraphValue, p180]])
gp181 = If(chkGrHelp, If[Element[GraphIndex, 181] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 181]], GraphValue, p181]])
gp182 = If(chkGrHelp, If[Element[GraphIndex, 182] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 182]], GraphValue, p182]])
gp183 = If(chkGrHelp, If[Element[GraphIndex, 183] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 183]], GraphValue, p183]])
gp184 = If(chkGrHelp, If[Element[GraphIndex, 184] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 184]], GraphValue, p184]])
gp185 = If(chkGrHelp, If[Element[GraphIndex, 185] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 185]], GraphValue, p185]])
gp186 = If(chkGrHelp, If[Element[GraphIndex, 186] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 186]], GraphValue, p186]])
gp187 = If(chkGrHelp, If[Element[GraphIndex, 187] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 187]], GraphValue, p187]])
gp188 = If(chkGrHelp, If[Element[GraphIndex, 188] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 188]], GraphValue, p188]])
gp189 = If(chkGrHelp, If[Element[GraphIndex, 189] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 189]], GraphValue, p189]])
gp190 = If(chkGrHelp, If[Element[GraphIndex, 190] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 190]], GraphValue, p190]])
gp191 = If(chkGrHelp, If[Element[GraphIndex, 191] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 191]], GraphValue, p191]])
gp192 = If(chkGrHelp, If[Element[GraphIndex, 192] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 192]], GraphValue, p192]])
gp193 = If(chkGrHelp, If[Element[GraphIndex, 193] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 193]], GraphValue, p193]])
gp194 = If(chkGrHelp, If[Element[GraphIndex, 194] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 194]], GraphValue, p194]])
gp195 = If(chkGrHelp, If[Element[GraphIndex, 195] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 195]], GraphValue, p195]])
gp196 = If(chkGrHelp, If[Element[GraphIndex, 196] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 196]], GraphValue, p196]])
gp197 = If(chkGrHelp, If[Element[GraphIndex, 197] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 197]], GraphValue, p197]])
gp198 = If(chkGrHelp, If[Element[GraphIndex, 198] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 198]], GraphValue, p198]])
gp199 = If(chkGrHelp, If[Element[GraphIndex, 199] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 199]], GraphValue, p199]])
gp200 = If(chkGrHelp, If[Element[GraphIndex, 200] ≠ 0, Dilate[Element[GraphPointList, Element[GraphIndex, 200]], GraphValue, p200]])
gs001 = If(chkGrHelp, If[Element[SampleIndex, 1] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 1]], GraphValue, p001]])
gs002 = If(chkGrHelp, If[Element[SampleIndex, 2] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 2]], GraphValue, p002]])
gs003 = If(chkGrHelp, If[Element[SampleIndex, 3] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 3]], GraphValue, p003]])
gs004 = If(chkGrHelp, If[Element[SampleIndex, 4] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 4]], GraphValue, p004]])
gs005 = If(chkGrHelp, If[Element[SampleIndex, 5] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 5]], GraphValue, p005]])
gs006 = If(chkGrHelp, If[Element[SampleIndex, 6] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 6]], GraphValue, p006]])
gs007 = If(chkGrHelp, If[Element[SampleIndex, 7] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 7]], GraphValue, p007]])
gs008 = If(chkGrHelp, If[Element[SampleIndex, 8] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 8]], GraphValue, p008]])
gs009 = If(chkGrHelp, If[Element[SampleIndex, 9] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 9]], GraphValue, p009]])
gs010 = If(chkGrHelp, If[Element[SampleIndex, 10] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 10]], GraphValue, p010]])
gs011 = If(chkGrHelp, If[Element[SampleIndex, 11] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 11]], GraphValue, p011]])
gs012 = If(chkGrHelp, If[Element[SampleIndex, 12] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 12]], GraphValue, p012]])
gs013 = If(chkGrHelp, If[Element[SampleIndex, 13] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 13]], GraphValue, p013]])
gs014 = If(chkGrHelp, If[Element[SampleIndex, 14] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 14]], GraphValue, p014]])
gs015 = If(chkGrHelp, If[Element[SampleIndex, 15] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 15]], GraphValue, p015]])
gs016 = If(chkGrHelp, If[Element[SampleIndex, 16] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 16]], GraphValue, p016]])
gs017 = If(chkGrHelp, If[Element[SampleIndex, 17] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 17]], GraphValue, p017]])
gs018 = If(chkGrHelp, If[Element[SampleIndex, 18] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 18]], GraphValue, p018]])
gs019 = If(chkGrHelp, If[Element[SampleIndex, 19] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 19]], GraphValue, p019]])
gs020 = If(chkGrHelp, If[Element[SampleIndex, 20] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 20]], GraphValue, p020]])
gs021 = If(chkGrHelp, If[Element[SampleIndex, 21] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 21]], GraphValue, p021]])
gs022 = If(chkGrHelp, If[Element[SampleIndex, 22] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 22]], GraphValue, p022]])
gs023 = If(chkGrHelp, If[Element[SampleIndex, 23] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 23]], GraphValue, p023]])
gs024 = If(chkGrHelp, If[Element[SampleIndex, 24] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 24]], GraphValue, p024]])
gs025 = If(chkGrHelp, If[Element[SampleIndex, 25] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 25]], GraphValue, p025]])
gs026 = If(chkGrHelp, If[Element[SampleIndex, 26] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 26]], GraphValue, p026]])
gs027 = If(chkGrHelp, If[Element[SampleIndex, 27] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 27]], GraphValue, p027]])
gs028 = If(chkGrHelp, If[Element[SampleIndex, 28] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 28]], GraphValue, p028]])
gs029 = If(chkGrHelp, If[Element[SampleIndex, 29] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 29]], GraphValue, p029]])
gs030 = If(chkGrHelp, If[Element[SampleIndex, 30] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 30]], GraphValue, p030]])
gs031 = If(chkGrHelp, If[Element[SampleIndex, 31] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 31]], GraphValue, p031]])
gs032 = If(chkGrHelp, If[Element[SampleIndex, 32] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 32]], GraphValue, p032]])
gs033 = If(chkGrHelp, If[Element[SampleIndex, 33] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 33]], GraphValue, p033]])
gs034 = If(chkGrHelp, If[Element[SampleIndex, 34] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 34]], GraphValue, p034]])
gs035 = If(chkGrHelp, If[Element[SampleIndex, 35] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 35]], GraphValue, p035]])
gs036 = If(chkGrHelp, If[Element[SampleIndex, 36] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 36]], GraphValue, p036]])
gs037 = If(chkGrHelp, If[Element[SampleIndex, 37] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 37]], GraphValue, p037]])
gs038 = If(chkGrHelp, If[Element[SampleIndex, 38] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 38]], GraphValue, p038]])
gs039 = If(chkGrHelp, If[Element[SampleIndex, 39] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 39]], GraphValue, p039]])
gs040 = If(chkGrHelp, If[Element[SampleIndex, 40] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 40]], GraphValue, p040]])
gs041 = If(chkGrHelp, If[Element[SampleIndex, 41] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 41]], GraphValue, p041]])
gs042 = If(chkGrHelp, If[Element[SampleIndex, 42] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 42]], GraphValue, p042]])
gs043 = If(chkGrHelp, If[Element[SampleIndex, 43] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 43]], GraphValue, p043]])
gs044 = If(chkGrHelp, If[Element[SampleIndex, 44] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 44]], GraphValue, p044]])
gs045 = If(chkGrHelp, If[Element[SampleIndex, 45] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 45]], GraphValue, p045]])
gs046 = If(chkGrHelp, If[Element[SampleIndex, 46] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 46]], GraphValue, p046]])
gs047 = If(chkGrHelp, If[Element[SampleIndex, 47] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 47]], GraphValue, p047]])
gs048 = If(chkGrHelp, If[Element[SampleIndex, 48] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 48]], GraphValue, p048]])
gs049 = If(chkGrHelp, If[Element[SampleIndex, 49] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 49]], GraphValue, p049]])
gs050 = If(chkGrHelp, If[Element[SampleIndex, 50] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 50]], GraphValue, p050]])
gs051 = If(chkGrHelp, If[Element[SampleIndex, 51] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 51]], GraphValue, p051]])
gs052 = If(chkGrHelp, If[Element[SampleIndex, 52] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 52]], GraphValue, p052]])
gs053 = If(chkGrHelp, If[Element[SampleIndex, 53] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 53]], GraphValue, p053]])
gs054 = If(chkGrHelp, If[Element[SampleIndex, 54] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 54]], GraphValue, p054]])
gs055 = If(chkGrHelp, If[Element[SampleIndex, 55] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 55]], GraphValue, p055]])
gs056 = If(chkGrHelp, If[Element[SampleIndex, 56] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 56]], GraphValue, p056]])
gs057 = If(chkGrHelp, If[Element[SampleIndex, 57] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 57]], GraphValue, p057]])
gs058 = If(chkGrHelp, If[Element[SampleIndex, 58] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 58]], GraphValue, p058]])
gs059 = If(chkGrHelp, If[Element[SampleIndex, 59] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 59]], GraphValue, p059]])
gs060 = If(chkGrHelp, If[Element[SampleIndex, 60] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 60]], GraphValue, p060]])
gs061 = If(chkGrHelp, If[Element[SampleIndex, 61] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 61]], GraphValue, p061]])
gs062 = If(chkGrHelp, If[Element[SampleIndex, 62] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 62]], GraphValue, p062]])
gs063 = If(chkGrHelp, If[Element[SampleIndex, 63] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 63]], GraphValue, p063]])
gs064 = If(chkGrHelp, If[Element[SampleIndex, 64] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 64]], GraphValue, p064]])
gs065 = If(chkGrHelp, If[Element[SampleIndex, 65] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 65]], GraphValue, p065]])
gs066 = If(chkGrHelp, If[Element[SampleIndex, 66] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 66]], GraphValue, p066]])
gs067 = If(chkGrHelp, If[Element[SampleIndex, 67] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 67]], GraphValue, p067]])
gs068 = If(chkGrHelp, If[Element[SampleIndex, 68] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 68]], GraphValue, p068]])
gs069 = If(chkGrHelp, If[Element[SampleIndex, 69] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 69]], GraphValue, p069]])
gs070 = If(chkGrHelp, If[Element[SampleIndex, 70] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 70]], GraphValue, p070]])
gs071 = If(chkGrHelp, If[Element[SampleIndex, 71] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 71]], GraphValue, p071]])
gs072 = If(chkGrHelp, If[Element[SampleIndex, 72] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 72]], GraphValue, p072]])
gs073 = If(chkGrHelp, If[Element[SampleIndex, 73] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 73]], GraphValue, p073]])
gs074 = If(chkGrHelp, If[Element[SampleIndex, 74] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 74]], GraphValue, p074]])
gs075 = If(chkGrHelp, If[Element[SampleIndex, 75] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 75]], GraphValue, p075]])
gs076 = If(chkGrHelp, If[Element[SampleIndex, 76] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 76]], GraphValue, p076]])
gs077 = If(chkGrHelp, If[Element[SampleIndex, 77] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 77]], GraphValue, p077]])
gs078 = If(chkGrHelp, If[Element[SampleIndex, 78] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 78]], GraphValue, p078]])
gs079 = If(chkGrHelp, If[Element[SampleIndex, 79] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 79]], GraphValue, p079]])
gs080 = If(chkGrHelp, If[Element[SampleIndex, 80] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 80]], GraphValue, p080]])
gs081 = If(chkGrHelp, If[Element[SampleIndex, 81] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 81]], GraphValue, p081]])
gs082 = If(chkGrHelp, If[Element[SampleIndex, 82] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 82]], GraphValue, p082]])
gs083 = If(chkGrHelp, If[Element[SampleIndex, 83] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 83]], GraphValue, p083]])
gs084 = If(chkGrHelp, If[Element[SampleIndex, 84] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 84]], GraphValue, p084]])
gs085 = If(chkGrHelp, If[Element[SampleIndex, 85] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 85]], GraphValue, p085]])
gs086 = If(chkGrHelp, If[Element[SampleIndex, 86] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 86]], GraphValue, p086]])
gs087 = If(chkGrHelp, If[Element[SampleIndex, 87] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 87]], GraphValue, p087]])
gs088 = If(chkGrHelp, If[Element[SampleIndex, 88] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 88]], GraphValue, p088]])
gs089 = If(chkGrHelp, If[Element[SampleIndex, 89] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 89]], GraphValue, p089]])
gs090 = If(chkGrHelp, If[Element[SampleIndex, 90] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 90]], GraphValue, p090]])
gs091 = If(chkGrHelp, If[Element[SampleIndex, 91] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 91]], GraphValue, p091]])
gs092 = If(chkGrHelp, If[Element[SampleIndex, 92] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 92]], GraphValue, p092]])
gs093 = If(chkGrHelp, If[Element[SampleIndex, 93] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 93]], GraphValue, p093]])
gs094 = If(chkGrHelp, If[Element[SampleIndex, 94] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 94]], GraphValue, p094]])
gs095 = If(chkGrHelp, If[Element[SampleIndex, 95] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 95]], GraphValue, p095]])
gs096 = If(chkGrHelp, If[Element[SampleIndex, 96] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 96]], GraphValue, p096]])
gs097 = If(chkGrHelp, If[Element[SampleIndex, 97] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 97]], GraphValue, p097]])
gs098 = If(chkGrHelp, If[Element[SampleIndex, 98] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 98]], GraphValue, p098]])
gs099 = If(chkGrHelp, If[Element[SampleIndex, 99] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 99]], GraphValue, p099]])
gs100 = If(chkGrHelp, If[Element[SampleIndex, 100] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 100]], GraphValue, p100]])
gs101 = If(chkGrHelp, If[Element[SampleIndex, 101] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 101]], GraphValue, p101]])
gs102 = If(chkGrHelp, If[Element[SampleIndex, 102] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 102]], GraphValue, p102]])
gs103 = If(chkGrHelp, If[Element[SampleIndex, 103] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 103]], GraphValue, p103]])
gs104 = If(chkGrHelp, If[Element[SampleIndex, 104] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 104]], GraphValue, p104]])
gs105 = If(chkGrHelp, If[Element[SampleIndex, 105] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 105]], GraphValue, p105]])
gs106 = If(chkGrHelp, If[Element[SampleIndex, 106] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 106]], GraphValue, p106]])
gs107 = If(chkGrHelp, If[Element[SampleIndex, 107] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 107]], GraphValue, p107]])
gs108 = If(chkGrHelp, If[Element[SampleIndex, 108] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 108]], GraphValue, p108]])
gs109 = If(chkGrHelp, If[Element[SampleIndex, 109] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 109]], GraphValue, p109]])
gs110 = If(chkGrHelp, If[Element[SampleIndex, 110] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 110]], GraphValue, p110]])
gs111 = If(chkGrHelp, If[Element[SampleIndex, 111] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 111]], GraphValue, p111]])
gs112 = If(chkGrHelp, If[Element[SampleIndex, 112] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 112]], GraphValue, p112]])
gs113 = If(chkGrHelp, If[Element[SampleIndex, 113] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 113]], GraphValue, p113]])
gs114 = If(chkGrHelp, If[Element[SampleIndex, 114] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 114]], GraphValue, p114]])
gs115 = If(chkGrHelp, If[Element[SampleIndex, 115] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 115]], GraphValue, p115]])
gs116 = If(chkGrHelp, If[Element[SampleIndex, 116] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 116]], GraphValue, p116]])
gs117 = If(chkGrHelp, If[Element[SampleIndex, 117] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 117]], GraphValue, p117]])
gs118 = If(chkGrHelp, If[Element[SampleIndex, 118] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 118]], GraphValue, p118]])
gs119 = If(chkGrHelp, If[Element[SampleIndex, 119] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 119]], GraphValue, p119]])
gs120 = If(chkGrHelp, If[Element[SampleIndex, 120] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 120]], GraphValue, p120]])
gs121 = If(chkGrHelp, If[Element[SampleIndex, 121] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 121]], GraphValue, p121]])
gs122 = If(chkGrHelp, If[Element[SampleIndex, 122] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 122]], GraphValue, p122]])
gs123 = If(chkGrHelp, If[Element[SampleIndex, 123] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 123]], GraphValue, p123]])
gs124 = If(chkGrHelp, If[Element[SampleIndex, 124] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 124]], GraphValue, p124]])
gs125 = If(chkGrHelp, If[Element[SampleIndex, 125] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 125]], GraphValue, p125]])
gs126 = If(chkGrHelp, If[Element[SampleIndex, 126] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 126]], GraphValue, p126]])
gs127 = If(chkGrHelp, If[Element[SampleIndex, 127] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 127]], GraphValue, p127]])
gs128 = If(chkGrHelp, If[Element[SampleIndex, 128] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 128]], GraphValue, p128]])
gs129 = If(chkGrHelp, If[Element[SampleIndex, 129] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 129]], GraphValue, p129]])
gs130 = If(chkGrHelp, If[Element[SampleIndex, 130] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 130]], GraphValue, p130]])
gs131 = If(chkGrHelp, If[Element[SampleIndex, 131] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 131]], GraphValue, p131]])
gs132 = If(chkGrHelp, If[Element[SampleIndex, 132] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 132]], GraphValue, p132]])
gs133 = If(chkGrHelp, If[Element[SampleIndex, 133] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 133]], GraphValue, p133]])
gs134 = If(chkGrHelp, If[Element[SampleIndex, 134] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 134]], GraphValue, p134]])
gs135 = If(chkGrHelp, If[Element[SampleIndex, 135] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 135]], GraphValue, p135]])
gs136 = If(chkGrHelp, If[Element[SampleIndex, 136] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 136]], GraphValue, p136]])
gs137 = If(chkGrHelp, If[Element[SampleIndex, 137] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 137]], GraphValue, p137]])
gs138 = If(chkGrHelp, If[Element[SampleIndex, 138] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 138]], GraphValue, p138]])
gs139 = If(chkGrHelp, If[Element[SampleIndex, 139] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 139]], GraphValue, p139]])
gs140 = If(chkGrHelp, If[Element[SampleIndex, 140] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 140]], GraphValue, p140]])
gs141 = If(chkGrHelp, If[Element[SampleIndex, 141] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 141]], GraphValue, p141]])
gs142 = If(chkGrHelp, If[Element[SampleIndex, 142] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 142]], GraphValue, p142]])
gs143 = If(chkGrHelp, If[Element[SampleIndex, 143] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 143]], GraphValue, p143]])
gs144 = If(chkGrHelp, If[Element[SampleIndex, 144] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 144]], GraphValue, p144]])
gs145 = If(chkGrHelp, If[Element[SampleIndex, 145] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 145]], GraphValue, p145]])
gs146 = If(chkGrHelp, If[Element[SampleIndex, 146] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 146]], GraphValue, p146]])
gs147 = If(chkGrHelp, If[Element[SampleIndex, 147] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 147]], GraphValue, p147]])
gs148 = If(chkGrHelp, If[Element[SampleIndex, 148] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 148]], GraphValue, p148]])
gs149 = If(chkGrHelp, If[Element[SampleIndex, 149] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 149]], GraphValue, p149]])
gs150 = If(chkGrHelp, If[Element[SampleIndex, 150] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 150]], GraphValue, p150]])
gs151 = If(chkGrHelp, If[Element[SampleIndex, 151] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 151]], GraphValue, p151]])
gs152 = If(chkGrHelp, If[Element[SampleIndex, 152] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 152]], GraphValue, p152]])
gs153 = If(chkGrHelp, If[Element[SampleIndex, 153] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 153]], GraphValue, p153]])
gs154 = If(chkGrHelp, If[Element[SampleIndex, 154] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 154]], GraphValue, p154]])
gs155 = If(chkGrHelp, If[Element[SampleIndex, 155] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 155]], GraphValue, p155]])
gs156 = If(chkGrHelp, If[Element[SampleIndex, 156] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 156]], GraphValue, p156]])
gs157 = If(chkGrHelp, If[Element[SampleIndex, 157] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 157]], GraphValue, p157]])
gs158 = If(chkGrHelp, If[Element[SampleIndex, 158] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 158]], GraphValue, p158]])
gs159 = If(chkGrHelp, If[Element[SampleIndex, 159] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 159]], GraphValue, p159]])
gs160 = If(chkGrHelp, If[Element[SampleIndex, 160] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 160]], GraphValue, p160]])
gs161 = If(chkGrHelp, If[Element[SampleIndex, 161] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 161]], GraphValue, p161]])
gs162 = If(chkGrHelp, If[Element[SampleIndex, 162] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 162]], GraphValue, p162]])
gs163 = If(chkGrHelp, If[Element[SampleIndex, 163] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 163]], GraphValue, p163]])
gs164 = If(chkGrHelp, If[Element[SampleIndex, 164] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 164]], GraphValue, p164]])
gs165 = If(chkGrHelp, If[Element[SampleIndex, 165] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 165]], GraphValue, p165]])
gs166 = If(chkGrHelp, If[Element[SampleIndex, 166] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 166]], GraphValue, p166]])
gs167 = If(chkGrHelp, If[Element[SampleIndex, 167] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 167]], GraphValue, p167]])
gs168 = If(chkGrHelp, If[Element[SampleIndex, 168] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 168]], GraphValue, p168]])
gs169 = If(chkGrHelp, If[Element[SampleIndex, 169] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 169]], GraphValue, p169]])
gs170 = If(chkGrHelp, If[Element[SampleIndex, 170] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 170]], GraphValue, p170]])
gs171 = If(chkGrHelp, If[Element[SampleIndex, 171] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 171]], GraphValue, p171]])
gs172 = If(chkGrHelp, If[Element[SampleIndex, 172] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 172]], GraphValue, p172]])
gs173 = If(chkGrHelp, If[Element[SampleIndex, 173] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 173]], GraphValue, p173]])
gs174 = If(chkGrHelp, If[Element[SampleIndex, 174] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 174]], GraphValue, p174]])
gs175 = If(chkGrHelp, If[Element[SampleIndex, 175] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 175]], GraphValue, p175]])
gs176 = If(chkGrHelp, If[Element[SampleIndex, 176] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 176]], GraphValue, p176]])
gs177 = If(chkGrHelp, If[Element[SampleIndex, 177] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 177]], GraphValue, p177]])
gs178 = If(chkGrHelp, If[Element[SampleIndex, 178] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 178]], GraphValue, p178]])
gs179 = If(chkGrHelp, If[Element[SampleIndex, 179] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 179]], GraphValue, p179]])
gs180 = If(chkGrHelp, If[Element[SampleIndex, 180] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 180]], GraphValue, p180]])
gs181 = If(chkGrHelp, If[Element[SampleIndex, 181] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 181]], GraphValue, p181]])
gs182 = If(chkGrHelp, If[Element[SampleIndex, 182] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 182]], GraphValue, p182]])
gs183 = If(chkGrHelp, If[Element[SampleIndex, 183] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 183]], GraphValue, p183]])
gs184 = If(chkGrHelp, If[Element[SampleIndex, 184] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 184]], GraphValue, p184]])
gs185 = If(chkGrHelp, If[Element[SampleIndex, 185] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 185]], GraphValue, p185]])
gs186 = If(chkGrHelp, If[Element[SampleIndex, 186] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 186]], GraphValue, p186]])
gs187 = If(chkGrHelp, If[Element[SampleIndex, 187] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 187]], GraphValue, p187]])
gs188 = If(chkGrHelp, If[Element[SampleIndex, 188] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 188]], GraphValue, p188]])
gs189 = If(chkGrHelp, If[Element[SampleIndex, 189] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 189]], GraphValue, p189]])
gs190 = If(chkGrHelp, If[Element[SampleIndex, 190] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 190]], GraphValue, p190]])
gs191 = If(chkGrHelp, If[Element[SampleIndex, 191] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 191]], GraphValue, p191]])
gs192 = If(chkGrHelp, If[Element[SampleIndex, 192] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 192]], GraphValue, p192]])
gs193 = If(chkGrHelp, If[Element[SampleIndex, 193] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 193]], GraphValue, p193]])
gs194 = If(chkGrHelp, If[Element[SampleIndex, 194] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 194]], GraphValue, p194]])
gs195 = If(chkGrHelp, If[Element[SampleIndex, 195] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 195]], GraphValue, p195]])
gs196 = If(chkGrHelp, If[Element[SampleIndex, 196] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 196]], GraphValue, p196]])
gs197 = If(chkGrHelp, If[Element[SampleIndex, 197] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 197]], GraphValue, p197]])
gs198 = If(chkGrHelp, If[Element[SampleIndex, 198] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 198]], GraphValue, p198]])
gs199 = If(chkGrHelp, If[Element[SampleIndex, 199] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 199]], GraphValue, p199]])
gs200 = If(chkGrHelp, If[Element[SampleIndex, 200] ≠ 0, Dilate[Element[SamplePointList, Element[SampleIndex, 200]], GraphValue, p200]])
Np = Sequence(Sum[Sequence[Element[Visible, i] ∧ Element[ColorIndexes, i] ≟ c, i, 1, Nmax]], c, 1, 8)
Ns = Sequence(Sum[Sequence[Element[PinInSampleCriteriaList, i] ∧ Element[ColorIndexes, i] ≟ c, i, 1, Nmax]], c, 1, 8)
TableText: {RemoveUndefined[Join[{{"Χρώμα"}, Sequence[If[Element[ValidColors, c], Element[Colors, c]], c, 1, 8], {"Σύνολο"}}]], RemoveUndefined[Join[{{"Πληθυσμός"}, Sequence[If[Element[ValidColors, c], Element[Np, c]], c, 1, 8], {N}}]], RemoveUndefined[Join[{{"Δείγμα"}, Sequence[If[Element[ValidColors, c], Element[Ns, c]], c, 1, 8], {PinsInSample}}]]}
TableA = (0.5, 5)
TableIsNumber: {false, true, true}
TableDigits: {0, 0, 0}
TableDW = 0.225
TableH = 0.2
TableV = 0.15
TableB = (8, 1.5)
TablePol, TableGrid, TableCaption, TableLabel = ΠίνακαςΑριθμών(TableA, TableB, TableText, TableH, TableV, 1, 1, TableIsNumber, TableDigits, TableDW)
chkTable = false
κμνΒοήθεια0 = If(PinsInSample ≟ 0, "Το δείγμα είναι άδειο. Η βοήθεια δεν μπορεί να λειτουργήσει με άδειο δείγμα.", "Μετακινήστε το διπλανό δρομέα. Τι παρατηρειτε; Πώς σας βοηθάει κάτι τέτοιο;")
Α = (28.894080174405733, -0.2580122507496301)
Β = (32.70973485066473, -0.2580122507496301)

Tool: Πίνακας
Ορίστε δύο απέναντι άκρα, τη λίστα στηλών (λιστών κειμένου), και τα περιθώρια από αριστερά και από πάνω.
Input: A, B, T, SpaceLeft, SpaceTop
Output: pol, L, Grid

x1 = If(x(A) < x(B), x(A), x(B))
y2 = If(y(A) < y(B), y(B), y(A))
y1 = If(y(A) < y(B), y(A), y(B))
x2 = If(x(A) < x(B), x(B), x(A))
T: {{"Χρώμα", "Κόκκινο", "Πράσινο"}, {"Εμφανίσεις", "7", "13"}}
pol, pol1, pol2, pol3, pol4 = Polygon(A, (x(A), y(B)), B, (x(B), y(A)))
N_C = Length(T)
vi = Vector((x2 - x1, 0))
vj = Vector((0, y1 - y2))
pULlabel: (x1 + SpaceLeft, y2 - SpaceTop)
N_R = Length(Element[T, 1])
L = Sequence(Sequence[Text[Element[Element[T, i], j], Translate[pULlabel, Vector[(vi * (i - 1) / N_C) + (vj * (j - 0.5) / N_R)]]], i, 1, N_C], j, 1, N_R)
pUL: (x1, y2)
pUR: (x2, y2)
pDL: (x1, y1)
Grid: {Sequence[Segment[Translate[pUL, Vector[(vi * i / N_C)]], Translate[pDL, Vector[(vi * i / N_C)]]], i, 0, N_C], Sequence[Segment[Translate[pUL, Vector[(vj * j / N_R)]], Translate[pUR, Vector[(vj * j / N_R)]]], j, 0, N_R]}

Tool: Πίνακας Με Κεφαλίδα (command ΠίνακαςΜεΚεφαλίδα)
Ορίστε δύο απέναντι άκρα, τη λίστα στηλών (λιστών κειμένου), τα περιθώρια από αριστερά και από πάνω και το πλήθος των τονισμένων στηλών και γραμμών.
Input: A, B, T, SpaceLeft, SpaceTop, CaptionLeft, CaptionTop
Output: pol, Grid, Caption, Label

x1 = If(x(A) < x(B), x(A), x(B))
y2 = If(y(A) < y(B), y(B), y(A))
y1 = If(y(A) < y(B), y(A), y(B))
x2 = If(x(A) < x(B), x(B), x(A))
T: {{"Χρώμα", "Κόκκινο", "Πράσινο"}, {"Εμφανίσεις", "7", "13"}}
pol, pol1, pol2, pol3, pol4 = Polygon(A, (x(A), y(B)), B, (x(B), y(A)))
N_C = Length(T)
vi = Vector((x2 - x1, 0))
vj = Vector((0, y1 - y2))
pULlabel: (x1 + SpaceLeft, y2 - SpaceTop)
N_R = Length(Element[T, 1])
pUL: (x1, y2)
pUR: (x2, y2)
pDL: (x1, y1)
Grid: {Sequence[Segment[Translate[pUL, Vector[(vi * i / N_C)]], Translate[pDL, Vector[(vi * i / N_C)]]], i, 0, N_C], Sequence[Segment[Translate[pUL, Vector[(vj * j / N_R)]], Translate[pUR, Vector[(vj * j / N_R)]]], j, 0, N_R]}
Label = Sequence(Sequence[Text[Element[Element[T, i], j], Translate[pULlabel, Vector[(vi * (i - 1) / N_C) + (vj * (j - 0.5) / N_R)]]], i, 1 + CaptionLeft, N_C], j, 1 + CaptionTop, N_R)
Caption: {Sequence[Sequence[Text[Element[Element[T, i], j], Translate[pULlabel, Vector[(vi * (i - 1) / N_C) + (vj * (j - 0.5) / N_R)]]], i, 1, N_C], j, 1, CaptionTop], Sequence[Sequence[Text[Element[Element[T, i], j], Translate[pULlabel, Vector[(vi * (i - 1) / N_C) + (vj * (j - 0.5) / N_R)]]], i, 1, CaptionLeft], j, 1 + CaptionTop, N_R]}

Tool: Πίνακας Αριθμών (command ΠίνακαςΑριθμών)
Ορίστε δύο απέναντι άκρα, τη λίστα στηλών (λιστών), τα περιθώρια από αριστερά και πάνω, το πλήθος τονισμένων στηλών και γραμμών, τη λίστα αν είναι αριθμός, τη λίστα με το πλήθος δεκαδικών και το πλάτος του ψηφίου.
Input: A, B, T, SpaceHorizontal, SpaceTop, CaptionLeft, CaptionTop, IsNumber, Digits, DigitWidth
Output: pol, Grid, Caption, Label

x1 = If(x(A) < x(B), x(A), x(B))
y2 = If(y(A) < y(B), y(B), y(A))
y1 = If(y(A) < y(B), y(A), y(B))
x2 = If(x(A) < x(B), x(B), x(A))
T: {{"Χρώμα", "Μπλε", "Πράσινο", "Κόκκινο", "Κίτρινο", "Σύνολο"}, {"Πληθυσμός", 3, 35, 50, 34, 122}, {"Δείγμα", 0, 0, 0, 0, 0}}
pol, pol1, pol2, pol3, pol4 = Polygon(A, (x(A), y(B)), B, (x(B), y(A)))
N_C = Length(T)
vi = Vector((x2 - x1, 0))
vj = Vector((0, y1 - y2))
pULlabel: (x1 + SpaceHorizontal, y2 - SpaceTop)
N_R = Length(Element[T, 1])
pUL: (x1, y2)
pUR: (x2, y2)
pDL: (x1, y1)
Grid: {Sequence[Segment[Translate[pUL, Vector[(vi * i / N_C)]], Translate[pDL, Vector[(vi * i / N_C)]]], i, 0, N_C], Sequence[Segment[Translate[pUL, Vector[(vj * j / N_R)]], Translate[pUR, Vector[(vj * j / N_R)]]], j, 0, N_R]}
Caption: {Sequence[Sequence[Text[Element[Element[T, i], j], Translate[pULlabel, Vector[(vi * (i - 1) / N_C) + (vj * (j - 0.5) / N_R)]]], i, 1, N_C], j, 1, CaptionTop], Sequence[Sequence[Text[Element[Element[T, i], j], Translate[pULlabel, Vector[(vi * (i - 1) / N_C) + (vj * (j - 0.5) / N_R)]]], i, 1, CaptionLeft], j, 1 + CaptionTop, N_R]}
IsNumber: {false, true, true}
Digits: {0, 0, 0}
pULnumber: (x1 - SpaceHorizontal, y2 - SpaceTop)
Label = Sequence(Sequence[Text[Element[Element[T, i], j], If[Element[IsNumber, i], Translate[pULnumber, Vector[(vi * i / N_C) + (vj * (j - 0.5) / N_R) - ((If[Element[Element[T, i], j] ≟ 0, 0, floor(abs(lg(Element[Element[T, i], j])))] + Element[Digits, i] + 1) * Vector[(DigitWidth, 0)])]], Translate[pULlabel, Vector[(vi * (i - 1) / N_C) + (vj * (j - 0.5) / N_R)]]]], j, 1 + CaptionTop, N_R], i, 1 + CaptionLeft, N_C)