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

NiM+SSVkZXFFRzYiLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRik2JC1JIkVHRiU2I0kidEdGJUYuLCgqKEkjazFHRiUiIiJGK0YyLUkiU0dGJUYtRjIhIiIqJiwmSSRrbTFHRiVGMkkjazJHRiVGMkYyLUkiQ0dGJUYtRjJGMiooSSRrbTJHRiVGMkYrRjItSSJQR0YlRi1GMkY1

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)+km2*E(t)*P(t);

NiM+SSVkZXFDRzYiLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRik2JC1JIkNHRiU2I0kidEdGJUYuLCgqKEkjazFHRiUiIiItSSJFR0YlRi1GMi1JIlNHRiVGLUYyRjIqJiwmSSRrbTFHRiVGMkkjazJHRiVGMkYyRitGMiEiIiooSSRrbTJHRiVGMkYzRjItSSJQR0YlRi1GMkYy

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

NiM+SSVkZXFQRzYiLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRik2JC1JIlBHRiU2I0kidEdGJUYuLCYqJkkjazJHRiUiIiItSSJDR0YlRi1GMkYyKihJJGttMkdGJUYyLUkiRUdGJUYtRjJGK0YyISIi

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

NiM+SShjb25zdHMxRzYiPCYvSSNrMUdGJSQiIiIhIiIvSSNrMkdGJUYpL0kka20xR0YlJCIiJiEiJC9JJGttMkdGJUYp

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

NiM+SSdib3VuZDFHNiI8Ji8tSSJFR0YlNiMiIiEiIiIvLUkiU0dGJUYqIiM1Ly1JIkNHRiVGKkYrLy1JIlBHRiVGKkYr

set1c:=subs(consts1,set1);

NiM+SSZzZXQxY0c2IjwmLy1JJWRpZmZHSSpwcm90ZWN0ZWRHRio2JC1JIkVHRiU2I0kidEdGJUYvLCgqJkYsIiIiLUkiU0dGJUYuRjIkISIiRjYtSSJDR0YlRi4kIiQwIiEiJComRixGMi1JIlBHRiVGLkYyRjUvLUYpNiRGM0YvLCZGMUY1RjckIiImRjsvLUYpNiRGN0YvLChGMSRGMkY2RjckISQwIkY7RjxGSS8tRik2JEY9Ri8sJkY3RklGPEY1

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

NiM+SSV2YXJzRzYiPCYtSSJFR0YlNiNJInRHRiUtSSJTR0YlRiktSSJDR0YlRiktSSJQR0YlRik=

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

NiM+SSRzb2xHNiJmKjYjSSh4X3JrZjQ1R0YlNilJJHJlc0dGJUklZGF0YUdGJUkldmFyc0dGJUkpc29sbnByb2NHRiVJKW91dHBvaW50R0YlSSZuZHNvbEdGJUkiaUdGJTYjSWluQ29weXJpZ2h0fihjKX4yMDAwfmJ5fldhdGVybG9vfk1hcGxlfkluYy5+QWxsfnJpZ2h0c35yZXNlcnZlZC5HRiVGJUMqPkk4X0VudkRTTnVtZXJpY1NhdmVEaWdpdHNHRiVJJ0RpZ2l0c0dGJT5GNiIjOkAlL0ktX0VudkluRnNvbHZlR0YlSSV0cnVlR0kqcHJvdGVjdGVkR0Y9PjgoLSZJJmV2YWxmR0Y9NiNGNTYjOSQ+Rj8tRkJGRD44JWA2JEkkR2V0R0YlSSRTZXRHRiViNiNJK3RoaXNtb2R1bGVHRiU2I0klRGF0YUdGJUYlRktGJUYlRiVGJUkpX203NTY2MjhHRiVGUT44JjcnSSJ0R0YlLUkiQ0dGJTYjRlctSSJFR0YlRlotSSJQR0YlRlotSSJTR0YlRlo+OCctX0ZJRkw2I1Evc29sbl9wcm9jZWR1cmVGJUAkNC1JJXR5cGVHRj02JEY/LkkobnVtZXJpY0dGPUMkQCwtSSdtZW1iZXJHRj02JEZFNytRJnN0YXJ0RiUuSSZzdGFydEdGJVEnbWV0aG9kRiUuSSdtZXRob2RHRiVRJWxlZnRGJVEmcmlnaHRGJVEpbGVmdGRhdGFGJVEqcmlnaHRkYXRhRiVRK2VuZ2luZWRhdGFGJUMkPjgkLUZcbzYjLUkoY29udmVydEdGPTYkRkUuSSdzdHJpbmdHRj1AJi1GZG82JEZbcS5JJmFycmF5R0Y9Ty1JJWV2YWxHRj02JEZbcSIiIjBGW3FRKXByb2NuYW1lRiVPRltxLUZbcDYkRkU3JlElbGFzdEYlLkklbGFzdEdGJVEoaW5pdGlhbEYlLkkoaW5pdGlhbEdGJUMkRmpwQCQtRmRvNiRGW3EuSSVsaXN0R0Y9TzcjLUkkc2VxR0Y9NiQvJkZVNiMsJjgqRlxyRlxyRlxyJkZbcUZmcy9GaHM7IiIhIiIlMy1GZG82JEY/SSI9R0Y9LUZbcDYkLUkkbGhzR0Y9NiNGPzckRmZyRmdyQyRAJS1GZG82JC1JJHJoc0dGPUZmdEZdcz5GW3EtRlxvNiMvRmZyNyRGXHQtSSNvcEdGPTYjRlx1WVFLaW5pdGlhbH52YWx1ZXN+bXVzdH5iZX5zcGVjaWZpZWR+aW5+YX5saXN0RiVGanIvRj9RLnNvbG5wcm9jZWR1cmVGJU8tRmpxNiNGXG8vRj9RKHN5c3ZhcnNGJU9GVUAlMDkhSSh1bmtub3duR0YlTy0uRmJ2RkRDJD44KS1JKHBvaW50dG9HRj02IyYtRl5vNiNRMHNvbG5fcHJvY2VkdXJlc0YlNiNGXHRPLS5GaXZGRFolQyQ+RltxLUZcb0ZmdEZgc0YlWUYlRiVGJUYl

sol(0);

NiM3Jy9JInRHNiIkIiIhRigvLUkiQ0dGJjYjRiVGJy8tSSJFR0YmRiwkIiIiRigvLUkiUEdGJkYsRicvLUkiU0dGJkYsJCIjNUYo

sol(1);

NiM3Jy9JInRHNiIkIiIiIiIhLy1JIkNHRiY2I0YlJCIzPSpReSNvUCM9I2YhIz0vLUkiRUdGJkYtJCIzTzs7c0ppPHlTRjAvLUkiUEdGJkYtJCIzU3haKVJgIWVYTSEjPi8tSSJTR0YmRi0kIjNlO0IkeSI9T3QkKiEjPA==

with(plots):

Warning, the name changecoords has been redefined

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

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2J1gsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjMDAwMDAwMDAwMDAwMDAwMDNGRjAwMDAwMDAwMDAwMDAzRkUzOTc4MjlDQkMxNEU5M0ZFMjA1NjQ2NDQ1NzUwOTNGRjM5NzgyOUNCQzE0RjIzRkQ1RkZFNzNDQjQ2Qjg3M0ZGRDYzNDNFQjFBMUY1NDNGQ0Q3OUZFRTJFQTFCRTg0MDAzOTc4MjlDQkMxNEYyM0ZDNURBOThBNTc1MDBCQjQwMDg3RDYzNDNFQjFBMjMzRkMxRDI1MEM5RTRDRkRBNDAwRDYzNDNFQjFBMUY1NDNGQkY1QkZBMTFGMUQ1RDI0MDExMjQ5MjQ5MjQ5MjRFM0ZCRDE0MkQ5MzZDMDc2RTQwMTM5NzgyOUNCQzE0RTczRkJCREQwODg2M0U2NUNENDAxNjBBNzJGMDUzOTc4QTNGQkIzNzE5QjUzRDg4NEM0MDE4N0Q2MzQzRUIxQTIzM0ZCQURFOTRCQjJGMEYwOTQwMUFGMDUzOTc4MjlDQkMzRkJBQUY1OTQ5MjAyQzlDNDAxRDYzNDNFQjFBMUY1RjNGQkE5NjI1NDRGMkNEREY0MDFGRDYzNDNFQjFBMUY4M0ZCQTg4QjIzOUVBRjYyMTQwMjEyNDkyNDkyNDkyNEUzRkJBODE4NENBQTNBRTFFNDAyMjVFMEE3MkYwNTM5QTNGQkE3REIwMkNFODA0MkM0MDIzOTc4MjlDQkMxNEU3M0ZCQTdCQTRERTc1RjA1RTQwMjREMEZBQzY4N0Q2MjgzRkJBN0E4REMwQTBDMjg5NDAyNjBBNzJGMDUzOTc3RjNGQkE3OUY4QjlGNTEwQkQ0MDI3NDNFQjFBMUY1OEQ3M0ZCQTc5QTkxREY2OEVFQzQwMjg3RDYzNDNFQjFBMkUzRkJBNzk3RUQ5OTBGRTQ0NDAyOUI2REI2REI2REI4NjNGQkE3OTY4MTMwNDY2NkI0MDJBRjA1Mzk3ODI5Q0E1M0ZCQTc5NUMyMjUxNzVBOTQwMkMyOUNCQzE0RTVERkQzRkJBNzk1NUEzQTA3QkQ5NDAyRDYzNDNFQjFBMUY1NDNGQkE3OTUyMzJFREZGN0E0MDJFOUNCQzE0RTVFMEFDM0ZCQTc5NTA3RTk5RUMwMTQwMkZENjM0M0VCMUEyMDMzRkJBNzk0Rjc0RDE2NkNFNDAzMDg3RDYzNDNFQjFBRDNGQkE3OTRFRUUwQjJFRDA0MDMxMjQ5MjQ5MjQ5MjU5M0ZCQTc5NEVDMDIyRTlFQTQwMzFDMTRFNUUwQTcyRTkzRkJBNzk0RUE0OURGRTFCNDAzMjVFMEE3MkYwNTM5NTNGQkE3OTRFOERERERDM0Q0MDMyRkFDNjg3RDYzNDQwM0ZCQTc5NEU4M0M5RjU5QTQwMzM5NzgyOUNCQzE0RUMzRkJBNzk0RTg2MkI5MkZCNDAzNDM0M0VCMUExRjU5ODNGQkE3OTRFOEVCNjQ5MUU0MDM0RDBGQUM2ODdENjQ0M0ZCQTc5NEVBRDEwQUI3RjQwMzU2REI2REI2REI2RDMzRkJBNzk0RUQ1QTk3NUQyNDAzNjBBNzJGMDUzOTc3RjNGQkE3OTRFRjZFNkFGMTQ0MDM2QTcyRjA1Mzk3ODJCM0ZCQTc5NEYwNjMzOEJCQzQwMzc0M0VCMUExRjU4RDczRkJBNzk0RjAwMDA2REIzNDAzN0UwQTcyRjA1Mzk4MzNGQkE3OTRFRTdDMkU0NEU0MDM4N0Q2MzQzRUIxQTJFM0ZCQTc5NEVDN0Y1QUM1NDQwMzkxQTFGNThEMEZBQkUzRkJBNzk0RTlBNUU1M0YwNDAzOUI2REI2REI2REI2QTNGQkE3OTRFMzQxNzdCNTA0MDNBNTM5NzgyOUNCQzE1M0ZCQTc5NERDQkYzREU5ODQwM0FGMDUzOTc4MjlDQzEzRkJBNzk0RDhDMDg1RTAxNDAzQjhEMEZBQzY4N0Q2RDNGQkE3OTREODc4NzhCNDE0MDNDMjlDQkMxNEU1RTE5M0ZCQTc5NERCQUMxQTk5ODQwM0NDNjg3RDYzNDNFQTgzRkJBNzk0RTBCMjRBREM1NDAzRDYzNDNFQjFBMUY1NDNGQkE3OTRFN0M5QTIwOEU0MDNFMDAwMDAwMDAwMDAwM0ZCQTc5NEY4NjExMTE3NFgsRilGK0YrW2dsJyElIiEhI19xIlMiIzAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM0ZFMzk3ODI5Q0JDMTRFOTNGREJGNTM3Mzc3NTE1RjAzRkYzOTc4MjlDQkMxNEYyM0ZFNTAwMEM2MUE1Q0EzRDNGRkQ2MzQzRUIxQTFGNTQzRkU4QTE4MDQ3NDU3OTA4NDAwMzk3ODI5Q0JDMTRGMjNGRUE4OTU5RDZBMkJGRDM0MDA4N0Q2MzQzRUIxQTIzM0ZFQjhCNkJDRDg2Q0MwRTQwMEQ2MzQzRUIxQTFGNTQzRkVDMTQ4MEJEQzFDNTQ4NDAxMTI0OTI0OTI0OTI0RTNGRUM1RDdBNEQ5MjdGMTM0MDEzOTc4MjlDQkMxNEU3M0ZFQzg0NUVFRjM4MzM0OTQwMTYwQTcyRjA1Mzk3OEEzRkVDOTkxQ0M5NTg0RUY5NDAxODdENjM0M0VCMUEyMzNGRUNBNDJENjg5QTFFMjE0MDFBRjA1Mzk3ODI5Q0JDM0ZFQ0FBMTRENkRCRkE2OTQwMUQ2MzQzRUIxQTFGNUYzRkVDQUQzQjU3NjFBNjQ2NDAxRkQ2MzQzRUIxQTFGODNGRUNBRUU5QjhDMkExM0M0MDIxMjQ5MjQ5MjQ5MjRFM0ZFQ0FGQ0Y2NkFCOEEzRTQwMjI1RTBBNzJGMDUzOUEzRkVDQjA0OUZBNjJGRjdCNDAyMzk3ODI5Q0JDMTRFNzNGRUNCMDhCNjQzMTQxRjU0MDI0RDBGQUM2ODdENjI4M0ZFQ0IwQUU0N0VCRTdCMTQwMjYwQTcyRjA1Mzk3N0YzRkVDQjBDMEU4QzE1REVBNDAyNzQzRUIxQTFGNThENzNGRUNCMENBREM0MTJFMjQ0MDI4N0Q2MzQzRUIxQTJFM0ZFQ0IwRDAyNENERTAzOTQwMjlCNkRCNkRCNkRCODYzRkVDQjBEMkZEOUY3MzJGNDAyQUYwNTM5NzgyOUNBNTNGRUNCMEQ0N0JCNUQxNEI0MDJDMjlDQkMxNEU1REZEM0ZFQ0IwRDU0QjhCRjA4NTQwMkQ2MzQzRUIxQTFGNTQzRkVDQjBENUI5QTI0MDExNDAyRTlDQkMxNEU1RTBBQzNGRUNCMEQ1RjAyQ0MyODI0MDJGRDYzNDNFQjFBMjAzM0ZFQ0IwRDYxMTY1RDMyNTQwMzA4N0Q2MzQzRUIxQUQzRkVDQjBENjIyM0U5QTI4NDAzMTI0OTI0OTI0OTI1OTNGRUNCMEQ2MjdGQkEyQzU0MDMxQzE0RTVFMEE3MkU5M0ZFQ0IwRDYyQjZDNDAzRTQwMzI1RTBBNzJGMDUzOTUzRkVDQjBENjJFNDQ0NDdBNDAzMkZBQzY4N0Q2MzQ0MDNGRUNCMEQ2MkY4NkMxNEQ0MDMzOTc4MjlDQkMxNEVDM0ZFQ0IwRDYyRjNBOERBMjQwMzQzNDNFQjFBMUY1OTgzRkVDQjBENjJFMjkzNkRFNDAzNEQwRkFDNjg3RDY0NDNGRUNCMEQ2MkE1REVBOTA0MDM1NkRCNkRCNkRCNkQzM0ZFQ0IwRDYyNTRBRDE0ODQwMzYwQTcyRjA1Mzk3N0YzRkVDQjBENjIxMjMyQTFGNDAzNkE3MkYwNTM5NzgyQjNGRUNCMEQ2MUYzOThFODg0MDM3NDNFQjFBMUY1OEQ3M0ZFQ0IwRDYxRkZGRjI0QjQwMzdFMEE3MkYwNTM5ODMzRkVDQjBENjIzMDdBMzc3NDAzODdENjM0M0VCMUEyRTNGRUNCMEQ2MjcwMTRBNzc0MDM5MUExRjU4RDBGQUJFM0ZFQ0IwRDYyQ0I0MzU4MjQwMzlCNkRCNkRCNkRCNkEzRkVDQjBENjM5N0QxMDk1NDAzQTUzOTc4MjlDQkMxNTNGRUNCMEQ2NDY4MTg0MkQ0MDNBRjA1Mzk3ODI5Q0MxM0ZFQ0IwRDY0RTdFRjQ0MTQwM0I4RDBGQUM2ODdENkQzRkVDQjBENjRGMEYwRTlBNDAzQzI5Q0JDMTRFNUUxOTNGRUNCMEQ2NDhBN0NBRDA0MDNDQzY4N0Q2MzQzRUE4M0ZFQ0IwRDYzRTlCNkE0ODQwM0Q2MzQzRUIxQTFGNTQzRkVDQjBENjMwNkNCQkYyNDAzRTAwMDAwMDAwMDAwMDNGRUNCMEQ2MEYzRERERDFYLEYpRitGK1tnbCchJSIhISNfcSJTIiMwMDAwMDAwMDAwMDAwMDAwNDAyNDAwMDAwMDAwMDAwMDNGRTM5NzgyOUNCQzE0RTk0MDIzMThDQjgzOUM3QTIxM0ZGMzk3ODI5Q0JDMTRGMjQwMjI5NzU3QURENURBOTczRkZENjM0M0VCMUExRjU0NDAyMjQ3NEU0OTg1NzZBMDQwMDM5NzgyOUNCQzE0RjI0MDIyMTA1QjQyNEUzODUwNDAwODdENjM0M0VCMUEyMzQwMjFFNjc4M0Q1MzQwQUU0MDBENjM0M0VCMUExRjU0NDAyMUMzODBDMUY1OThBNjQwMTEyNDkyNDkyNDkyNEU0MDIxQTQ0MzM2NzZFNzc1NDAxMzk3ODI5Q0JDMTRFNzQwMjE4NzEyNkE4QjMxQUM0MDE2MEE3MkYwNTM5NzhBNDAyMTZCMEJERTYyREREMjQwMTg3RDYzNDNFQjFBMjM0MDIxNEZCN0E4RUFFMDc0NDAxQUYwNTM5NzgyOUNCQzQwMjEzNEQ2MjVDNThBQTQ0MDFENjM0M0VCMUExRjVGNDAyMTFBNDU3QUZCMzE4NjQwMUZENjM0M0VCMUExRjg0MDIwRkZGMzk0MDRGNkRCNDAyMTI0OTI0OTI0OTI0RTQwMjBFNUQ2QkEyMUM5Qzg0MDIyNUUwQTcyRjA1MzlBNDAyMENCRTlBNjczNjg3NTQwMjM5NzgyOUNCQzE0RTc0MDIwQjIyOTZDQ0Q1QTgwNDAyNEQwRkFDNjg3RDYyODQwMjA5ODk0NjBFQTM3QTg0MDI2MEE3MkYwNTM5NzdGNDAyMDdGMjk3RkE5MTc0RDQwMjc0M0VCMUExRjU4RDc0MDIwNjVFODIwQ0U4M0VBNDAyODdENjM0M0VCMUEyRTQwMjA0Q0NGQ0NCNjBGQkI0MDI5QjZEQjZEQjZEQjg2NDAyMDMzRTAyM0VGNUZBMTQwMkFGMDUzOTc4MjlDQTU0MDIwMUIxOEQ2QzRDQ0RDNDAyQzI5Q0JDMTRFNURGRDQwMjAwMjc5OUI0QkFCMkE0MDJENjM0M0VCMUExRjU0NDAxRkQ0MDQ1OUYwQUU4NjQwMkU5Q0JDMTRFNUUwQUM0MDFGQTM2NDkyQkVCNkU4NDAyRkQ2MzQzRUIxQTIwMzQwMUY3MzEzNURENjZDQzE0MDMwODdENjM0M0VCMUFENDAxRjQzMTAzQkNFNTA5MzQwMzEyNDkyNDkyNDkyNTk0MDFGMTM1QUFERkE1N0YwNDAzMUMxNEU1RTBBNzJFOTQwMUVFM0YyMzYyMjU3NUU0MDMyNUUwQTcyRjA1Mzk1NDAxRUI0RDY1Nzk0MjQ5RDQwMzJGQUM2ODdENjM0NDA0MDFFODYwNjk2QTVENUY4NDAzMzk3ODI5Q0JDMTRFQzQwMUU1NzgyNzg1QTUxQkI0MDM0MzQzRUIxQTFGNTk4NDAxRTI5NDk4MjY3MkE1RDQwMzREMEZBQzY4N0Q2NDQ0MDFERkI1QjNCODg0RjQ5NDAzNTZEQjZEQjZEQjZEMzQwMURDREI3MkFGNEJENTk0MDM2MEE3MkYwNTM5NzdGNDAxREEwNUNEODkzMTY1RDQwMzZBNzJGMDUzOTc4MkI0MDFENzM0QkNEMUUxNDExNDAzNzQzRUIxQTFGNThENzQwMUQ0NjgzOTIyNDg3RjY0MDM3RTBBNzJGMDUzOTgzNDAxRDFBMDNCMjA5NUI1NDQwMzg3RDYzNDNFQjFBMkU0MDFDRURDQkI4MDM4RjQzNDAzOTFBMUY1OEQwRkFCRTQwMUNDMURCMkZENzZDMjg0MDM5QjZEQjZEQjZEQjZBNDAxQzk2MzFBNTk3Rjg3NDQwM0E1Mzk3ODI5Q0JDMTU0MDFDNkFDRUE3MzJDMEYxNDAzQUYwNTM5NzgyOUNDMTQwMUMzRkIxQzMyNjREQzY0MDNCOEQwRkFDNjg3RDZENDAxQzE0REE4ODYzRURFRDQwM0MyOUNCQzE0RTVFMTk0MDFCRUE0ODg2NEZCNzNGNDAzQ0M2ODdENjM0M0VBODQwMUJCRkZCNENDMDg2NzA0MDNENjM0M0VCMUExRjU0NDAxQjk1RjI2Qzk1QzU1QzQwM0UwMDAwMDAwMDAwMDA0MDFCNkMyRDc4QUQ4RTc4WCxGKUYrRitbZ2wnISUiISEjX3EiUyIjMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAzRkUzOTc4MjlDQkMxNEU5M0Y4RTJCMEE5Rjc0QjczNjNGRjM5NzgyOUNCQzE0RjIzRkE4QTc4QzBGQzhDNDREM0ZGRDYzNDNFQjFBMUY1NDNGQjc0Q0Q5MDMxOEU3Mzg0MDAzOTc4MjlDQkMxNEYyM0ZDMUMzQzgxMUU2RUMzMDQwMDg3RDYzNDNFQjFBMjMzRkM4MzQ0MTc1MTRBNDE5NDAwRDYzNDNFQjFBMUY1NDNGQ0VDRENDOEI5MkMwQjI0MDExMjQ5MjQ5MjQ5MjRFM0ZEMkJDQTQ5NUZFMTJGOTQwMTM5NzgyOUNCQzE0RTczRkQ2MTRGNEQwMjk2M0JBNDAxNjBBNzJGMDUzOTc4QTNGRDk2QzRBQTBGM0E3NjM0MDE4N0Q2MzQzRUIxQTIzM0ZEQ0MwQjAxMTZGQjRERDQwMUFGMDUzOTc4MjlDQkMzRkUwMDg4OENDQ0I1QUY5NDAxRDYzNDNFQjFBMUY1RjNGRTFBRTZDRjhFQjQxMzM0MDFGRDYzNDNFQjFBMUY4M0ZFMzUxREQwNkVERjBFMTQwMjEyNDkyNDkyNDkyNEUzRkU0RjJDNEY3MzdEOEZGNDAyMjVFMEE3MkYwNTM5QTNGRTY5MTFCOUU2Njc5MEM0MDIzOTc4MjlDQkMxNEU3M0ZFODJDRERDRUY5MTVEQzQwMjREMEZBQzY4N0Q2MjgzRkU5QzYwQkE5NzA5RDk5NDAyNjBBNzJGMDUzOTc3RjNGRUI1Q0E3MUNBRDJEMTQ0MDI3NDNFQjFBMUY1OEQ3M0ZFQ0YwQjMxNkQ2OTMwNTQwMjg3RDYzNDNFQjFBMkUzRkVFODIzMzBGRDEyM0VBNDAyOUI2REI2REI2REI4NjNGRjAwODk1NjFCNTQ5MzM0MDJBRjA1Mzk3ODI5Q0E1M0ZGMENFQ0YwQkZFQjA1QTQwMkMyOUNCQzE0RTVERkQzRkYxOTNDODdGRENBRTQ2NDAyRDYzNDNFQjFBMUY1NDNGRjI1NzgzQkI2QzI1QzA0MDJFOUNCQzE0RTVFMEFDM0ZGMzFBMDJCQ0VFQzMwMzQwMkZENjM0M0VCMUEyMDMzRkYzREI0NzdGRjM2MzQ1NDAzMDg3RDYzNDNFQjFBRDNGRjQ5QjUzRkZBNzcwODc0MDMxMjQ5MjQ5MjQ5MjU5M0ZGNTVBMkEzNDE4Q0VDMTQwMzFDMTRFNUUwQTcyRTkzRkY2MTdDQzExQzA4MjRENDAzMjVFMEE3MkYwNTM5NTNGRjZENDNCOEE4RDRCMzc0MDMyRkFDNjg3RDYzNDQwM0ZGNzhGN0E4REE1NDc1QjQwMzM5NzgyOUNCQzE0RUMzRkY4NDk4QjA2Rjk3MjI0NDAzNDM0M0VCMUExRjU5ODNGRjkwMjZFREY0RUJCMDc0MDM0RDBGQUM2ODdENjQ0M0ZGOUJBMjdGQ0FGQ0Q3MjQwMzU2REI2REI2REI2RDMzRkZBNzBCODQxODdBMUUxNDAzNjBBNzJGMDUzOTc3RjNGRkIyNjIxOEQyMjExNjU0MDM2QTcyRjA1Mzk3ODJCM0ZGQkRBNjVCQkVBRTg1OTQwMzc0M0VCMUExRjU4RDczRkZDOEQ4NkE3NkRFNkU2NDAzN0UwQTcyRjA1Mzk4MzNGRkQzRjg2MjY1NkMwRDY0MDM4N0Q2MzQzRUIxQTJFM0ZGREYwNjYwQzcxMURBMDQwMzkxQTFGNThEMEZBQkUzRkZFQTAyODJBNDgzNDgwNDAzOUI2REI2REI2REI2QTNGRkY0RUNFNENFMTk1QzA0MDNBNTM5NzgyOUNCQzE1M0ZGRkZDNUEzRkY0MzlGRjQwM0FGMDUzOTc4MjlDQzE0MDAwNTQ2NkU2MTNBNzU3NDAzQjhEMEZBQzY4N0Q2RDQwMDBBQTE1NUI3NDYwNzQ0MDNDMjlDQkMxNEU1RTE5NDAwMEZGMzk2MTM2OUVDMzQwM0NDNjg3RDYzNDNFQTg0MDAxNTNEM0Q2RDgxODdGNDAzRDYzNDNFQjFBMUY1NDQwMDFBN0U1OUFCOTQ2NDE0MDNFMDAwMDAwMDAwMDAwNDAwMUZCNkY4QUQ1NkI4OS0lJkNPTE9SRzYvJSRSR0JHJCIjNSEiIiQiIiFGNUY2RjZGM0Y2RjNGM0Y2RjZGNkYzLSUrQVhFU0xBQkVMU0c2JFEidEYrUStFLH5DLH5TLH5QRistJSVGT05URzYkJSpIRUxWRVRJQ0FHRjQtJSpUSElDS05FU1NHNiMiIiQ=

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

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JFgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjM0ZGMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAzRkJBREU5NEJCMkYwRjA5M0ZFQ0E0MkQ2ODlBMUUyMTNGQkE3OTdFRDk5MEZFNDQzRkVDQjBEMDI0Q0RFMDM5M0ZCQTc5NEU4REREREMzRDNGRUNCMEQ2MkU0NDQ0N0EzRkJBNzk0RUM3RjVBQzU0M0ZFQ0IwRDYyNzAxNEE3NzNGQkE3OTUwOUJDOTQ3REEzRkVDQjBENUVDODZENzA2M0ZCQTc5NENDQjQ3QkZENDNGRUNCMEQ2NjY5NzA4MDYzRkJBNzk0RTQwQTcwODk4M0ZFQ0IwRDYzN0VCMUVFRjNGQkE3OTREMjczMTZCNDEzRkVDQjBENjVCMTlEMjlBM0ZCQTc5NTAwMEY1ODNFNDNGRUNCMEQ1RkZFMTRGODQzRkJBNzk0RjNEODgyNTA4M0ZFQ0IwRDYxODRFRkI2MDNGQkE3OTRGNTE1RjVDN0UzRkVDQjBENjE1RDQxNDcyM0ZCQTc5NEU1RUZGNUMwMzNGRUNCMEQ2MzQyMDE0ODEzRkJBNzk0RDJFMTFERjFGM0ZFQ0IwRDY1QTNEQzQxQzNGQkE3OTRFMUMxQTI1MDIzRkVDQjBENjNDN0NCQjYwM0ZCQTc5NEQ4QzE5N0Q4MTNGRUNCMEQ2NEU3Q0QwNEUzRkJBNzk1MEE0QjNBNEJCM0ZFQ0IwRDVFQjY5OEI2ODNGQkE3OTRGMTg0NUM5NzEzRkVDQjBENjFDRjc0NkQzM0ZCQTc5NEZCMUI2NDkwMDNGRUNCMEQ2MDlDOTM2RTAzRkJBNzk0Q0ZEREEyMTFEM0ZFQ0IwRDY2MDQ0QkJERDNGQkE3OTREQkQzOTEyRDQzRkVDQjBENjQ4NThEREE2M0ZCQTc5NERENTdGQjNERDNGRUNCMEQ2NDU1MDA5ODUzRkJBNzk0RjI2QkQ2RDE2M0ZFQ0IwRDYxQjI4NTI1QzNGQkE3OTUwMTQwNzQ2REEzRkVDQjBENUZEN0YxNzI0M0ZCQTc5NEYyNjdGNDQ0NTNGRUNCMEQ2MUIzMDE3NzczRkJBNzk0RjFBQTgwOEFGM0ZFQ0IwRDYxQ0FBRkVFQzNGQkE3OTRDQTAxM0ZEMkEzRkVDQjBENjZCRkQ4MDVDM0ZCQTc5NERGNTM4RUJCMTNGRUNCMEQ2NDE1OEUyOEIzRkJBNzk0REI2QUM1MzNBM0ZFQ0IwRDY0OTJBNzU5QjNGQkE3OTUwMENDNDc0OEEzRkVDQjBENUZFNjc3MTZGM0ZCQTc5NEY4NjIyQzMxQTNGRUNCMEQ2MEYzQkE3QTAzRkJBNzk0RjUwQ0Q0QzQ0M0ZFQ0IwRDYxNUU2NTY3QjNGQkE3OTRERkYxRkExMjczRkVDQjBENjQwMUMwQkRFM0ZCQTc5NEQxQ0REQjkwRjNGRUNCMEQ2NUM2NDQ4RTAzRkJBNzk0REYyMUY2MTlDM0ZFQ0IwRDY0MUJDMTNEMTNGQkE3OTRFM0NDQjkyRTQzRkVDQjBENjM4NjY4REE5M0ZCQTc5NTA0RTE5MjM2NTNGRUNCMEQ1RjYzQ0RCOTgzRkJBNzk0RjREOTQyRUFFM0ZFQ0IwRDYxNjREN0EyRjNGQkE3OTRGNTg5QjBFOTczRkVDQjBENjE0RUM5RTMzM0ZCQTc5NEQ1QzQ5MThEMTNGRUNCMEQ2NTQ3NkRDRUIzRkJBNzk0RDkyM0Q1MUYyM0ZFQ0IwRDY0REI4NTVDMzNGQkE3OTRERDRFQTMxQUIzRkVDQjBENjQ1NjJCOUNFM0ZCQTc5NEYwRkE3RjFBODNGRUNCMEQ2MUUwQjAxRDAzRkJBNzk0RkY5RDY5MkZDM0ZFQ0IwRDYwMEM1MkRBMzNGQkE3OTRGNENDMzIxMEEzRkVDQjBENjE2Njc5QkUxM0ZCQTc5NEVGMTMzMDE3NzNGRUNCMEQ2MjFEOTlGRDUzRkJBNzk0RDIzM0UxMEU4M0ZFQ0IwRDY1Qjk4M0RFNzNGQkE3OTREQzQ5M0VDNTAzRkVDQjBENjQ3NkQ4MjdBM0ZCQTc5NEREMDRDRjNBMjNGRUNCMEQ2NDVGNjYxOTAzRkJBNzk0Rjg4QTE3RTUxM0ZFQ0IwRDYwRUVCRDAzOS0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiFGMkYzLSUrQVhFU0xBQkVMU0c2JFEiRUYrUSJDRistJSVGT05URzYkJSpIRUxWRVRJQ0FHRjEtJSpUSElDS05FU1NHNiMiIiQ=

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

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JVgsSSlhbnl0aGluZ0dJKnByb3RlY3RlZEdGKjYiRitbZ2wnISUiISEjX3EiUyIjMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAzRkRDNDg1OUY1N0Q2QkNCM0ZEQkY1MzczNzc1MTVGMDNGRjcxRDEzNEVDQzM4MDUzRkU1MDAwQzYxQTVDQTNENDAwNUQ4MEI3MkU3NThCODNGRThBMTgwNDc0NTc5MDg0MDEwQTc4QjkwQzg3RDczM0ZFQTg5NTlENkEyQkZEMzQwMTZCMEZENURDMzU5RDEzRkVCOEI2QkNEODZDQzBFNDAxQ0UwRUZDMkQ5OTRBOTNGRUMxNDgwQkRDMUM1NDg0MDIxOTBEQTRDOUUzMUQyM0ZFQzVEN0E0RDkyN0YxMzQwMjRCM0E1ODMyNkNENzQzRkVDODQ1RUVGMzgzMzQ5NDAyN0Q1ODVGNkU0NkNGMjNGRUM5OTFDQzk1ODRFRjk0MDJBRjRBNTEwNThCOUFFM0ZFQ0E0MkQ2ODlBMUUyMTQwMkUxMDAwN0ZGRDRBODEzRkVDQUExNEQ2REJGQTY5NDAzMDkzODYyOTVDOEQyNTNGRUNBRDNCNTc2MUE2NDY0MDMyMUNCRjM2N0YxMURGM0ZFQ0FFRTlCOEMyQTEzQzQwMzNBMzk4QTdDNDVCN0YzRkVDQUZDRjY2QUI4QTNFNDAzNTI4MDlFNDgwMTE3RDNGRUNCMDQ5RkE2MkZGN0I0MDM2QUEwRkYyMDk4NDcwM0ZFQ0IwOEI2NDMxNDFGNTQwMzgyOUFBRUVEOTkzQkQzRkVDQjBBRTQ3RUJFN0IxNDAzOUE2RENBQUUyNUE0OTNGRUNCMEMwRThDMTVERUE0MDNCMjFBN0U1NjkyOUUyM0ZFQ0IwQ0FEQzQxMkUyNDQwM0M5QTBGREVENDExOUYzRkVDQjBEMDI0Q0RFMDM5NDAzRTEwMTgxNzMzRTkzNzNGRUNCMEQyRkQ5RjczMkY0MDNGODNDNDM2N0Q4QUE2M0ZFQ0IwRDQ3QkI1RDE0QjQwNDA3QThCRjdERUUzNkYzRkVDQjBENTRCOEJGMDg1NDA0MTMyMEI3RkI1NjM2RTNGRUNCMEQ1QjlBMjQwMTE0MDQxRTg2MjkxMUZENkQzM0ZFQ0IwRDVGMDJDQzI4MjQwNDI5RDkzMDdGNDJEMEQzRkVDQjBENjExNjVEMzI1NDA0MzUxOUVCRkFDRjk2RDNGRUNCMEQ2MjIzRTlBMjg0MDQ0MDQ4NzkwRDc0MUM4M0ZFQ0IwRDYyN0ZCQTJDNTQwNDRCNjRGNTBBNDdBMzczRkVDQjBENjJCNkM0MDNFNDA0NTY2RjdEMUU0NzY3MDNGRUNCMEQ2MkU0NDQ0N0E0MDQ2MTY4MkU0Q0FGMkY3M0ZFQ0IwRDYyRjg2QzE0RDQwNDZDNEYyNTY4OURCMEQzRkVDQjBENjJGM0E4REEyNDA0NzcyNDdGMTU5Q0Y0RjNGRUNCMEQ2MkUyOTM2REU0MDQ4MUU4NTdDRTREMEExM0ZFQ0IwRDYyQTVERUE5MDQwNDhDOUFDQkQ2RjI3QzkzRkVDQjBENjI1NEFEMTQ4NDA0OTczQkY3NDRGRjA1QTNGRUNCMEQ2MjEyMzJBMUY0MDRBMUNCRjYwMkMzOURBM0ZFQ0IwRDYxRjM5OEU4ODQwNEFDNEFFM0NGNzA4NkYzRkVDQjBENjFGRkZGMjRCNDA0QjZCOERDM0YxNTREQTNGRUNCMEQ2MjMwN0EzNzc0MDRDMTE1RkFCQUEwQkQxM0ZFQ0IwRDYyNzAxNEE3NzQwNENCNjI1QTdBM0IxMzQzRkVDQjBENjJDQjQzNTgyNDA0RDU5RTE2ODEzN0M3NzNGRUNCMEQ2Mzk3RDEwOTU0MDRERkM5NDlCRjRGNjYyM0ZFQ0IwRDY0NjgxODQyRDQwNEU5RTQwRUY2NEQ5QkUzRkVDQjBENjRFN0VGNDQxNDA0RjNFRTgwQjdBMzRDQzNGRUNCMEQ2NEYwRjBFOUE0MDRGREU4Qjk2NDY2OTlDM0ZFQ0IwRDY0OEE3Q0FEMDQwNTAzRTk2OTk2QTk2RjAzRkVDQjBENjNFOUI2QTQ4NDA1MDhENjc0MTBEQjFEQTNGRUNCMEQ2MzA2Q0JCRjI0MDUwREJCODkyMjgxNEQ5M0ZFQ0IwRDYwRjNEREREMVgsRilGK0YrW2dsJyElIiEhI19xIlMiIzAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM0ZFMzk3ODI5Q0JDMTRFOTNGREJGNTM3Mzc3NTE1RjAzRkYzOTc4MjlDQkMxNEYyM0ZFNTAwMEM2MUE1Q0EzRDNGRkQ2MzQzRUIxQTFGNTQzRkU4QTE4MDQ3NDU3OTA4NDAwMzk3ODI5Q0JDMTRGMjNGRUE4OTU5RDZBMkJGRDM0MDA4N0Q2MzQzRUIxQTIzM0ZFQjhCNkJDRDg2Q0MwRTQwMEQ2MzQzRUIxQTFGNTQzRkVDMTQ4MEJEQzFDNTQ4NDAxMTI0OTI0OTI0OTI0RTNGRUM1RDdBNEQ5MjdGMTM0MDEzOTc4MjlDQkMxNEU3M0ZFQzg0NUVFRjM4MzM0OTQwMTYwQTcyRjA1Mzk3OEEzRkVDOTkxQ0M5NTg0RUY5NDAxODdENjM0M0VCMUEyMzNGRUNBNDJENjg5QTFFMjE0MDFBRjA1Mzk3ODI5Q0JDM0ZFQ0FBMTRENkRCRkE2OTQwMUQ2MzQzRUIxQTFGNUYzRkVDQUQzQjU3NjFBNjQ2NDAxRkQ2MzQzRUIxQTFGODNGRUNBRUU5QjhDMkExM0M0MDIxMjQ5MjQ5MjQ5MjRFM0ZFQ0FGQ0Y2NkFCOEEzRTQwMjI1RTBBNzJGMDUzOUEzRkVDQjA0OUZBNjJGRjdCNDAyMzk3ODI5Q0JDMTRFNzNGRUNCMDhCNjQzMTQxRjU0MDI0RDBGQUM2ODdENjI4M0ZFQ0IwQUU0N0VCRTdCMTQwMjYwQTcyRjA1Mzk3N0YzRkVDQjBDMEU4QzE1REVBNDAyNzQzRUIxQTFGNThENzNGRUNCMENBREM0MTJFMjQ0MDI4N0Q2MzQzRUIxQTJFM0ZFQ0IwRDAyNENERTAzOTQwMjlCNkRCNkRCNkRCODYzRkVDQjBEMkZEOUY3MzJGNDAyQUYwNTM5NzgyOUNBNTNGRUNCMEQ0N0JCNUQxNEI0MDJDMjlDQkMxNEU1REZEM0ZFQ0IwRDU0QjhCRjA4NTQwMkQ2MzQzRUIxQTFGNTQzRkVDQjBENUI5QTI0MDExNDAyRTlDQkMxNEU1RTBBQzNGRUNCMEQ1RjAyQ0MyODI0MDJGRDYzNDNFQjFBMjAzM0ZFQ0IwRDYxMTY1RDMyNTQwMzA4N0Q2MzQzRUIxQUQzRkVDQjBENjIyM0U5QTI4NDAzMTI0OTI0OTI0OTI1OTNGRUNCMEQ2MjdGQkEyQzU0MDMxQzE0RTVFMEE3MkU5M0ZFQ0IwRDYyQjZDNDAzRTQwMzI1RTBBNzJGMDUzOTUzRkVDQjBENjJFNDQ0NDdBNDAzMkZBQzY4N0Q2MzQ0MDNGRUNCMEQ2MkY4NkMxNEQ0MDMzOTc4MjlDQkMxNEVDM0ZFQ0IwRDYyRjNBOERBMjQwMzQzNDNFQjFBMUY1OTgzRkVDQjBENjJFMjkzNkRFNDAzNEQwRkFDNjg3RDY0NDNGRUNCMEQ2MkE1REVBOTA0MDM1NkRCNkRCNkRCNkQzM0ZFQ0IwRDYyNTRBRDE0ODQwMzYwQTcyRjA1Mzk3N0YzRkVDQjBENjIxMjMyQTFGNDAzNkE3MkYwNTM5NzgyQjNGRUNCMEQ2MUYzOThFODg0MDM3NDNFQjFBMUY1OEQ3M0ZFQ0IwRDYxRkZGRjI0QjQwMzdFMEE3MkYwNTM5ODMzRkVDQjBENjIzMDdBMzc3NDAzODdENjM0M0VCMUEyRTNGRUNCMEQ2MjcwMTRBNzc0MDM5MUExRjU4RDBGQUJFM0ZFQ0IwRDYyQ0I0MzU4MjQwMzlCNkRCNkRCNkRCNkEzRkVDQjBENjM5N0QxMDk1NDAzQTUzOTc4MjlDQkMxNTNGRUNCMEQ2NDY4MTg0MkQ0MDNBRjA1Mzk3ODI5Q0MxM0ZFQ0IwRDY0RTdFRjQ0MTQwM0I4RDBGQUM2ODdENkQzRkVDQjBENjRGMEYwRTlBNDAzQzI5Q0JDMTRFNUUxOTNGRUNCMEQ2NDhBN0NBRDA0MDNDQzY4N0Q2MzQzRUE4M0ZFQ0IwRDYzRTlCNkE0ODQwM0Q2MzQzRUIxQTFGNTQzRkVDQjBENjMwNkNCQkYyNDAzRTAwMDAwMDAwMDAwMDNGRUNCMEQ2MEYzRERERDEtJSZDT0xPUkc2KSUkUkdCRyQiIzUhIiIkIiIhRjNGNEY0RjFGNC0lK0FYRVNMQUJFTFNHNiRRKDMwKlAsfnRGK1EiQ0YrLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0Yy