Context Navigation

source: cpp/frams/genetics/genman.cpp @ 564

Last change on this file since 564 was 534, checked in by Maciej Komosinski, 8 years ago
Renamed: get/setGene -> get/setGenes, setGeneOnly -> setGenesAssumingSameFormat
Property svn:eol-style set to `native`
File size: 21.4 KB

Line
1	// This file is a part of Framsticks SDK. http://www.framsticks.com/
2	// Copyright (C) 1999-2015 Maciej Komosinski and Szymon Ulatowski.
3	// See LICENSE.txt for details.
4
5	#include "genman.h"
6	#include <frams/vm/classes/genoobj.h>
7	#include GEN_CONFIG_FILE //configuration of active genetic operators
8	#include "common/log.h"
9	#include "common/nonstd_math.h"
10	#include "common/stl-util.h"
11	#include <common/loggers/loggers.h>
12
13
14	#ifdef USE_GENMAN_f0
15	#include "f0/oper_f0.h"
16	#endif
17	#ifdef USE_GENMAN_f0FUZZY
18	#include "f0/oper_f0Fuzzy.h"
19	#endif
20	#ifdef USE_GENMAN_f1
21	#include "f1/oper_f1.h"
22	#endif
23	#ifdef USE_GENMAN_f2
24	#include "f2/oper_f2.h"
25	#endif
26	#ifdef USE_GENMAN_f2
27	#include "f3/oper_f3.h"
28	#endif
29	#ifdef USE_GENMAN_f4
30	#include "f4/oper_f4.h"
31	#endif
32	#ifdef USE_GENMAN_f5
33	#include "f5/oper_f5.h"
34	#endif
35	#ifdef USE_GENMAN_f6
36	#include "f6/oper_f6.h"
37	#endif
38	#ifdef USE_GENMAN_f7
39	#include "f7/oper_f7.h"
40	#endif
41	#ifdef USE_GENMAN_f8
42	#include "f8/oper_f8.h"
43	#endif
44	#ifdef USE_GENMAN_f9
45	#include "f9/oper_f9.h"
46	#endif
47	#ifdef USE_GENMAN_fF
48	#include "fF/oper_fF.h"
49	#endif
50	#ifdef USE_GENMAN_fT
51	#include "fT/oper_fTest.h"
52	#endif
53
54	using namespace std; //string, vector
55
56	//old code needs update:
57	//#include "gengroups.h"
58	//extern GenGroup *listaGen;
59	// GENGROUP(0)->l_del.add(sim->GM.onDelGen,&sim->GM); //before delete
60	// GENGROUP(0)->l_del.remove(sim->GM.onDelGen,&sim->GM); //before delete
61
62
63	#define FIELDSTRUCT GenMan
64
65	static ParamEntry GMparam_tab[] =
66	{
67	{ "Genetics", 1, 10, "GenMan", },
68	{ "gen_hist", 0, PARAM_DONTSAVE, "Remember history of genetic operations", "d 0 1 0", FIELD(history), "Required for phylogenetic analysis", },
69	{ "gen_hilite", 0, 0, "Use syntax highlighting", "d 0 1 1", FIELD(hilite), "Use colors for genes?\n(slows down viewing/editing of huge genotypes)", },
70	{ "gen_extmutinfo", 0, 0, "Extended mutation info", "d 0 2 0 ~Off~Method ID~Method description", FIELD(extmutinfo), "If active, information about employed mutation method will be stored in the 'info' field of each mutated genotype.", },
71	{ "operReport", 0, PARAM_DONTSAVE, "Operators report", "p()", PROCEDURE(p_report), "Show available genetic operators", },
72	{ "toHTML", 0, PARAM_DONTSAVE, "HTMLize a genotype", "p s(s)", PROCEDURE(p_htmlize), "returns genotype expressed as colored HTML", },
73	{ "toHTMLshort", 0, PARAM_DONTSAVE, "HTMLize a genotype, shorten if needed", "p s(s)", PROCEDURE(p_htmlizeshort), "returns genotype (abbreviated if needed) expressed as colored HTML", },
74	{ "validate", 0, PARAM_DONTSAVE \| PARAM_USERHIDDEN, "Validate", "p oGeno(oGeno)", PROCEDURE(p_validate), "returns validated (if possible) Geno object from supplied Geno", },
75	{ "mutate", 0, PARAM_DONTSAVE \| PARAM_USERHIDDEN, "Mutate", "p oGeno(oGeno)", PROCEDURE(p_mutate), "returns mutated Geno object from supplied Geno", },
76	{ "crossOver", 0, PARAM_DONTSAVE \| PARAM_USERHIDDEN, "Crossover", "p oGeno(oGeno,oGeno)", PROCEDURE(p_crossover), "returns crossed over genotype", },
77	{ "getSimplest", 0, PARAM_DONTSAVE \| PARAM_USERHIDDEN, "Get simplest genotype", "p oGeno(d format)", PROCEDURE(p_getsimplest), "returns the simplest genotype for a given encoding (format). 0 means f0, 4 means f4, etc.", },
78	{ 0, },
79	};
80
81	static ParamEntry GMstats_tab[] =
82	{
83	{ "Genetics", 1, 12, "GenManStats", "Statistics for genetic operations." },
84	{ "gen_count", 0, PARAM_READONLY, "Number of genetic operations so far", "d", FIELD(count), "", },
85	{ "gen_mvalid", 0, PARAM_READONLY, "Mutations valid", "d", FIELD(valid_m), "", },
86	{ "gen_mvalidated", 0, PARAM_READONLY, "Mutations validated", "d", FIELD(validated_m), "", },
87	{ "gen_minvalid", 0, PARAM_READONLY, "Mutations invalid", "d", FIELD(invalid_m), "couldn't be repaired", },
88	{ "gen_mfailed", 0, PARAM_READONLY, "Mutations failed", "d", FIELD(failed_m), "couldn't be performed", },
89	{ "gen_xovalid", 0, PARAM_READONLY, "Crossovers valid", "d", FIELD(valid_xo), "", },
90	{ "gen_xovalidated", 0, PARAM_READONLY, "Crossovers validated", "d", FIELD(validated_xo), "", },
91	{ "gen_xoinvalid", 0, PARAM_READONLY, "Crossovers invalid", "d", FIELD(invalid_xo), "couldn't be repaired", },
92	{ "gen_xofailed", 0, PARAM_READONLY, "Crossovers failed", "d", FIELD(failed_xo), "couldn't be performed", },
93	{ "gen_mutimpr", 0, PARAM_READONLY, "Mutations total effect", "f", FIELD(mutchg), "total cumulative mutation change", },
94	{ "gen_xoimpr", 0, PARAM_READONLY, "Crossovers total effect", "f", FIELD(xochg), "total cumulative crossover change", },
95	{ "clrstats", 0, PARAM_DONTSAVE, "Clear stats and history", "p()", PROCEDURE(p_clearStats), "", },
96	{ 0, },
97	};
98
99	#undef FIELDSTRUCT
100
101	GenMan::GenMan() : localpar(GMparam_tab, this), localstats(GMstats_tab, this),
102	seloperpar("GenOperators", "Genetics: Active operators"),
103	neuronsparam("Genetics: Neurons to add", "neuronsAdd", "neuadd_"),
104	par("GenMan", "Manages various genetic operations, using appropriate operators for the argument genotype format.")
105	{
106	history = 0;
107	hilite = 1;
108	clearStats();
109
110	#ifdef USE_GENMAN_f0
111	oper_fx_list.push_back(new Geno_f0);
112	#endif
113	#ifdef USE_GENMAN_f0FUZZY
114	oper_fx_list.push_back(new Geno_f0Fuzzy);
115	#endif
116	#ifdef USE_GENMAN_f1
117	oper_fx_list.push_back(new Geno_f1);
118	#endif
119	#ifdef USE_GENMAN_f2
120	oper_fx_list.push_back(new Geno_f2);
121	#endif
122	#ifdef USE_GENMAN_f3
123	oper_fx_list.push_back(new Geno_f3);
124	#endif
125	#ifdef USE_GENMAN_f4
126	oper_fx_list.push_back(new Geno_f4);
127	#endif
128	#ifdef USE_GENMAN_f5
129	oper_fx_list.push_back(new Geno_f5);
130	#endif
131	#ifdef USE_GENMAN_f6
132	oper_fx_list.push_back(new Geno_f6);
133	#endif
134	#ifdef USE_GENMAN_f7
135	oper_fx_list.push_back(new Geno_f7);
136	#endif
137	#ifdef USE_GENMAN_f8
138	oper_fx_list.push_back(new Geno_f8);
139	#endif
140	#ifdef USE_GENMAN_f9
141	oper_fx_list.push_back(new GenoOper_f9);
142	#endif
143	#ifdef USE_GENMAN_fF
144	oper_fx_list.push_back(new GenoOper_fF);
145	#endif
146	#ifdef USE_GENMAN_fT
147	oper_fx_list.push_back(new GenoOper_fTest);
148	#endif
149
150	seloper = new int[oper_fx_list.size()]; //may result in a little overhead if some of the operators on the oper_fx_list concern the same genetic format
151	int selopercount = 0;
152	for (unsigned int i = 0; i < oper_fx_list.size(); i++)
153	{
154	if (operformats.find(oper_fx_list[i]->supported_format) != -1) continue;
155	string type = string("~") + oper_fx_list[i]->name;
156	int dup = 0;
157	for (unsigned int j = i + 1; j < oper_fx_list.size(); j++)
158	if (oper_fx_list[i]->supported_format == oper_fx_list[j]->supported_format)
159	{
160	type += "~";
161	type += oper_fx_list[j]->name;
162	dup++;
163	}
164	type = ssprintf("d 0 %d ", dup) + type;
165	string id = ssprintf("genoper_f%c", oper_fx_list[i]->supported_format);
166	string name = ssprintf("Operators for f%c", oper_fx_list[i]->supported_format);
167	seloper[selopercount] = 0;
168	operformats += oper_fx_list[i]->supported_format;
169	//printf("%x %s %s %s\n",&seloper[selopercount],(const char)id,(const char)type,(const char*)name);
170	seloperpar.addProperty(&seloper[selopercount++], id.c_str(), type.c_str(), name.c_str(), "", PARAM_READONLY*(dup == 0));
171	}
172
173	par += &localpar;
174	par += &seloperpar;
175	par += &neuronsparam;
176	for (unsigned int i = 0; i < oper_fx_list.size(); i++)
177	if (oper_fx_list[i]->par.getParamTab()) par += &oper_fx_list[i]->par;
178	}
179
180	GenMan::~GenMan()
181	{
182	for (unsigned int i = 0; i < oper_fx_list.size(); i++) delete oper_fx_list[i];
183	delete[] seloper;
184	}
185
186	void GenMan::setDefaults()
187	{
188	for (unsigned int i = 0; i < oper_fx_list.size(); i++)
189	{
190	oper_fx_list[i]->par.setDefault();
191	oper_fx_list[i]->setDefaults();
192	}
193	localpar.setDefault();
194	//...and we do not reset others that are linked to 'par',
195	//because there quite a few of them, and not every of them defines defaults for each of its parameters.
196	}
197
198	int GenMan::testValidity(Geno &g, bool &canvalidate)
199	{
200	SString ggs=g.getGenes();
201	const char *gg = ggs.c_str();
202	GenoOperators *gf = getOper_f(g.getFormat());
203	int check1;
204	if (!gf) { canvalidate = false; return GENOPER_NOOPER; }
205	else check1 = gf->checkValidity(gg,g.getName().c_str());
206	if (!canvalidate) return check1; //just checking
207	if (check1 == GENOPER_OK) { canvalidate = false; return check1; }
208	char *g2 = strdup(gg);
209	if (gf->validate(g2,g.getName().c_str()) == GENOPER_NOOPER) { free(g2); canvalidate = false; return check1; }
210	if (check1 == GENOPER_NOOPER) //disaster: cannot check because there is no check operator
211	{
212	g.setGenesAssumingSameFormat(g2); free(g2); canvalidate = false; return GENOPER_NOOPER;
213	}
214	int check2 = gf->checkValidity(g2, "validated");
215	if (check2 == GENOPER_OK) g.setGenesAssumingSameFormat(g2);
216	free(g2);
217	if (check2 == GENOPER_OK) return check1;
218	canvalidate = false;
219	return check1; //could not validate.
220	}
221
222	int GenMan::testGenoValidity(Geno& g)
223	{
224	bool fix = false;
225	switch (testValidity(g, fix))
226	{
227	case GENOPER_OK: return 1;
228	case GENOPER_NOOPER: return -1;
229	default: return 0;
230	}
231	}
232
233	Geno GenMan::validate(const Geno& geny)
234	{
235	char format = geny.getFormat();
236	GenoOperators *gf = getOper_f(format);
237	if (gf == NULL)
238	return Geno(SString::empty(), -1, SString::empty(), SString::sprintf("GENOPER_NOOPER: Validate(): don't know how to handle genetic format %c", format));
239	char *g2 = strdup(geny.getGenes().c_str()); //copy for validation
240	int res = gf->validate(g2, geny.getName().c_str());
241	SString sg2 = g2;
242	free(g2);
243	if (res == GENOPER_OK)
244	return Geno(sg2, format, geny.getName(), geny.getComment());
245	else
246	return Geno(SString::empty(), -1, SString::empty(), SString::sprintf("GENOPER_NOOPER: validate() for format %c returned invalid value", format));
247	}
248
249	Geno GenMan::mutate(const Geno& g)
250	{
251	float chg; //how many changes
252	int method; //mutation method
253	char format = g.getFormat();
254	GenoOperators *gf = getOper_f(format);
255	if (gf == NULL)
256	return Geno(SString::empty(), -1, SString::empty(), SString::sprintf("GENOPER_NOOPER: Mutate(): don't know how to handle genetic format %c", format));
257	Geno gv = g;
258	bool canvalidate = true;
259	if (testValidity(gv, canvalidate) > 0 && canvalidate == false)
260	return Geno("", -1, "", "GENOPER_OPFAIL: Mutate(): cannot validate invalid source genotype");
261	bool ok = false;
262	int pcount = count;
263	while (!ok)
264	{
265	char *gn = strdup(gv.getGenes().c_str()); //copy for mutation
266	chg = 0;
267	if (gf->mutate(gn, chg, method) == GENOPER_OK)
268	{
269	LoggerToMemory eh(LoggerBase::Enable \| LoggerToMemory::StoreFirstMessage); //mute testValidity()
270	Geno G(gn, gv.getFormat(), "", "");
271	canvalidate = true;
272	int res = testValidity(G, canvalidate);
273	if (res == GENOPER_OK && canvalidate == false) { valid_m++; ok = true; }
274	else
275	if (res > 0 && canvalidate == false) invalid_m++; else
276	{
277	validated_m++; ok = true;
278	}
279	if (ok) gv = G;
280	}
281	else failed_m++;
282	free(gn);
283	count++;
284	if (!ok && (count - pcount > 100))
285	{
286	logPrintf("GenMan", "Mutate", 2, "Tried 100x and failed: %s", g.getGenes().c_str());
287	return Geno("", -1, "", "GENOPER_OPFAIL: Mutate() tried 100x and failed");
288	}
289	}
290	mutchg += chg;
291	if (history) saveLink(g.getGenes().c_str(), "", gv.getGenes().c_str(), chg);
292	SString mutinfo;
293	if (extmutinfo == 0) mutinfo = SString::sprintf("%.2f%% mutation of '%s'", 100 * chg, g.getName().c_str()); else
294	if (extmutinfo == 1) mutinfo = SString::sprintf("%.2f%% mutation(%d) of '%s'", 100 * chg, method, g.getName().c_str()); else
295	mutinfo = SString::sprintf("%.2f%% mutation(%s) of '%s'", 100 * chg, gf->mutation_method_names ? gf->mutation_method_names[method] : "unspecified method name", g.getName().c_str());
296	gv.setComment(mutinfo);
297	return gv;
298	}
299
300	Geno GenMan::crossOver(const Geno& g1, const Geno& g2)
301	{
302	char format = g1.getFormat();
303	if (format != g2.getFormat()) return Geno(SString::empty(), -1, SString::empty(), SString::sprintf("GENOPER_NOOPER: CrossOver(): does not work for parents with differing genetic formats (%c and %c)", format, g2.getFormat()));
304	GenoOperators *gf = getOper_f(format);
305	if (gf == NULL)
306	return Geno(SString::empty(), -1, SString::empty(), SString::sprintf("GENOPER_NOOPER: CrossOver(): no operators found for genetic format %c", format));
307	Geno g1v = g1, g2v = g2;
308
309	{
310	LoggerToMemory eh(LoggerBase::Enable \| LoggerToMemory::StoreFirstMessage); //mute testValidity()
311	bool canvalidate = true;
312	if (testValidity(g1v, canvalidate) > 0 && canvalidate == false)
313	return Geno("", -1, "", "GENOPER_OPFAIL: CrossOver(): cannot validate invalid source genotype #1");
314	canvalidate = true;
315	if (testValidity(g2v, canvalidate) > 0 && canvalidate == false)
316	return Geno("", -1, "", "GENOPER_OPFAIL: CrossOver(): cannot validate invalid source genotype #2");
317	}
318
319	float chg;
320	bool ok = false;
321	int pcount = count;
322
323	while (!ok)
324	{
325	float chg1, chg2;
326	char *g1n = strdup(g1.getGenes().c_str()); //copy for crossover
327	char *g2n = strdup(g2.getGenes().c_str()); //copy for crossover
328	chg1 = chg2 = 0;
329	if (gf->crossOver(g1n, g2n, chg1, chg2) == GENOPER_OK)
330	{
331	char *gn;
332	if (g1n[0] && g2n[0]) if (randomN(2) == 0) g1n[0] = 0; else g2n[0] = 0; //both provided? we want only one
333	if (g1n[0]) { gn = g1n; chg = chg1; }
334	else { gn = g2n; chg = chg2; }
335	LoggerToMemory eh(LoggerBase::Enable \| LoggerToMemory::StoreFirstMessage); //mute testValidity()
336	Geno G(gn, g1v.getFormat(), "", "");
337	bool canvalidate = true;
338	int res = testValidity(G, canvalidate);
339	if (res == GENOPER_OK && canvalidate == false) { valid_xo++; ok = true; }
340	else
341	if (res > 0 && canvalidate == false) invalid_xo++; else
342	{
343	validated_xo++; ok = true;
344	}
345	if (ok) g1v = G;
346	}
347	else failed_xo++;
348	free(g1n);
349	free(g2n);
350	count++;
351	if (!ok && (count - pcount > 100))
352	{
353	logPrintf("GenMan", "CrossOver", 2, "Tried 100x and failed: %s and %s", g1.getGenes().c_str(), g2.getGenes().c_str());
354	return Geno("", -1, "", "GENOPER_OPFAIL: CrossOver() tried 100x and failed");
355	}
356	}
357	// result in g1v
358	xochg += chg;
359	if (history) saveLink(g1.getGenes().c_str(), g2.getGenes().c_str(), g1v.getGenes().c_str(), chg);
360	SString xoinfo = SString::sprintf("Crossing over of '%s' (%.2f%%) and '%s' (%.2f%%)",
361	g1.getName().c_str(), 100 * chg, g2.getName().c_str(), 100 * (1 - chg));
362	g1v.setComment(xoinfo);
363	return g1v;
364	}
365
366	float GenMan::similarity(const Geno& g1, const Geno& g2)
367	{
368	char format = g1.getFormat();
369	if (format != g2.getFormat()) return GENOPER_NOOPER;
370	GenoOperators *gf = getOper_f(format);
371	if (!gf) return GENOPER_NOOPER; else return gf->similarity(g1.getGenes().c_str(), g2.getGenes().c_str());
372	}
373
374	uint32_t GenMan::getStyle(const char g, const Geno G, int pos)
375	{
376	char format = G->getFormat();
377	if (format == Geno::INVALID_FORMAT)
378	return GENSTYLE_RGBS(64, 64, 64, 0); // gray & "valid" (unknown format so we don't know what is valid and what is not)
379	if ((pos = G->mapStringToGen(pos)) == -1) return GENSTYLE_COMMENT;
380	GenoOperators *gf = getOper_f(format);
381	if (!gf) return GENSTYLE_CS(0, 0); //black & valid
382	else return gf->style(G->getGenes().c_str(), pos);
383	}
384
385	uint32_t GenMan::getStyle(const char *g, int pos)
386	{
387	Geno G(g);
388	return getStyle(g, &G, pos);
389	}
390
391	void GenMan::getFullStyle(const char g, const Geno G, uint32_t *styletab)
392	{
393	char format = G->getFormat();
394	if (format == Geno::INVALID_FORMAT)
395	{
396	for (unsigned int pos = 0; pos < strlen(g); pos++)
397	styletab[pos] = GENSTYLE_RGBS(64, 64, 64, 0); // gray & "valid" (unknown format so we don't know what is valid and what is not)
398	return;
399	}
400	GenoOperators *gf = getOper_f(format);
401	SString geny=G->getGenes();
402	for (unsigned int pos = 0; pos < strlen(g); pos++)
403	{
404	int posmapped = G->mapStringToGen(pos);
405	if (posmapped == -1) styletab[pos] = GENSTYLE_COMMENT;
406	else if (!gf) styletab[pos] = GENSTYLE_CS(0, 0); //black & valid
407	else styletab[pos] = gf->style(geny.c_str(), posmapped);
408	//logPrintf("GenMan", "getFullStyle", 0, "%d char='%c' (%d) format=0x%08x", pos, g[pos], g[pos], styletab[pos]);
409	}
410	}
411
412	void GenMan::getFullStyle(const char g, uint32_t styletab)
413	{
414	Geno G(g);
415	getFullStyle(g, &G, styletab);
416	}
417
418	string GenMan::HTMLize(const char *g) { return HTMLize(g, false); }
419
420	string GenMan::HTMLizeShort(const char *g) { return HTMLize(g, true); }
421
422	string GenMan::HTMLize(const char *g, bool shorten)
423	{
424	char buf[50];
425	int len = strlen(g);
426	int chars = 0, lines = 0;
427	bool shortened = false;
428	uint32_t *styletab = new uint32_t[len];
429	getFullStyle(g, styletab);
430	string html = "\n<div style=\"background:white;padding:0.2em;font-family:arial,helvetica,sans-serif;font-size:90%\">";
431	uint32_t prevstyle, prevcolor, style = 0, color = 0;
432	for (int i = 0; i<len; i++)
433	{
434	if (shorten && ((lines == 0 && chars>160) \|\| (lines > 5 \|\| chars > 300))) { shortened = true; break; }
435	if (g[i] == '\r') continue;
436	if (g[i] == '\n') { html += "<br>\n"; lines++; continue; }
437	chars++;
438	prevstyle = style;
439	prevcolor = color;
440	style = GENGETSTYLE(styletab[i]);
441	color = GENGETCOLOR(styletab[i]);
442	if ((i != 0 && (color != prevcolor))) html += "</font>";
443	if ((style&GENSTYLE_INVALID) != (prevstyle&GENSTYLE_INVALID))
444	{
445	html += "<"; if (!(style&GENSTYLE_INVALID)) html += "/"; html += "u>";
446	}
447	if ((style&GENSTYLE_BOLD) != (prevstyle&GENSTYLE_BOLD))
448	{
449	html += "<"; if (!(style&GENSTYLE_BOLD)) html += "/"; html += "b>";
450	}
451	if ((style&GENSTYLE_ITALIC) != (prevstyle&GENSTYLE_ITALIC))
452	{
453	html += "<"; if (!(style&GENSTYLE_ITALIC)) html += "/"; html += "i>";
454	}
455	if ((i == 0 \|\| (color != prevcolor)))
456	{
457	sprintf(buf, "<font color=#%02x%02x%02x>", GENGET_R(color), GENGET_G(color), GENGET_B(color)); html += buf;
458	}
459	if (g[i] == '<') html += "<"; else if (g[i] == '>') html += ">"; else html += g[i];
460	if ((i % 3) == 0 && g[i] == ' ') html += "\n"; //for readability, insert some newlines into html...
461	}
462	delete[] styletab;
463	html += "</u></b></i></font>";
464	if (shortened) html += " [etc...]";
465	html += "</div>\n";
466	return html;
467	}
468
469	void GenMan::p_htmlize(ExtValue args, ExtValue ret)
470	{
471	ret->setString(HTMLize(args->getString().c_str()).c_str());
472	}
473
474	void GenMan::p_htmlizeshort(ExtValue args, ExtValue ret)
475	{
476	ret->setString(HTMLizeShort(args->getString().c_str()).c_str());
477	}
478
479	Geno GenMan::getSimplest(char format)
480	{
481	GenoOperators *gf = getOper_f(format);
482	if (!gf) return Geno();
483	string info = "The simplest genotype of format f"; info += format;
484	info += " for operators '"; info += gf->name; info += "'.";
485	return Geno(gf->getSimplest(), format, "Root", info.c_str());
486	}
487
488	void GenMan::p_getsimplest(ExtValue args, ExtValue ret)
489	{
490	int format = GenoObj::formatFromExtValue(args[0]);
491	if (!getOper_f(format))
492	ret->setEmpty();
493	else
494	*ret = GenoObj::makeDynamicObjectAndDecRef(new Geno(getSimplest(format)));
495	}
496
497	const char *GenMan::getOpName(char format)
498	{
499	GenoOperators *gf = getOper_f(format);
500	if (!gf) return "n/a"; else return gf->name.c_str();
501	}
502
503	GenoOperators* GenMan::getOper_f(char format)
504	{
505	int ind = operformats.find(format);
506	if (ind == -1) return NULL;
507	int which_oper_of_format = seloper[ind];
508	for (unsigned int i = 0; i < oper_fx_list.size(); i++)
509	if (oper_fx_list[i]->supported_format == format)
510	if (which_oper_of_format == 0) return oper_fx_list[i]; else which_oper_of_format--;
511	return NULL; //should never happen
512	}
513
514	void GenMan::saveLink(const string parent1, const string parent2, const string child, const float chg)
515	{
516	GenoLink l;
517	l.count = count;
518	l.parent1 = parent1;
519	l.parent2 = parent2;
520	l.child = child;
521	l.chg = chg;
522	l.fit = 0; //temporarily. Will be set when the genotype dies
523	//logPrintf("GenMan","saveLink",0,"#%d: [%d] '%s' + '%s' -> '%s'",GenoLinkList.size(),count,parent1.c_str(),parent2.c_str(),child.c_str());
524	GenoLinkList.push_back(l);
525	}
526
527	void GenMan::onDelGen(void *obj, intptr_t n)
528	{
529	//old code needs update:
530	// ((SpeciesList*)obj)->przyDodaniu(i);
531	/* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
532	GenMan gm=(GenMan)obj;
533	Genotype gt=(Genotype)(*listaGen)(n); //there is no more "listaGen"
534	string g=(const char*)gt->genotype.getGene();
535	float fit=gt->getFinalFitness();
536	for(int i=0;i<gm->GenoLinkList.size();i++) //find genotype
537	if (gm->GenoLinkList[i].g1==g) {gm->GenoLinkList[i].fit=fit; break;}
538	*/
539	}
540
541	void GenMan::clearStats()
542	{
543	count = 0;
544	valid_m = valid_xo = validated_m = validated_xo = invalid_m = invalid_xo = failed_m = failed_xo = 0;
545	mutchg = xochg = 0;
546	GenoLinkList.clear();
547	}
548
549	void GenMan::p_clearStats(ExtValue args, ExtValue ret) { clearStats(); }
550
551	void GenMan::p_report(ExtValue args, ExtValue ret)
552	{ //should be updated to handle multiple operators for a single format
553	char g, g2;
554	float f1, f2;
555	int m;
556	logMessage("GenMan", "Report", 0, "The following genetic operators are available:");
557	for (unsigned int i = 0; i < oper_fx_list.size(); i++)
558	{
559	string l;
560	if (oper_fx_list[i]->checkValidity("","") != GENOPER_NOOPER) l += " checkValidity";
561	if (oper_fx_list[i]->getSimplest())
562	{
563	g = strdup(oper_fx_list[i]->getSimplest());
564	g2 = strdup(g);
565	if (oper_fx_list[i]->validate(g,"") != GENOPER_NOOPER) l += " validate";
566	if (oper_fx_list[i]->mutate(g, f1, m) != GENOPER_NOOPER) l += " mutate";
567	if (oper_fx_list[i]->crossOver(g, g2, f1, f2) != GENOPER_NOOPER) l += " crossover";
568	l += " getSimplest";
569	free(g); free(g2);
570	}
571	// if (oper_fx_list[i]->similarity("","")!=GENOPER_NOOPER) l+=" similarity";
572	logPrintf("GenMan", "Report", 0, "format f%c (%s):%s",
573	oper_fx_list[i]->supported_format, oper_fx_list[i]->name.c_str(), l.c_str());
574	}
575	}
576
577	void GenMan::p_validate(ExtValue args, ExtValue ret)
578	{
579	Geno *g = GenoObj::fromObject(args[0]);
580	if (g == NULL)
581	ret->setEmpty();
582	else
583	ret = GenoObj::makeDynamicObjectAndDecRef(new Geno(validate(g)));
584	}
585
586	void GenMan::p_mutate(ExtValue args, ExtValue ret)
587	{
588	Geno *g = GenoObj::fromObject(args[0]);
589	if (g == NULL)
590	ret->setEmpty();
591	else
592	ret = GenoObj::makeDynamicObjectAndDecRef(new Geno(mutate(g)));
593	}
594
595	void GenMan::p_crossover(ExtValue args, ExtValue ret)
596	{
597	Geno *g1 = GenoObj::fromObject(args[1]);
598	Geno *g2 = GenoObj::fromObject(args[0]);
599	if (g1 == NULL \|\| g2 == NULL)
600	ret->setEmpty();
601	else
602	ret = GenoObj::makeDynamicObjectAndDecRef(new Geno(crossOver(g1, *g2)));
603	}
604

Note: See TracBrowser for help on using the repository browser.

Download in other formats: