deqE:=diff(E(t),t)=-k1*E(t)*S(t)+(km1+k2)*C(t);

NiM+SSVkZXFFRzYiLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRik2JC1JIkVHRiU2I0kidEdGJUYuLCYqKEkjazFHRiUiIiJGK0YyLUkiU0dGJUYtRjIhIiIqJiwmSSRrbTFHRiVGMkkjazJHRiVGMkYyLUkiQ0dGJUYtRjJGMg==

deqS:=diff(S(t),t)=-k1*E(t)*S(t)+km1*C(t);

NiM+SSVkZXFTRzYiLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRik2JC1JIlNHRiU2I0kidEdGJUYuLCYqKEkjazFHRiUiIiItSSJFR0YlRi1GMkYrRjIhIiIqJkkka20xR0YlRjItSSJDR0YlRi1GMkYy

deqC:=diff(C(t),t)=k1*E(t)*S(t)-(km1+k2)*C(t);

NiM+SSVkZXFDRzYiLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRik2JC1JIkNHRiU2I0kidEdGJUYuLCYqKEkjazFHRiUiIiItSSJFR0YlRi1GMi1JIlNHRiVGLUYyRjIqJiwmSSRrbTFHRiVGMkkjazJHRiVGMkYyRitGMiEiIg==

deqP:=diff(P(t),t)=k2*C(t);

NiM+SSVkZXFQRzYiLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRik2JC1JIlBHRiU2I0kidEdGJUYuKiZJI2syR0YlIiIiLUkiQ0dGJUYtRjE=

set1:={deqE,deqS,deqC,deqP}:consts1:={k1=0.1,k2=0.1,km1=0.005};

NiM+SShjb25zdHMxRzYiPCUvSSNrMUdGJSQiIiIhIiIvSSNrMkdGJUYpL0kka20xR0YlJCIiJiEiJA==

bound1:={E(0)=1,S(0)=10,C(0)=0,P(0)=0};

NiM+SSdib3VuZDFHNiI8Ji8tSSJFR0YlNiMiIiEiIiIvLUkiU0dGJUYqIiM1Ly1JIkNHRiVGKkYrLy1JIlBHRiVGKkYr

set1c:=subs(consts1,set1);

NiM+SSZzZXQxY0c2IjwmLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRio2JC1JIkVHRiU2I0kidEdGJUYvLCYqJkYsIiIiLUkiU0dGJUYuRjIkISIiRjYtSSJDR0YlRi4kIiQwIiEiJC8tRik2JEYzRi8sJkYxRjVGNyQiIiZGOy8tRik2JEY3Ri8sJkYxJEYyRjZGNyQhJDAiRjsvLUYpNiQtSSJQR0YlRi5GLywkRjdGRg==

vars:={E(t),C(t),S(t),P(t)};

NiM+SSV2YXJzRzYiPCYtSSJFR0YlNiNJInRHRiUtSSJTR0YlRiktSSJDR0YlRiktSSJQR0YlRik=

sol:=dsolve(set1c union bound1,vars,numeric);

NiM+SSRzb2xHNiJmKjYjSSh4X3JrZjQ1R0YlNilJJHJlc0dGJUklZGF0YUdGJUkldmFyc0dGJUkpc29sbnByb2NHRiVJKW91dHBvaW50R0YlSSZuZHNvbEdGJUkiaUdGJTYjSWluQ29weXJpZ2h0fihjKX4yMDAwfmJ5fldhdGVybG9vfk1hcGxlfkluYy5+QWxsfnJpZ2h0c35yZXNlcnZlZC5HRiVGJUMqPkk4X0VudkRTTnVtZXJpY1NhdmVEaWdpdHNHRiVJJ0RpZ2l0c0dGJT5GNiIjOkAlL0ktX0VudkluRnNvbHZlR0YlSSV0cnVlR0kqcHJvdGVjdGVkR0Y9PjgoLSZJJmV2YWxmR0Y9NiNGNTYjOSQ+Rj8tRkJGRD44JWA2JEkkR2V0R0YlSSRTZXRHRiViNiNJK3RoaXNtb2R1bGVHRiU2I0klRGF0YUdGJUYlRktGJUYlRiVGJUkqX20zNDk5MzY4R0YlRlE+OCY3J0kidEdGJS1JIkNHRiU2I0ZXLUkiRUdGJUZaLUkiUEdGJUZaLUkiU0dGJUZaPjgnLV9GSUZMNiNRL3NvbG5fcHJvY2VkdXJlRiVAJDQtSSV0eXBlR0Y9NiRGPy5JKG51bWVyaWNHRj1DJEAsLUknbWVtYmVyR0Y9NiRGRTcrUSZzdGFydEYlLkkmc3RhcnRHRiVRJ21ldGhvZEYlLkknbWV0aG9kR0YlUSVsZWZ0RiVRJnJpZ2h0RiVRKWxlZnRkYXRhRiVRKnJpZ2h0ZGF0YUYlUStlbmdpbmVkYXRhRiVDJD44JC1GXG82Iy1JKGNvbnZlcnRHRj02JEZFLkknc3RyaW5nR0Y9QCYtRmRvNiRGW3EuSSZhcnJheUdGPU8tSSVldmFsR0Y9NiRGW3EiIiIwRltxUSlwcm9jbmFtZUYlT0ZbcS1GW3A2JEZFNyZRJWxhc3RGJS5JJWxhc3RHRiVRKGluaXRpYWxGJS5JKGluaXRpYWxHRiVDJEZqcEAkLUZkbzYkRltxLkklbGlzdEdGPU83Iy1JJHNlcUdGPTYkLyZGVTYjLCY4KkZcckZcckZcciZGW3FGZnMvRmhzOyIiISIiJTMtRmRvNiRGP0kiPUdGPS1GW3A2JC1JJGxoc0dGPTYjRj83JEZmckZnckMkQCUtRmRvNiQtSSRyaHNHRj1GZnRGXXM+RltxLUZcbzYjL0ZmcjckRlx0LUkjb3BHRj02I0ZcdVlRS2luaXRpYWx+dmFsdWVzfm11c3R+YmV+c3BlY2lmaWVkfmlufmF+bGlzdEYlRmpyL0Y/US5zb2xucHJvY2VkdXJlRiVPLUZqcTYjRlxvL0Y/UShzeXN2YXJzRiVPRlVAJTA5IUkodW5rbm93bkdGJU8tLkZidkZEQyQ+OCktSShwb2ludHRvR0Y9NiMmLUZebzYjUTBzb2xuX3Byb2NlZHVyZXNGJTYjRlx0Ty0uRml2RkRaJUMkPkZbcS1GXG9GZnRGYHNGJVlGJUYlRiVGJQ==

sol(0)

NiM3Jy9JInRHNiIkIiIhRigvLUkiQ0dGJjYjRiVGJy8tSSJFR0YmRiwkIiIiRigvLUkiUEdGJkYsRicvLUkiU0dGJkYsJCIjNUYo

;sol(1);

NiM3Jy9JInRHNiIkIiIiIiIhLy1JIkNHRiY2I0YlJCIzYz9GbE8meXAiZiEjPS8tSSJFR0YmRi0kIjMqKXlzTWo5LSQzJUYwLy1JIlBHRiZGLSQiM0R4WCVIM0ooM04hIz4vLUkiU0dGJkYtJCIzeSJHMGIkW0B0JCohIzw=

with(plots):odeplot(sol,[[t,E(t)],[t,C(t)],[t,S(t)],[t,P(t)]],0..300,thickness=3);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2J1gsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjMDAwMDAwMDAwMDAwMDAwMDNGRjAwMDAwMDAwMDAwMDA0MDE4N0Q2MzQzRUIxQTIzM0ZCQkVENTNGRjA5QTBBODQwMjg3RDYzNDNFQjFBMkUzRkJEMTA3NDM5ODA4MUQ2NDAzMjVFMEE3MkYwNTM5NTNGQkVEMzhEOUIxM0M0Rjk0MDM4N0Q2MzQzRUIxQTJFM0ZDMDY1QzBCNDA1NzMzMzQwM0U5Q0JDMTRFNUUwQUMzRkMxODA2M0MzRjExQ0VDNDA0MjVFMEE3MkYwNTM5NTNGQzJCRjA0OEE3QUZGQ0M0MDQ1NkRCNkRCNkRCNkUxM0ZDNDI4MUU0RDIzRDE2ODQwNDg3RDYzNDNFQjFBMjAzRkM1QzM5Nzk1NDJENDhGNDA0QjhEMEZBQzY4N0Q2RDNGQzc5QjEzQ0E2NEJFNzg0MDRFOUNCQzE0RTVFMEFDM0ZDOUJBNTUwMkRBNzlGQjQwNTBENjM0M0VCMUExRjUzRkNDMkY5QTkxRjFGMUEzNDA1MjVFMEE3MkYwNTM5QzNGQ0YwQkZFNjEzRjY1RjI0MDUzRTVFMEE3MkYwNTNCM0ZEMTMxQ0UxNEM2N0Q3ODQwNTU2REI2REI2REI2RTEzRkQzMjZBNThFNTI4NzBENDA1NkY1OEQwRkFDNjg4MTNGRDU3MEJCODQ2MjMwOTE0MDU4N0Q2MzQzRUIxQTIwM0ZEODFCQjg5RkQ3OTlENzQwNUEwNTM5NzgyOUNCQjIzRkRCMzA0MDhFRTE1QjFGNDA1QjhEMEZBQzY4N0Q1RjNGREVCMDE3MERDNUQ1MEQ0MDVEMTRFNUUwQTcyRjBDM0ZFMTQ4QTQ1Mzk3QkFDRjQwNUU5Q0JDMTRFNUUwQkEzRkUzNUNFNEMwQkM3Q0NDNDA2MDEyNDkyNDkyNDkzNDNGRTU3RjI3N0UwODRCRUI0MDYwRDYzNDNFQjFBMUU3M0ZFNzkzOEZCQ0MwNzJCMDQwNjE5QTFGNThEMEZBQkUzRkU5N0Q4OTA1NTJFODVCNDA2MjVFMEE3MkYwNTM5NTNGRUIyNjY3NzIyNEJCMjA0MDYzMjFGNThEMEZBQzZCM0ZFQzgyMTJDOEE1QjE2NzQwNjNFNUUwQTcyRjA1NDIzRkVEOEZDOURBOEI2MTVDNDA2NEE5Q0JDMTRFNUUxOTNGRUU1Nzc0MUNENkYyQkY0MDY1NkRCNkRCNkRCNkYwM0ZFRUU1ODZERTVFOEQyMzQwNjYzMUExRjU4RDBGQTMzRkVGNDc2M0U3MUU1OTE5NDA2NkY1OEQwRkFDNjg3QTNGRUY4OTEwRDU2MzJFMTU0MDY3Qjk3ODI5Q0JDMTUxM0ZFRkI0M0Q4OTNFMzdGOTQwNjg3RDYzNDNFQjFBMjczRkVGRDAyQjJCQzg4MkI3NDA2OTQxNEU1RTBBNzJGRTNGRUZFMjAyNUZEQTg5NDk0MDZBMDUzOTc4MjlDQkQ1M0ZFRkVENEJDMDlCRTI5NTQwNkFDOTI0OTI0OTI0ODgzRkVGRjQ2MjEwQzcxMENENDA2QjhEMEZBQzY4N0Q1RjNGRUZGOENFQzk5NUEyQzA0MDZDNTBGQUM2ODdENjM2M0ZFRkZCOEVEQkI1NjRGMjQwNkQxNEU1RTBBNzJGMEMzRkVGRkQ0MzAyRTgyMDVCNDA2REQ4RDBGQUM2ODdFMzNGRUZGRTUwODAwRDE1N0E0MDZFOUNCQzE0RTVFMEJBM0ZFRkZFRjZBRkM3Q0YwMTQwNkY2MEE3MkYwNTM5NkQzRkVGRkY1RDAzQUM2NTlFNDA3MDEyNDkyNDkyNDkyMjNGRUZGRjlCRjAxOTJCMEM0MDcwNzQzRUIxQTFGNThEM0ZFRkZGQzI5OTBBODcxMzQwNzBENjM0M0VCMUExRjkzRkVGRkZEQTVBMUFBNEVBNDA3MTM4MjlDQkMxNEU2NDNGRUZGRkU4RTlERkM0REE0MDcxOUExRjU4RDBGQUQwM0ZFRkZGRjFEQzc2ODE0MTQwNzFGQzE0RTVFMEE3MjkzRkVGRkZGNzU1RTMyNkNENDA3MjVFMEE3MkYwNTM5NTNGRUZGRkZBQjQ3RDYwRDU0MDcyQzAwMDAwMDAwMDAwM0ZFRkZGRkNDMTQ0NkNBMFgsRilGK0YrW2dsJyElIiEhI19xIlMiIzAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwNDAxODdENjM0M0VCMUEyMzNGRUM4MjU1ODAxRUNCRUM0MDI4N0Q2MzQzRUIxQTJFM0ZFQzVERjE3OENGRUZDQTQwMzI1RTBBNzJGMDUzOTUzRkVDMjU4RTRDOUQ4NzY0NDAzODdENjM0M0VCMUEyRTNGRUJFNjhGRDJGRUEzMzY0MDNFOUNCQzE0RTVFMEFDM0ZFQjlGRTcwRjAzQjhDOTQwNDI1RTBBNzJGMDUzOTUzRkVCNTAzRURENjE0MDBGNDA0NTZEQjZEQjZEQjZFMTNGRUFGNUY4NkNCNzBCQUQ0MDQ4N0Q2MzQzRUIxQTIwM0ZFQThGMUExQUFGNEFFMTQwNEI4RDBGQUM2ODdENkQzRkVBMTkzQjBENjZEMDY3NDA0RTlDQkMxNEU1RTBBQzNGRTk5MTZBQkY0OTYxODU0MDUwRDYzNDNFQjFBMUY1M0ZFOEY0MTk1QjgzODM5OTQwNTI1RTBBNzJGMDUzOUMzRkU4M0QwMDY3QjAyNjg4NDA1M0U1RTBBNzJGMDUzQjNGRTc2NzE4RjU5Q0MxNDc0MDU1NkRCNkRCNkRCNkUxM0ZFNjZDQUQzOEQ2QkM3QTQwNTZGNThEMEZBQzY4ODEzRkU1NDdBMjNEQ0VFN0I4NDA1ODdENjM0M0VCMUEyMDNGRTNGMjIzQjAxNDMzMTc0MDVBMDUzOTc4MjlDQkIyM0ZFMjY3REZCODhGNTI3MDQwNUI4RDBGQUM2ODdENUYzRkUwQTdGNDc5MUQxNTdENDA1RDE0RTVFMEE3MkYwQzNGREQ2RUI3NThEMDhBNkU0MDVFOUNCQzE0RTVFMEJBM0ZEOTQ2MzY3RTg3MDY2QTQwNjAxMjQ5MjQ5MjQ5MzQzRkQ1MDFCMTAzRUY2ODJDNDA2MEQ2MzQzRUIxQTFFNzNGRDBEOEUwODY3RjFBQTc0MDYxOUExRjU4RDBGQUJFM0ZDQTA5REJFQUI0NUU5ODQwNjI1RTBBNzJGMDUzOTUzRkMzNjY2MjM3NkQxMzg1NDA2MzIxRjU4RDBGQUM2QjNGQkJFRjY5QkFEMjc0Q0Y0MDYzRTVFMEE3MkYwNTQyM0ZCMzgxQjEyQkE0RjUyRDQwNjRBOUNCQzE0RTVFMTkzRkFBODhCRTMyOTBENDNENDA2NTZEQjZEQjZEQjZGMDNGQTFBNzkyMUExNzJEREE0MDY2MzFBMUY1OEQwRkEzM0Y5NzEzODMxQzM0REQwRTQwNjZGNThEMEZBQzY4N0EzRjhEQkJDQUE3MzQ3QTJFNDA2N0I5NzgyOUNCQzE1MTNGODJGMDlEQjA3MjAxMEM0MDY4N0Q2MzQzRUIxQTI3M0Y3N0VBNkExQkJFQTRBMjQwNjk0MTRFNUUwQTcyRkUzRjZERkRBMDI1NzZCNUM2NDA2QTA1Mzk3ODI5Q0JENTNGNjJCNDNGNjQxRDZCMUU0MDZBQzkyNDkyNDkyNDg4M0Y1NzNCREU3MURFNjk3ODQwNkI4RDBGQUM2ODdENUYzRjRDQzREOUE5NzUwNjc2NDA2QzUwRkFDNjg3RDYzNjNGNDFDNDkxMkE2QzM2OTE0MDZEMTRFNUUwQTcyRjBDM0YzNUU3RThCRUZEMzEzMTQwNkREOEQwRkFDNjg3RTMzRjJBRjdGRjJFQTg2QkJGNDA2RTlDQkMxNEU1RTBCQTNGMjA5NTAzODMwRkY2M0I0MDZGNjBBNzJGMDUzOTZEM0YxNDVGOEE3MzRDNUM4RDQwNzAxMjQ5MjQ5MjQ5MjIzRjA5MDNGOUI1M0REMjQ1NDA3MDc0M0VCMUExRjU4RDNFRkVCMzdBQkM3NjQxQTE0MDcwRDYzNDNFQjFBMUY5M0VGMkQyRjJBRDhBRUY0NjQwNzEzODI5Q0JDMTRFNjQzRUU3MTYyMDNCMjc3MDhDNDA3MTlBMUY1OEQwRkFEMDNFREM0NzEyRkQ4MjZCMUM0MDcxRkMxNEU1RTBBNzI5M0VEMTU0MzlCMjVFNEEzMjQwNzI1RTBBNzJGMDUzOTUzRUM1MkUwQTdDQTk3QkI2NDA3MkMwMDAwMDAwMDAwMDNFQjlGNURDOUFGMUM3RjNYLEYpRitGK1tnbCchJSIhISNfcSJTIiMwMDAwMDAwMDAwMDAwMDAwNDAyNDAwMDAwMDAwMDAwMDQwMTg3RDYzNDNFQjFBMjM0MDIxNEE0MjYwMjE1MUYwNDAyODdENjM0M0VCMUEyRTQwMjAzNUMxOENFMTFCMDQ0MDMyNUUwQTcyRjA1Mzk1NDAxRTQ4RUFERjYyRjcwNzQwMzg3RDYzNDNFQjFBMkU0MDFDMkJCNjI1NDE2NUFGNDAzRTlDQkMxNEU1RTBBQzQwMUExNDkxRkUxNjQ2MjU0MDQyNUUwQTcyRjA1Mzk1NDAxODA0NEJERDRBMjExRDQwNDU2REI2REI2REI2RTE0MDE1RkJENzNGMzIwRDNDNDA0ODdENjM0M0VCMUEyMDQwMTNGQzU2MTM0QzNFMkQ0MDRCOEQwRkFDNjg3RDZENDAxMjA3MjMwMkRBQ0MyMTQwNEU5Q0JDMTRFNUUwQUM0MDEwMUREREU2Mzc2OUFENDA1MEQ2MzQzRUIxQTFGNTQwMEM4NEY0MTVGRDlGQkI0MDUyNUUwQTcyRjA1MzlDNDAwOEVFOUM3M0IyODUxODQwNTNFNUUwQTcyRjA1M0I0MDA1N0U0OEQwOTFCQUQwNDA1NTZEQjZEQjZEQjZFMTQwMDIzQThCQUQxRDkyMEI0MDU2RjU4RDBGQUM2ODgxM0ZGRTU1RjM4MUU1RDc0NDQwNTg3RDYzNDNFQjFBMjAzRkY4QjAwNUY1QUM2QjQ4NDA1QTA1Mzk3ODI5Q0JCMjNGRjM5NTA1MkIyQkVGNjU0MDVCOEQwRkFDNjg3RDVGM0ZFRTJCOTQ4RTgxMzRCQjQwNUQxNEU1RTBBNzJGMEMzRkU2N0Y2MTAwNTk4QjFBNDA1RTlDQkMxNEU1RTBCQTNGRTAzMkFEM0NEMkM5REQ0MDYwMTI0OTI0OTI0OTM0M0ZENjdFRTIzN0ZGOTlGRDQwNjBENjM0M0VCMUExRTczRkNFMjgzRDdCMDhGNTA5NDA2MTlBMUY1OEQwRkFCRTNGQzM5MjU2QjY4MUUxRDQ0MDYyNUUwQTcyRjA1Mzk1M0ZCOEI3QzZGQzMwRjBCNTQwNjMyMUY1OEQwRkFDNkIzRkFFOEY3ODY3QkNEMzQ0NDA2M0U1RTBBNzJGMDU0MjNGQTI5QzhCMjI1MTU0OTQ0MDY0QTlDQkMxNEU1RTE5M0Y5Njc1QzYyNUFBRTg5QzQwNjU2REI2REI2REI2RjAzRjhBRkE1NDcyNDMxMDc0NDA2NjMxQTFGNThEMEZBMzNGODAyRTExRTVFODhCQzI0MDY2RjU4RDBGQUM2ODdBM0Y3MzZDMzU5MjdERDI3MzQwNjdCOTc4MjlDQkMxNTEzRjY3NUM3NUVDMUNEQkEyNDA2ODdENjM0M0VCMUEyNzNGNUMyQjFCNzc4NzIxQ0U0MDY5NDE0RTVFMEE3MkZFM0Y1MTA2Qzg3NEY2NTNCMjQwNkEwNTM5NzgyOUNCRDUzRjQ0QTIzRDU5MUU2MkU1NDA2QUM5MjQ5MjQ5MjQ4ODNGMzkwRjI2NTQzM0IxNjg0MDZCOEQwRkFDNjg3RDVGM0YyRTdENTkyMUI2QUZFQzQwNkM1MEZBQzY4N0Q2MzYzRjIyOTM5RjNCQzg4QThGNDA2RDE0RTVFMEE3MkYwQzNGMTZBQTIwRENBQTI4Qzk0MDZERDhEMEZBQzY4N0UzM0YwQkFERDJDRTUyRTgyRDQwNkU5Q0JDMTRFNUUwQkEzRjAwRTlGNEMyQjAwOTZBNDA2RjYwQTcyRjA1Mzk2RDNFRjRBRUMxMTQ2MTM4OUY0MDcwMTI0OTI0OTI0OTIyM0VFOTREQ0Q5N0U0MUUwODQwNzA3NDNFQjFBMUY1OEQzRURFRjgyQTMzNkVCNjRGNDA3MEQ2MzQzRUIxQTFGOTNFRDJGMkFDM0U4N0Y1QjM0MDcxMzgyOUNCQzE0RTY0M0VDNzMzOTc3MEIzOTBFNTQwNzE5QTFGNThEMEZBRDAzRUJDNjFEQkIxMDU0OTFCNDA3MUZDMTRFNUUwQTcyOTNFQjE2MDk3RURDQjkwRkE0MDcyNUUwQTcyRjA1Mzk1M0VBNTM4RDJDMzFFQTdGNzQwNzJDMDAwMDAwMDAwMDAzRTk5RkZCOUQzMTBEQjFBWCxGKUYrRitbZ2wnISUiISEjX3EiUyIjMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA0MDE4N0Q2MzQzRUIxQTIzM0ZEREIzMDhGQjk4MkEwQTQwMjg3RDYzNDNFQjFBMkUzRkYwMjJGQURDOEYyRkVCNDAzMjVFMEE3MkYwNTM5NTNGRjhDOThENUMyNTYwMUU0MDM4N0Q2MzQzRUIxQTJFNDAwMEFFRUZDMEJEOEJDRDQwM0U5Q0JDMTRFNUUwQUM0MDA0RUVFMjQwMTI4NTdCNDA0MjVFMEE3MkYwNTM5NTQwMDkyMzU4OEUxMzZEQjM0MDQ1NkRCNkRCNkRCNkUxNDAwRDRBRDM2NjZFMjI5NzQwNDg3RDYzNDNFQjFBMjA0MDEwQjFDNkE5NUREODcyNDA0QjhEMEZBQzY4N0Q2RDQwMTJCNUI1OUI3ODU5Q0Q0MDRFOUNCQzE0RTVFMEFDNDAxNEFGRjRDMURGNkExRTQwNTBENjM0M0VCMUExRjU0MDE2OUYwMkM5OTBCRkE4NDA1MjVFMEE3MkYwNTM5QzQwMTg4MTExQjkzMEI4OUY0MDUzRTVFMEE3MkYwNTNCNDAxQTUzRjg3OTAzOEE2QTQwNTU2REI2REI2REI2RTE0MDFDMTUyNDgyNTY1RjY2NDA1NkY1OEQwRkFDNjg4MTQwMURDMThFRDdDQ0FEMzQ0MDU4N0Q2MzQzRUIxQTIwNDAxRjU1QkEwQzkyNUVDOTQwNUEwNTM5NzgyOUNCQjI0MDIwNjZFMTVGMTE4Q0VBNDA1QjhEMEZBQzY4N0Q1RjQwMjExMkM3NkY4NjFCNUM0MDVEMTRFNUUwQTcyRjBDNDAyMUFDOTQzNTMzRTJGQjQwNUU5Q0JDMTRFNUUwQkE0MDIyMzJBMzc4M0U5QjJFNDA2MDEyNDkyNDkyNDkzNDQwMjJBM0ZCNjYyMDg3RUQ0MDYwRDYzNDNFQjFBMUU3NDAyMzAwOTgwNURGRTM1NjQwNjE5QTFGNThEMEZBQkU0MDIzNDk4RjM1N0IyNkZGNDA2MjVFMEE3MkYwNTM5NTQwMjM4MEY2RTkyOUU5Q0Y0MDYzMjFGNThEMEZBQzZCNDAyM0E5OTFCNDIyOUU0MzQwNjNFNUUwQTcyRjA1NDI0MDIzQzY2MDEyODY2NEMzNDA2NEE5Q0JDMTRFNUUxOTQwMjNEQTNDNUVCQTk5Qjk0MDY1NkRCNkRCNkRCNkYwNDAyM0U3OTlEOEM5NTgxMDQwNjYzMUExRjU4RDBGQTM0MDIzRjA2QUI5Rjg2QjcwNDA2NkY1OEQwRkFDNjg3QTQwMjNGNjIzODZBM0UzMjk0MDY3Qjk3ODI5Q0JDMTUxNDAyM0Y5Q0UxMTM1MjFCMjQwNjg3RDYzNDNFQjFBMjc0MDIzRkMyMTU5RTBDQkY0NDA2OTQxNEU1RTBBNzJGRTQwMjNGRDk3RUZCQTAwRTE0MDZBMDUzOTc4MjlDQkQ1NDAyM0ZFODIzMzE0NTlBRjQwNkFDOTI0OTI0OTI0ODg0MDIzRkYxNDAyQkZDOEE2NDA2QjhEMEZBQzY4N0Q1RjQwMjNGRjZFNkY0MDM4Nzc0MDZDNTBGQUM2ODdENjM2NDAyM0ZGQTY1QTFDMUE4NzQwNkQxNEU1RTBBNzJGMEM0MDIzRkZDOERCMUUxM0IxNDA2REQ4RDBGQUM2ODdFMzQwMjNGRkRFMUM4QzFEQzI0MDZFOUNCQzE0RTVFMEJBNDAyM0ZGRUIzMDdGNEM0NTQwNkY2MEE3MkYwNTM5NkQ0MDIzRkZGMzNBNjJBM0NGNDA3MDEyNDkyNDkyNDkyMjQwMjNGRkY4MkEyNEI5MzU0MDcwNzQzRUIxQTFGNThENDAyM0ZGRkIzMUNGNTZENTQwNzBENjM0M0VCMUExRjk0MDIzRkZGRDBFMEM0ODVCNDA3MTM4MjlDQkMxNEU2NDQwMjNGRkZFMzFDRjlFOEM0MDcxOUExRjU4RDBGQUQwNDAyM0ZGRkVFNTAzQjBCMzQwNzFGQzE0RTVFMEE3Mjk0MDIzRkZGRjUyOUQwMjkwNDA3MjVFMEE3MkYwNTM5NTQwMjNGRkZGOTYwRjAzNEI0MDcyQzAwMDAwMDAwMDAwNDAyM0ZGRkZCRjE0NjlFMS0lJkNPTE9SRzYvJSRSR0JHJCIjNSEiIiQiIiFGNUY2RjZGM0Y2RjNGM0Y2RjZGNkYzLSUrQVhFU0xBQkVMU0c2JFEidEYrUStFLH5DLH5TLH5QRistJSVGT05URzYkJSpIRUxWRVRJQ0FHRjQtJSpUSElDS05FU1NHNiMiIiQ=

odeplot(sol,[E(t),C(t)],0..300,thickness=3);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JFgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjM0ZGMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAzRkJCRUQ1M0ZGMDlBMEE4M0ZFQzgyNTU4MDFFQ0JFQzNGQkQxMDc0Mzk4MDgxRDYzRkVDNURGMTc4Q0ZFRkNBM0ZCRUQzOEQ5QjEzQzRGOTNGRUMyNThFNEM5RDg3NjQzRkMwNjVDMEI0MDU3MzMzM0ZFQkU2OEZEMkZFQTMzNjNGQzE4MDYzQzNGMTFDRUMzRkVCOUZFNzBGMDNCOEM5M0ZDMkJGMDQ4QTdBRkZDQzNGRUI1MDNFREQ2MTQwMEYzRkM0MjgxRTREMjNEMTY4M0ZFQUY1Rjg2Q0I3MEJBRDNGQzVDMzk3OTU0MkQ0OEYzRkVBOEYxQTFBQUY0QUUxM0ZDNzlCMTNDQTY0QkU3ODNGRUExOTNCMEQ2NkQwNjczRkM5QkE1NTAyREE3OUZCM0ZFOTkxNkFCRjQ5NjE4NTNGQ0MyRjlBOTFGMUYxQTMzRkU4RjQxOTVCODM4Mzk5M0ZDRjBCRkU2MTNGNjVGMjNGRTgzRDAwNjdCMDI2ODgzRkQxMzFDRTE0QzY3RDc4M0ZFNzY3MThGNTlDQzE0NzNGRDMyNkE1OEU1Mjg3MEQzRkU2NkNBRDM4RDZCQzdBM0ZENTcwQkI4NDYyMzA5MTNGRTU0N0EyM0RDRUU3QjgzRkQ4MUJCODlGRDc5OUQ3M0ZFM0YyMjNCMDE0MzMxNzNGREIzMDQwOEVFMTVCMUYzRkUyNjdERkI4OEY1MjcwM0ZERUIwMTcwREM1RDUwRDNGRTBBN0Y0NzkxRDE1N0QzRkUxNDhBNDUzOTdCQUNGM0ZERDZFQjc1OEQwOEE2RTNGRTM1Q0U0QzBCQzdDQ0MzRkQ5NDYzNjdFODcwNjZBM0ZFNTdGMjc3RTA4NEJFQjNGRDUwMUIxMDNFRjY4MkMzRkU3OTM4RkJDQzA3MkIwM0ZEMEQ4RTA4NjdGMUFBNzNGRTk3RDg5MDU1MkU4NUIzRkNBMDlEQkVBQjQ1RTk4M0ZFQjI2Njc3MjI0QkIyMDNGQzM2NjYyMzc2RDEzODUzRkVDODIxMkM4QTVCMTY3M0ZCQkVGNjlCQUQyNzRDRjNGRUQ4RkM5REE4QjYxNUMzRkIzODFCMTJCQTRGNTJEM0ZFRTU3NzQxQ0Q2RjJCRjNGQUE4OEJFMzI5MEQ0M0QzRkVFRTU4NkRFNUU4RDIzM0ZBMUE3OTIxQTE3MkREQTNGRUY0NzYzRTcxRTU5MTkzRjk3MTM4MzFDMzRERDBFM0ZFRjg5MTBENTYzMkUxNTNGOERCQkNBQTczNDdBMkUzRkVGQjQzRDg5M0UzN0Y5M0Y4MkYwOURCMDcyMDEwQzNGRUZEMDJCMkJDODgyQjczRjc3RUE2QTFCQkVBNEEyM0ZFRkUyMDI1RkRBODk0OTNGNkRGREEwMjU3NkI1QzYzRkVGRUQ0QkMwOUJFMjk1M0Y2MkI0M0Y2NDFENkIxRTNGRUZGNDYyMTBDNzEwQ0QzRjU3M0JERTcxREU2OTc4M0ZFRkY4Q0VDOTk1QTJDMDNGNENDNEQ5QTk3NTA2NzYzRkVGRkI4RURCQjU2NEYyM0Y0MUM0OTEyQTZDMzY5MTNGRUZGRDQzMDJFODIwNUIzRjM1RTdFOEJFRkQzMTMxM0ZFRkZFNTA4MDBEMTU3QTNGMkFGN0ZGMkVBODZCQkYzRkVGRkVGNkFGQzdDRjAxM0YyMDk1MDM4MzBGRjYzQjNGRUZGRjVEMDNBQzY1OUUzRjE0NUY4QTczNEM1QzhEM0ZFRkZGOUJGMDE5MkIwQzNGMDkwM0Y5QjUzREQyNDUzRkVGRkZDMjk5MEE4NzEzM0VGRUIzN0FCQzc2NDFBMTNGRUZGRkRBNUExQUE0RUEzRUYyRDJGMkFEOEFFRjQ2M0ZFRkZGRThFOURGQzREQTNFRTcxNjIwM0IyNzcwOEMzRkVGRkZGMURDNzY4MTQxM0VEQzQ3MTJGRDgyNkIxQzNGRUZGRkY3NTVFMzI2Q0QzRUQxNTQzOUIyNUU0QTMyM0ZFRkZGRkFCNDdENjBENTNFQzUyRTBBN0NBOTdCQjYzRkVGRkZGQ0MxNDQ2Q0EwM0VCOUY1REM5QUYxQzdGMy0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiFGMkYzLSUrQVhFU0xBQkVMU0c2JFEiRUYrUSJDRistJSVGT05URzYkJSpIRUxWRVRJQ0FHRjEtJSpUSElDS05FU1NHNiMiIiQ=

odeplot(sol,[[P(t)*30,C(t)],[t,C(t)]],0..300);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JVgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDA0MDJCRDdEODZCREVBNzc2M0ZFQzgyNTU4MDFFQ0JFQzQwM0U0MTk2NUQ4Qzc5QUYzRkVDNURGMTc4Q0ZFRkNBNDA0NzNDRjQ4NjYzMEEzMDNGRUMyNThFNEM5RDg3NjQ0MDRGNDgwMTg5NjM2NjBFM0ZFQkU2OEZEMkZFQTMzNjQwNTM5RkY0MUMxMTVEMjgzRkVCOUZFNzBGMDNCOEM5NDA1NzkxMjMwNTMyMzZERjNGRUI1MDNFREQ2MTQwMEY0MDVCNzYyNjMwMDc0MDcyM0ZFQUY1Rjg2Q0I3MEJBRDQwNUY0RDU0N0Q4RkY1RTAzRkVBOEYxQTFBQUY0QUUxNDA2MThBNUE0MUMwRDQyRjNGRUExOTNCMEQ2NkQwNjc0MDYzNjRGNTc1QzE3Mzg0M0ZFOTkxNkFCRjQ5NjE4NTQwNjUzNTEyOUNGN0IzQTEzRkU4RjQxOTVCODM4Mzk5NDA2NkY5MDA5RDlEQUQwNTNGRTgzRDAwNjdCMDI2ODg0MDY4QUVCOEYxNzM1MUJCM0ZFNzY3MThGNTlDQzE0NzQwNkE1M0QyM0EzMEY5NkYzRkU2NkNBRDM4RDZCQzdBNDA2QkU1NzVFQTRGRTI2RjNGRTU0N0EyM0RDRUU3Qjg0MDZENjA1RTZCQzkzOEQxM0ZFM0YyMjNCMDE0MzMxNzQwNkVDMEU2OTI0MEU4MzgzRkUyNjdERkI4OEY1MjcwNDA3MDAxOUFGODhEQjlBNzNGRTBBN0Y0NzkxRDE1N0Q0MDcwOTFDQUYxRTBBNEM1M0ZERDZFQjc1OEQwOEE2RTQwNzEwRjc5NDBCQUIxN0MzRkQ5NDYzNjdFODcwNjZBNDA3MTc5QkJBRkJFN0Y3MDNGRDUwMUIxMDNFRjY4MkM0MDcxRDA4RTg1ODFFNTI1M0ZEMEQ4RTA4NjdGMUFBNzQwNzIxNEY2NDIyMzc0OEMzRkNBMDlEQkVBQjQ1RTk4NDA3MjQ4RTc3QTk3NEIzODNGQzM2NjYyMzc2RDEzODU0MDcyNkVGODk4RTA3NDU1M0ZCQkVGNjlCQUQyNzRDRjQwNzI4OUZBMTE1REZFNzEzRkIzODFCMTJCQTRGNTJENDA3MjlDOTg5OENFRjAxRDNGQUE4OEJFMzI5MEQ0M0Q0MDcyQTkyMDNCM0NDMjhBM0ZBMUE3OTIxQTE3MkREQTQwNzJCMTY0MEU1OEU0QjMzRjk3MTM4MzFDMzRERDBFNDA3MkI2QzE0RTM5QTRGQjNGOERCQkNBQTczNDdBMkU0MDcyQkEzMTMwMjFDRjlFM0Y4MkYwOURCMDcyMDEwQzQwNzJCQzVGNDQ0MkJGMzMzRjc3RUE2QTFCQkVBNEEyNDA3MkJEQkU3MEJFNjBEQjNGNkRGREEwMjU3NkI1QzY0MDcyQkU5QTBGRTMxNDE3M0Y2MkI0M0Y2NDFENkIxRTQwNzJCRjIyQzI5M0NDMTgzRjU3M0JERTcxREU2OTc4NDA3MkJGNzc4ODRDMzRFODNGNENDNEQ5QTk3NTA2NzY0MDcyQkZBQkY0N0E1OEUxM0Y0MUM0OTEyQTZDMzY5MTQwNzJCRkNDNEQ2QzMyNzYzRjM1RTdFOEJFRkQzMTMxNDA3MkJGRTAzQUMzNUJFMTNGMkFGN0ZGMkVBODZCQkY0MDcyQkZFQzdENzc1Nzc5M0YyMDk1MDM4MzBGRjYzQjQwNzJCRkY0MDZCQzc5OUEzRjE0NUY4QTczNEM1QzhENDA3MkJGRjhBNzgyNkRBMzNGMDkwM0Y5QjUzREQyNDU0MDcyQkZGQjdFQjI2MTY4M0VGRUIzN0FCQzc2NDFBMTQwNzJCRkZEM0QyQjgzRDIzRUYyRDJGMkFEOEFFRjQ2NDA3MkJGRkU0RUIyQTRBMTNFRTcxNjIwM0IyNzcwOEM0MDcyQkZGRUY2QjM3NUE5M0VEQzQ3MTJGRDgyNkIxQzQwNzJCRkZGNUQ3MzMyNjIzRUQxNTQzOUIyNUU0QTMyNDA3MkJGRkY5Q0FFMTMwQjNFQzUyRTBBN0NBOTdCQjY0MDcyQkZGRkMzMjMyMzQzM0VCOUY1REM5QUYxQzdGM1gsRilGK0YrW2dsJyElIiEhI19xIlMiIzAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwNDAxODdENjM0M0VCMUEyMzNGRUM4MjU1ODAxRUNCRUM0MDI4N0Q2MzQzRUIxQTJFM0ZFQzVERjE3OENGRUZDQTQwMzI1RTBBNzJGMDUzOTUzRkVDMjU4RTRDOUQ4NzY0NDAzODdENjM0M0VCMUEyRTNGRUJFNjhGRDJGRUEzMzY0MDNFOUNCQzE0RTVFMEFDM0ZFQjlGRTcwRjAzQjhDOTQwNDI1RTBBNzJGMDUzOTUzRkVCNTAzRURENjE0MDBGNDA0NTZEQjZEQjZEQjZFMTNGRUFGNUY4NkNCNzBCQUQ0MDQ4N0Q2MzQzRUIxQTIwM0ZFQThGMUExQUFGNEFFMTQwNEI4RDBGQUM2ODdENkQzRkVBMTkzQjBENjZEMDY3NDA0RTlDQkMxNEU1RTBBQzNGRTk5MTZBQkY0OTYxODU0MDUwRDYzNDNFQjFBMUY1M0ZFOEY0MTk1QjgzODM5OTQwNTI1RTBBNzJGMDUzOUMzRkU4M0QwMDY3QjAyNjg4NDA1M0U1RTBBNzJGMDUzQjNGRTc2NzE4RjU5Q0MxNDc0MDU1NkRCNkRCNkRCNkUxM0ZFNjZDQUQzOEQ2QkM3QTQwNTZGNThEMEZBQzY4ODEzRkU1NDdBMjNEQ0VFN0I4NDA1ODdENjM0M0VCMUEyMDNGRTNGMjIzQjAxNDMzMTc0MDVBMDUzOTc4MjlDQkIyM0ZFMjY3REZCODhGNTI3MDQwNUI4RDBGQUM2ODdENUYzRkUwQTdGNDc5MUQxNTdENDA1RDE0RTVFMEE3MkYwQzNGREQ2RUI3NThEMDhBNkU0MDVFOUNCQzE0RTVFMEJBM0ZEOTQ2MzY3RTg3MDY2QTQwNjAxMjQ5MjQ5MjQ5MzQzRkQ1MDFCMTAzRUY2ODJDNDA2MEQ2MzQzRUIxQTFFNzNGRDBEOEUwODY3RjFBQTc0MDYxOUExRjU4RDBGQUJFM0ZDQTA5REJFQUI0NUU5ODQwNjI1RTBBNzJGMDUzOTUzRkMzNjY2MjM3NkQxMzg1NDA2MzIxRjU4RDBGQUM2QjNGQkJFRjY5QkFEMjc0Q0Y0MDYzRTVFMEE3MkYwNTQyM0ZCMzgxQjEyQkE0RjUyRDQwNjRBOUNCQzE0RTVFMTkzRkFBODhCRTMyOTBENDNENDA2NTZEQjZEQjZEQjZGMDNGQTFBNzkyMUExNzJEREE0MDY2MzFBMUY1OEQwRkEzM0Y5NzEzODMxQzM0REQwRTQwNjZGNThEMEZBQzY4N0EzRjhEQkJDQUE3MzQ3QTJFNDA2N0I5NzgyOUNCQzE1MTNGODJGMDlEQjA3MjAxMEM0MDY4N0Q2MzQzRUIxQTI3M0Y3N0VBNkExQkJFQTRBMjQwNjk0MTRFNUUwQTcyRkUzRjZERkRBMDI1NzZCNUM2NDA2QTA1Mzk3ODI5Q0JENTNGNjJCNDNGNjQxRDZCMUU0MDZBQzkyNDkyNDkyNDg4M0Y1NzNCREU3MURFNjk3ODQwNkI4RDBGQUM2ODdENUYzRjRDQzREOUE5NzUwNjc2NDA2QzUwRkFDNjg3RDYzNjNGNDFDNDkxMkE2QzM2OTE0MDZEMTRFNUUwQTcyRjBDM0YzNUU3RThCRUZEMzEzMTQwNkREOEQwRkFDNjg3RTMzRjJBRjdGRjJFQTg2QkJGNDA2RTlDQkMxNEU1RTBCQTNGMjA5NTAzODMwRkY2M0I0MDZGNjBBNzJGMDUzOTZEM0YxNDVGOEE3MzRDNUM4RDQwNzAxMjQ5MjQ5MjQ5MjIzRjA5MDNGOUI1M0REMjQ1NDA3MDc0M0VCMUExRjU4RDNFRkVCMzdBQkM3NjQxQTE0MDcwRDYzNDNFQjFBMUY5M0VGMkQyRjJBRDhBRUY0NjQwNzEzODI5Q0JDMTRFNjQzRUU3MTYyMDNCMjc3MDhDNDA3MTlBMUY1OEQwRkFEMDNFREM0NzEyRkQ4MjZCMUM0MDcxRkMxNEU1RTBBNzI5M0VEMTU0MzlCMjVFNEEzMjQwNzI1RTBBNzJGMDUzOTUzRUM1MkUwQTdDQTk3QkI2NDA3MkMwMDAwMDAwMDAwMDNFQjlGNURDOUFGMUM3RjMtJSZDT0xPUkc2KSUkUkdCRyQiIzUhIiIkIiIhRjNGNEY0RjFGNC0lK0FYRVNMQUJFTFNHNiRRKDMwKlAsfnRGK1EiQ0YrLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0Yy