eq:=(1/9-2500/3+2500000)*A=5000000;

NiM+SSNlcUc2Ii8sJEkiQUdGJSMiKSxEXEEiIioiKCsrKyY=

solve(eq,A);

NiMjIikrKytYIiksRFxB

evalf(%);

NiMkIisrb20rPyEiKg==

f:=k1*exp(-1250*t)*cos(968*t)+k2*exp(-1250*t)*sin(968*t)+2*exp(-t/3);

NiM+SSJmRzYiLCgqKEkjazFHRiUiIiItSSRleHBHNiRJKnByb3RlY3RlZEdGLUkoX3N5c2xpYkdGJTYjLCRJInRHRiUhJV03RiktSSRjb3NHRiw2IywkRjEiJG8qRilGKSooSSNrMkdGJUYpRipGKS1JJHNpbkdGLEY1RilGKS1GKzYjLCRGMSMhIiIiIiQiIiM=

fp:=diff(f,t);

NiM+SSNmcEc2IiwsKihJI2sxR0YlIiIiLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRi1JKF9zeXNsaWJHRiU2IywkSSJ0R0YlISVdN0YpLUkkY29zR0YsNiMsJEYxIiRvKkYpRjIqKEYoRilGKkYpLUkkc2luR0YsRjVGKSEkbyoqKEkjazJHRiVGKUYqRilGOUYpRjIqKEY9RilGKkYpRjNGKUY3LUYrNiMsJEYxIyEiIiIiJCMhIiNGRA==

f0:=subs(t=0,f);

NiM+SSNmMEc2IiwoKihJI2sxR0YlIiIiLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRi1JKF9zeXNsaWJHRiU2IyIiIUYpLUkkY29zR0YsRi9GKUYpKihJI2syR0YlRilGKkYpLUkkc2luR0YsRi9GKUYpRioiIiM=

fp0:=subs(t=0,fp);

NiM+SSRmcDBHNiIsLCooSSNrMUdGJSIiIi1JJGV4cEc2JEkqcHJvdGVjdGVkR0YtSShfc3lzbGliR0YlNiMiIiFGKS1JJGNvc0dGLEYvRikhJV03KihGKEYpRipGKS1JJHNpbkdGLEYvRikhJG8qKihJI2syR0YlRilGKkYpRjVGKUYzKihGOUYpRipGKUYxRikiJG8qRiojISIjIiIk

solve({f0=1,fp0=0},{k1,k2});

NiM8JC9JI2sxRzYiISIiL0kjazJHRiYjISRQKiIkRSg=

evalf(%);

NiM8JC9JI2sxRzYiJCEiIiIiIS9JI2syR0YmJCErNE9qIUgiISIq

g:=subs(k1=-1,f);

NiM+SSJnRzYiLCgqJi1JJGV4cEc2JEkqcHJvdGVjdGVkR0YrSShfc3lzbGliR0YlNiMsJEkidEdGJSElXTciIiItSSRjb3NHRio2IywkRi8iJG8qRjEhIiIqKEkjazJHRiVGMUYoRjEtSSRzaW5HRipGNEYxRjEtRik2IywkRi8jRjciIiQiIiM=

g:=subs(k2=-1.29,g);

NiM+SSJnRzYiLCgqJi1JJGV4cEc2JEkqcHJvdGVjdGVkR0YrSShfc3lzbGliR0YlNiMsJEkidEdGJSElXTciIiItSSRjb3NHRio2IywkRi8iJG8qRjEhIiIqJkYoRjEtSSRzaW5HRipGNEYxJCEkSCIhIiMtRik2IywkRi8jRjciIiQiIiM=

plot(g,t=0..12);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdnbjckJCIiIUYrJCIiIkYrNyQkIjNtKioqKlw3RyRSPCkhIz8kIjM5IVJzJD1LXiUqPiEjPDckJCIzJCoqKioqXGlseU07ISM+JCIzU2JJS2w1OCopPkY0NyQkIjMhKioqKlxQJSl6QFgjRjgkIjN3Rj4pZXc9UCk+RjQ3JCQiMycpKioqKipcN3QmcEtGOCQiM3FAO1slPkAkeT5GNDckJCIzeioqKipcKG9mViFcRjgkIjNpYGYwcitkbj5GNDckJCIzcyoqKioqKlxpOVJsRjgkIjNNJmZuVVB4byY+RjQ3JCQiM2UqKioqKlxQPigzKSpGOCQiM2BrdkQjKmZtTj5GNDckJCIzJSoqKioqKipcI0h5SSIhIz0kIjNvPi0nKkdYbzk+RjQ3JCQiMyMqKioqKipcKFF1aD5GVyQiMz1KN3o7OVN0PUY0NyQkIjMqKSoqKioqKipcZWNoI0ZXJCIzISozKT5GVTNJJD1GNDckJCIzLSsrXVBQZmBQRlckIjM5LSQ9cVEjeWs8RjQ3JCQiMzsrKyt2Kkc6KltGVyQiM1tcLHp5ZDQqcCJGNDckJCIzKysrK11MKTRYKEZXJCIzM0pAUSRmWyxjIkY0NyQkIjM0KysrWC51LTVGNCQiM1NjeDshPmE8ViJGNDckJCIzJSoqKioqXEZ5OmY3RjQkIjM4T2hEKmVpV0oiRjQ3JCQiMyMqKioqKlxkJyopb1wiRjQkIjNLeVtNXSc+VkAiRjQ3JCQiMyQqKioqKlwoPlpJdSJGNCQiM0kpPWFtKilmJz02RjQ3JCQiMy0rK114T2koKj5GNCQiMyYzKnBRQnprRjVGNDckJCIzJSoqKioqXEZQUV5BRjQkIjNJJEgxIVxYKEhXKkZXNyQkIjM7KysrSXJTN0RGNCQiM00sWXRlNDRjJylGVzckJCIzLisrKyZvO0J1I0Y0JCIzYjVdWHYvXTwhKUZXNyQkIjNAKysrIVJTNiskRjQkIjNdJ1suWl4jemF0Rlc3JCQiMyMqKioqKioqXG8taEtGNCQiM0ErQEEhenNXdSdGVzckJCIzPisrKzVjWjZORjQkIjNfaCNHQlAnRy9pRlc3JCQiMycqKioqKlx4cSEqUVBGNCQiM1FaPXYlKkhLXmRGVzckJCIzMSsrKyE0WCQ0U0Y0JCIzJVxzSFEwWWJEJkZXNyQkIjMwKysrZzpXUVVGNCQiMyEqUkkkeUlYInBbRlc3JCQiMyMqKioqKlw8XyRcXSVGNCQiM0lTN01LekViV0ZXNyQkIjNtKioqKioqZnMjM3UlRjQkIjMhR0UzVjptJD1URlc3JCQiM0UrK108I1EnKipcRjQkIjMxKSkqUSxqbnp4JEZXNyQkIjNJKytdX3UzWV9GNCQiM1E/OXMlWzkrWyRGVzckJCIzUCsrK3Y4Qi5iRjQkIjNfIz0/a2NfVD4kRlc3JCQiM1IrK11uKHAkUmRGNCQiM20qUiY0LkJQX0hGVzckJCIzKSkqKioqKlwjcDIlKmZGNCQiM08hPSRlXVwwN0ZGVzckJCIzISoqKioqXHhna2VpRjQkIjMlcEpdRm9BSlsjRlc3JCQiMyUpKioqKlwtViYqKVsnRjQkIjNpUyk0N0pHJypII0ZXNyQkIjNFKysrJlwkcFBuRjQkIjNfTG40ZiZcbTYjRlc3JCQiM2UqKioqKio+YW0lKnBGNCQiMzAzellCNipHJT5GVzckJCIzayoqKioqXEppZ0MoRjQkIjM7IikpWz8pUnIneSJGVzckJCIzJSoqKioqXFA8SSpbKEY0JCIzT001UXBbY1o7Rlc3JCQiMyMpKioqKipca3gkZnhGNCQiMyhSN15bIkdzMDpGVzckJCIzOyoqKioqKmZHMC0hKUY0JCIzJWZOX3hUPSgpUSJGVzckJCIzQSsrK10vO2gjKUY0JCIzIW9aQWVqNFFGIkZXNyQkIjNZKioqKlxQLyZmXClGNCQiM3UlKmVAeSQ9ejwiRlc3JCQiM3ErKys1empfKClGNCQiMyUpNHNVJTRDODMiRlc3JCQiMz0qKioqXDwzOyUqKilGNCQiM0cyJylHKmY4bygqKkY4NyQkIjM7KytdWj1pWSMqRjQkIjNlWjdiI3AlZXIiKkY4NyQkIjNbKioqKioqXCdbTVwqRjQkIjMjeSpINz5hPlolKUY4NyQkIjNXKioqKlxQTSY9dipGNCQiM3FlZyd6K18rdihGODckJCIzMisrKyd6cysrIiEjOyQiMyc9Vy9vZm5JOChGODckJCIzLCsrXTVRX0Q1RmRbbCQiMzlBJTNHNiEpR2InRjg3JCQiMzMrK3Z4U3ddNUZkW2wkIjM6RCYqPWRUNkNnRjg3JCQiMzErKytpcyZSMiJGZFtsJCIzYyY0Pz8lUiRmZCZGODckJCIzLisrXW8jUjA1IkZkW2wkIjMiPjVBJTRfNy5eRjg3JCQiMysrKytLWEpDNkZkW2wkIjNrSzFxbSYzVnIlRjg3JCQiMy8rK3ZAUm1cNkZkW2wkIjN5NShmLHdDQkwlRjg3JCQiMy8rK0RBbCNSPCJGZFtsJCIzWU4ocDVtU2QqUkY4NyQkIiM3RiskIjNXT291eHg3ak9GOC0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGK0ZlXmxGZl5sLSUrQVhFU0xBQkVMU0c2JFEidDYiUSFGW19sLSUlVklFV0c2JDtGZl5sJCIyLSsrKysrKz8iISM6OyQhMncxSVcuaGpfI0Y4JCIyJSlHJT1kM25MP0ZkW2w=

plot(g,t=0..(.004));

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdXNyQkIiIhRiskIiIiRis3JCQiM1dtbW07YXJ6QCEjQSQiM3U7UzQsZGYrNSEjPDckJCIzJ0dMTEwkM1ZmVkYxJCIzVi0kb2QrOUIrIkY0NyQkIjNIKioqKioqXGk5UmxGMSQiMy9fTVZ1TDQwNUY0NyQkIjNzbG1tbTsnKT0oKUYxJCIzQXFcKlxJdSkzNUY0NyQkIjM7KytdN3o+XjchI0AkIjNBOW4wUD5uPDVGNDckJCIzW0xMTGUnNDBqIkZHJCIzJ29jdyZHLy9INUY0NyQkIjNtbW1tOzZtJFsjRkckIjMjUnFuS2BERTEiRjQ3JCQiMyNvbW1tInlZVUxGRyQiM1JARDppaFEwNkY0NyQkIjM9TExMZUY+KD4lRkckIjNvSnVycUdXYTZGNDckJCIzVW1tbSI+SycqKVxGRyQiM2IyRywxIT5SPyJGNDckJCIzUioqKioqXEtkLCJlRkckIjNXPDZKIyl5bmQ3RjQ3JCQiM1NtbW0iZlgoZW1GRyQiMykqKm9RPDFAWUoiRjQ3JCQiMzMqKioqKlxVN1ldKEZHJCIzM2FwdSVveDpQIkY0NyQkIjM7TExMTC9wdSQpRkckIjNOYGUnZVZqJEg5RjQ3JCQiM1htbW07YzBUIipGRyQiMycqKVJuVidbJCp5OUY0NyQkIjMxKysrSSxRKzUhIz8kIjMrNGtoZiR6RWAiRjQ3JCQiMyEqKioqKioqXCozcTMiRmlwJCIzbz5ZLDxwKVJlIkY0NyQkIjMxKysrcT1ccTZGaXAkIjNmO0xMWXJlSTtGNDckJCIzZ21tO2ZCSVk3RmlwJCIzSVlfJVtQMy5uIkY0NyQkIjNLTExMaiRba0wiRmlwJCIzVUwvKilbUj45PEY0NyQkIjNATExMYFEiR1QiRmlwJCIzayNIJXAyMFtbPEY0NyQkIjMmKioqKipcc11rLDpGaXAkIjMzTVo9L2kuJnkiRjQ3JCQiMzdMTExgZEYhZSJGaXAkIjMoNCd5LVUkZlciPUY0NyQkIjMtKytdc2dhbTtGaXAkIjNMUDVLa3FtVj1GNDckJCIzKSoqKioqXDxlcFs8RmlwJCIzT0xvPzwyaG89RjQ3JCQiM1JMTExlL1RNPUZpcCQiMy9NSyRvVTA9Kj1GNDckJCIzTExMJGVEQkoiPkZpcCQiM3h1NDImeTAyIj5GNDckJCIzW21tbVRjLSkqPkZpcCQiMzkyQz80bm9HPkY0NyQkIjNvbW07ZmBAJzMjRmlwJCIzSChcWW4vOlwlPkY0NyQkIjMjKioqKipcblopSDsjRmlwJCIzUzJlK3FBPGQ+RjQ3JCQiM3FtbW1KeSplQyNGaXAkIjNrMW9EL0Rpbz5GNDckJCIzeioqKioqKlJeYkpCRmlwJCIzIz5XYUEqeW55PkY0NyQkIjN5KioqKipcNWFgVCNGaXAkIjNtIlEvcCZHJXApPkY0NyQkIjN3KioqKlw3UlYnXCNGaXAkIjNzclNRYUxoJCo+RjQ3JCQiM3UqKioqKlxAZmtlI0ZpcCQiM1FSSkJNQW0qKj5GNDckJCIzL0xMTGA0Tm5FRmlwJCIzWipbaE0tQFMrI0Y0NyQkIjM5KysrXSxzYEZGaXAkIjNGei8vLjhwMj9GNDckJCIzZW1tO3pNKT4kR0ZpcCQiM1ROb2U3MkQ1P0Y0NyQkIjM6KysrcWZhPEhGaXAkIjMiWy12eSp6Szc/RjQ3JCQiMyNHTExlZ2AhKSpIRmlwJCIzanB4J1wvInA4P0Y0NyQkIjMpKioqKipcI0cyQTMkRmlwJCIzOTQ9XURfZjk/RjQ3JCQiM0dMTEwkKUdba0pGaXAkIjNVZCUpR3JmLzo/RjQ3JCQiMyUqKioqKlw3eWhdS0ZpcCQiMyNwdnUlZnY4Oj9GNDckJCIzJm9tbW0pZmRMTEZpcCQiM05gXSl5QURcLCNGNDckJCIzaW1tbSxGVD1NRmlwJCIzRGU7dklRWTk/RjQ3JCQiM2xMTCRlI3BhLU5GaXAkIjM4LmNGSFwiUSwjRjQ3JCQiMzUrKytTdiYpek5GaXAkIjNTOTJ3KCoqKjM4P0Y0NyQkIjNNTExMR1VZb09GaXAkIjMpKil6QVU3W0AsI0Y0NyQkIjNRbW1tMV5yWlBGaXAkIjM+JHpINC5PNywjRjQ3JCQiMy8rK11zSUBLUUZpcCQiMyp5Ilw1VCE+LSwjRjQ3JCQiM0ErK10yJSkzOFJGaXAkIjNhXSNvKGZYQTQ/RjQ3JCQiMzUrKysrKysrU0ZpcCQiMztVK3JoSzozP0Y0LSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYrRmZcbEZnXGwtJStBWEVTTEFCRUxTRzYkUSJ0NiJRIUZcXWwtJSVWSUVXRzYkO0ZnXGwkIiNTISIlOyQiMVtdNSlbc3B6KiEjOyQiMjtEazFKU2EuI0ZoXWw=