2021-07-03 05:07:57 +01:00
<!DOCTYPE HTML>
< html >
< head >
< meta http-equiv = "Content-Type" content = "text/html;charset=US-ASCII" >
2021-08-15 07:23:46 +01:00
< meta name = "generator" content = "ZealOS V0.16" >
2021-07-03 05:07:57 +01:00
< style type = "text/css" >
2021-07-29 03:20:15 +01:00
body {background-color:#fef1f0;}
.cF0{color:#000000;background-color:#fef1f0;}
.cF1{color:#0148a4;background-color:#fef1f0;}
.cF2{color:#3b7901;background-color:#fef1f0;}
.cF3{color:#057c7e;background-color:#fef1f0;}
.cF4{color:#bb2020;background-color:#fef1f0;}
.cF5{color:#9e42ae;background-color:#fef1f0;}
.cF6{color:#b57901;background-color:#fef1f0;}
.cF7{color:#b2b6af;background-color:#fef1f0;}
.cF8{color:#555753;background-color:#fef1f0;}
.cF9{color:#678fbb;background-color:#fef1f0;}
.cFA{color:#82bc49;background-color:#fef1f0;}
.cFB{color:#0097a2;background-color:#fef1f0;}
.cFC{color:#e26a6a;background-color:#fef1f0;}
.cFD{color:#c671bc;background-color:#fef1f0;}
.cFE{color:#c7ab00;background-color:#fef1f0;}
.cFF{color:#fef1f0;background-color:#fef1f0;}
2021-07-03 05:07:57 +01:00
< / style >
< / head >
< body >
2021-07-05 01:12:38 +01:00
< pre style = "font-family:monospace;font-size:12pt" >
2021-07-03 05:07:57 +01:00
< a name = "l1" > < / a > < span class = cF2 > //Classic 2nd order nonlinear ordinary differential equation< / span > < span class = cF0 >
< a name = "l2" > < / a >
< a name = "l3" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > mp_not_done_flags;
< a name = "l4" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l5" > < / a > #< / span > < span class = cF1 > define< / span > < span class = cF0 > OX < / span > < span class = cFE > 10< / span > < span class = cF0 >
< a name = "l6" > < / a > #< / span > < span class = cF1 > define< / span > < span class = cF0 > OY < / span > < span class = cF3 > GR_HEIGHT< / span > < span class = cF0 > / < / span > < span class = cFE > 2< / span > < span class = cF0 > - < / span > < span class = cF3 > FONT_HEIGHT< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l7" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l8" > < / a > #< / span > < span class = cF1 > define< / span > < span class = cF0 > MICRO_STEP < / span > < span class = cFE > 0< / span > < span class = cF0 > .< / span > < span class = cFE > 000001< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l9" > < / a >
< a name = "l10" > < / a > < / span > < span class = cF1 > class< / span > < span class = cF0 > State
< a name = "l11" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l12" > < / a > < / span > < span class = cF1 > F64< / span > < span class = cF0 > wabbits, hawks, d_wabbits, d_hawks; < / span > < span class = cF2 > //Technically, these are not part of the state.< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l13" > < / a > };
< a name = "l14" > < / a >
< a name = "l15" > < / a > < / span > < span class = cF1 > U0< / span > < span class = cF0 > Steps(State *s)
< a name = "l16" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l17" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > i;
2021-07-03 05:07:57 +01:00
< a name = "l18" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l19" > < / a > < / span > < span class = cF1 > for< / span > < span class = cF0 > (i = < / span > < span class = cFE > 0< / span > < span class = cF0 > ; i < < / span > < span class = cFE > 10000< / span > < span class = cF0 > ; i++)
< a name = "l20" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l21" > < / a > s-> d_wabbits = s-> wabbits * (< / span > < span class = cFE > 1< / span > < span class = cF0 > .< / span > < span class = cFE > 0< / span > < span class = cF0 > - < / span > < span class = cFE > 0< / span > < span class = cF0 > .< / span > < span class = cFE > 10< / span > < span class = cF0 > * s-> hawks);
< a name = "l22" > < / a > s-> d_hawks = -s-> hawks * (< / span > < span class = cFE > 1< / span > < span class = cF0 > .< / span > < span class = cFE > 0< / span > < span class = cF0 > - < / span > < span class = cFE > 0< / span > < span class = cF0 > .< / span > < span class = cFE > 01< / span > < span class = cF0 > * s-> wabbits);
< a name = "l23" > < / a > s-> hawks += s-> d_hawks * MICRO_STEP;
< a name = "l24" > < / a > s-> wabbits += s-> d_wabbits * MICRO_STEP;
< a name = "l25" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l26" > < / a > }
< a name = "l27" > < / a >
< a name = "l28" > < / a > < / span > < span class = cF1 > U0< / span > < span class = cF0 > PlotTrajectory(< / span > < span class = cF9 > CTask< / span > < span class = cF0 > *parent)
< a name = "l29" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l30" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > i;
< a name = "l31" > < / a > < / span > < span class = cF9 > CDC< / span > < span class = cF0 > *dc = < / span > < span class = cF5 > DCAlias< / span > < span class = cF0 > (, parent);
< a name = "l32" > < / a > State s;
2021-07-03 05:07:57 +01:00
< a name = "l33" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l34" > < / a > < / span > < span class = cF5 > MemSet< / span > < span class = cF0 > (& s, < / span > < span class = cFE > 0< / span > < span class = cF0 > , < / span > < span class = cF1 > sizeof< / span > < span class = cF7 > (< / span > < span class = cF0 > State< / span > < span class = cF7 > )< / span > < span class = cF0 > );
< a name = "l35" > < / a > s.wabbits = < / span > < span class = cF5 > RandU16< / span > < span class = cF0 > % < / span > < span class = cFE > 100< / span > < span class = cF0 > + < / span > < span class = cFE > 10< / span > < span class = cF0 > ;
< a name = "l36" > < / a > s.hawks = < / span > < span class = cF5 > RandU16< / span > < span class = cF0 > % < / span > < span class = cFE > 10< / span > < span class = cF0 > + < / span > < span class = cFE > 1< / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = "l37" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l38" > < / a > < / span > < span class = cF1 > for< / span > < span class = cF0 > (i = < / span > < span class = cFE > 0< / span > < span class = cF0 > ; i < < / span > < span class = cFE > 1000< / span > < span class = cF0 > ; i++)
< a name = "l39" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l40" > < / a > dc-> color = < / span > < span class = cF3 > LTGREEN< / span > < span class = cF0 > ;
< a name = "l41" > < / a > < / span > < span class = cF5 > GrPlot< / span > < span class = cF0 > (dc, s.wabbits + OX, OY - s.d_wabbits);
< a name = "l42" > < / a > dc-> color=< / span > < span class = cF3 > LTRED< / span > < span class = cF0 > ;
< a name = "l43" > < / a > < / span > < span class = cF5 > GrPlot< / span > < span class = cF0 > (dc, s.hawks + OX, OY - s.d_hawks);
< a name = "l44" > < / a > Steps(& s);
< a name = "l45" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l46" > < / a > < / span > < span class = cF5 > DCDel< / span > < span class = cF0 > (dc);
< a name = "l47" > < / a > < / span > < span class = cF5 > LBtr< / span > < span class = cF0 > (& mp_not_done_flags, < / span > < span class = cF5 > Gs< / span > < span class = cF0 > -> num);
2021-07-03 05:07:57 +01:00
< a name = "l48" > < / a > }
< a name = "l49" > < / a >
< a name = "l50" > < / a > < / span > < span class = cF1 > U0< / span > < span class = cF0 > PredatorPrey()
< a name = "l51" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l52" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > i;
< a name = "l53" > < / a > < / span > < span class = cF9 > CDC< / span > < span class = cF0 > *dc = < / span > < span class = cF5 > DCAlias< / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = "l54" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l55" > < / a > < / span > < span class = cF5 > PopUpOk< / span > < span class = cF0 > (< / span > < span class = cF6 > " This will plot multiple predator-prey\n" < / span > < span class = cF0 >
< a name = "l56" > < / a > < / span > < span class = cF6 > " trajectories. It restarts many times\n" < / span > < span class = cF0 >
< a name = "l57" > < / a > < / span > < span class = cF6 > " with different, random, initial populations.\n" < / span > < span class = cF0 > );
2021-07-26 20:29:49 +01:00
< a name = "l58" > < / a > < / span > < span class = cF5 > SettingsPush< / span > < span class = cF0 > ; < / span > < span class = cF2 > //See < / span > < a href = "https://zeal-operating-system.github.io/ZealOS/System/TaskSettings.CC.html#l3" > < span class = cF4 > SettingsPush< / span > < / a > < span class = cF0 >
2021-07-04 23:11:34 +01:00
< a name = "l59" > < / a > < / span > < span class = cF1 > try< / span > < span class = cF0 >
< a name = "l60" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l61" > < / a > < / span > < span class = cF5 > AutoComplete< / span > < span class = cF0 > ;
< a name = "l62" > < / a > < / span > < span class = cF5 > WinBorder< / span > < span class = cF0 > ;
< a name = "l63" > < / a > < / span > < span class = cF5 > WinMax< / span > < span class = cF0 > ;
< a name = "l64" > < / a > < / span > < span class = cF5 > DocClear< / span > < span class = cF0 > ;
< a name = "l65" > < / a > < / span > < span class = cF5 > Refresh< / span > < span class = cF0 > ;
2021-07-03 05:07:57 +01:00
< a name = "l66" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l67" > < / a > dc-> color = < / span > < span class = cF3 > BLACK< / span > < span class = cF0 > ;
< a name = "l68" > < / a > < / span > < span class = cF5 > GrLine< / span > < span class = cF0 > (dc, OX, < / span > < span class = cFE > 0< / span > < span class = cF0 > , OX, < / span > < span class = cF3 > GR_HEIGHT< / span > < span class = cF0 > - < / span > < span class = cF3 > FONT_HEIGHT< / span > < span class = cF0 > - < / span > < span class = cFE > 1< / span > < span class = cF0 > );
< a name = "l69" > < / a > < / span > < span class = cF5 > GrLine< / span > < span class = cF0 > (dc, < / span > < span class = cFE > 0< / span > < span class = cF0 > , OY, < / span > < span class = cF3 > GR_WIDTH< / span > < span class = cF0 > - < / span > < span class = cFE > 1< / span > < span class = cF0 > , OY);
< a name = "l70" > < / a > < / span > < span class = cF1 > while< / span > < span class = cF0 > (!< / span > < span class = cF5 > CharScan< / span > < span class = cF0 > )
< a name = "l71" > < / a > {
< a name = "l72" > < / a > mp_not_done_flags = < / span > < span class = cFE > 1< / span > < span class = cF0 > < < < / span > < span class = cFB > mp_count< / span > < span class = cF0 > - < / span > < span class = cFE > 1< / span > < span class = cF0 > ;
< a name = "l73" > < / a > < / span > < span class = cF1 > for< / span > < span class = cF0 > (i = < / span > < span class = cFE > 0< / span > < span class = cF0 > ; i < < / span > < span class = cFB > mp_count< / span > < span class = cF0 > ; i++)
< a name = "l74" > < / a > < / span > < span class = cF5 > JobQueue< / span > < span class = cF0 > (& PlotTrajectory, < / span > < span class = cF5 > Fs< / span > < span class = cF0 > , i);
2021-07-03 05:07:57 +01:00
< a name = "l75" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l76" > < / a > < / span > < span class = cF1 > do< / span > < span class = cF0 > < / span > < span class = cF5 > Yield< / span > < span class = cF0 > ;
< a name = "l77" > < / a > < / span > < span class = cF1 > while< / span > < span class = cF0 > (mp_not_done_flags);
< a name = "l78" > < / a > }
< a name = "l79" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
< a name = "l80" > < / a > < / span > < span class = cF1 > catch< / span > < span class = cF0 >
< a name = "l81" > < / a > < / span > < span class = cF5 > PutExcept< / span > < span class = cF0 > ;
< a name = "l82" > < / a > < / span > < span class = cF5 > SettingsPop< / span > < span class = cF0 > ;
< a name = "l83" > < / a > < / span > < span class = cF5 > DCFill< / span > < span class = cF0 > (dc);
< a name = "l84" > < / a > < / span > < span class = cF5 > DCDel< / span > < span class = cF0 > (dc);
2021-07-03 05:07:57 +01:00
< a name = "l85" > < / a > }
< a name = "l86" > < / a >
< a name = "l87" > < / a > PredatorPrey;
< / span > < / pre > < / body >
< / html >
