f1 := (1/sqrt(Pi))*exp(-r);

NiM+SSNmMUc2IiomSSNQaUdJKnByb3RlY3RlZEdGKCMhIiIiIiMtSSRleHBHNiRGKEkoX3N5c2xpYkdGJTYjLCRJInJHRiVGKiIiIg==

f2 := r*r*((1/sqrt(Pi))*2.828*exp(-2*r))^2;

NiM+SSNmMkc2IiwkKihJInJHRiUiIiNJI1BpR0kqcHJvdGVjdGVkR0YrISIiLUkkZXhwRzYkRitJKF9zeXNsaWJHRiU2IywkRighIiNGKSQiKCVlKCp6ISIn

f3 := r*r*((1/sqrt(Pi))*2.192*exp(-1.678*r))^2;

NiM+SSNmM0c2IiwkKihJInJHRiUiIiNJI1BpR0kqcHJvdGVjdGVkR0YrISIiLUkkZXhwRzYkRitJKF9zeXNsaWJHRiU2IywkRigkISV5OyEiJEYpJCIoa1shWyEiJw==

plot ({f2,f3}, r=0..3);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdjbzckJCIiIUYrRio3JCQiMycpKioqKipcN3QmcEshIz4kIjNhIzMsSVJyeFEjISM/NyQkIjNzKioqKioqXGk5UmxGLyQiM1Foaj1qND8hUSlGMjckJCIzMysrdlZWKVJRKkYvJCIzLkZLWlxTO1M6Ri83JCQiMy8rK3ZWQSlHQSIhIz0kIjNGYz8yUSxBTUJGLzckJCIzJyoqXCg9VSJbR1EiRkAkIjN3LlpYKilmJCkqeiNGLzckJCIzOytdaVNTIkdhIkZAJCIzNVk6RyI9XyFwS0YvNyQkIjMzK0QxUip6RnEiRkAkIjNlLyo9NSx4X3QkRi83JCQiMysrK11QZXVpPUZAJCIzUUxNJT02IypIPiVGLzckJCIzMSsrdiQ0c1AtI0ZAJCIzTj1ZRkNIX1NZRi83JCQiMzcrKytdJCl6JT0jRkAkIjMzeUpJeGsqNDImRi83JCQiMz0rK0QxWSNlTSNGQCQiMykpKipHI1FwaThbJkYvNyQkIjNBKytdaTMmb10jRkAkIjNRM3JceUZCcGVGLzckJCIzLitdaTpGUEZHRkAkIjMjXDBdKFE8bG5sRi83JCQiMyUpKioqXChvWCp5OSRGQCQiM3NpWCJbLSs6OyhGLzckJCIzIykqKipcaU5mXVckRkAkIjNYTyczNUNHaGgoRi83JCQiM3oqKipcUDlDQXUkRkAkIjMnW3MmKmVeTiZ6ekYvNyQkIjMhKSoqKlwobzUjKlxTRkAkIjNFUDZtJ28pUmojKUYvNyQkIjMhKSoqKlxQKnpoZFZGQCQiM09sKG9EJEcmKWUlKUYvNyQkIjN0KioqXFBIR25eJUZAJCIzX0pgO3o8W0YmKUYvNyQkIjNBKyt2JGZRZW4lRkAkIjM7ZGhGd1xNdiYpRi83JCQiM1krK3ZWUFJiWkZAJCIzNz1xZypbQz1mKUYvNyQkIjM5Kyt2JCopW1wkW0ZAJCIzbWlweU55Xi4nKUYvNyQkIjMkKSoqKlxQLy9YIlxGQCQiMyc9YSlcXUZjNScpRi83JCQiMzErK3YkPmZTKlxGQCQiMyJmSTJvZyg0OCcpRi83JCQiMz0rXVA0I2ZMMiZGQCQiM3U9PTVFUUY2JylGLzckJCIzRysrK0QjZkU6JkZAJCIzTiUpKmUlZlNDMCcpRi83JCQiM1MrXWlTI2Y+QiZGQCQiM3FMIUgzWFheZilGLzckJCIzXisrRGMjZjdKJkZAJCIzJSkzZDxhWTYiZSlGLzckJCIzcysrXShHZilwYUZAJCIzJHo2cCM9JCp6VCYpRi83JCQiMyQpKioqXCg9JGYlR2NGQCQiM19mbFkxTFApWylGLzckJCIzNStdKD1kUVomZkZAJCIzKlEhPVJnYGFRJClGLzckJCIzUSsrK0R5LCJHJ0ZAJCIzNkJuWG8rRFUiKUYvNyQkIjMzKytdNzx6Ym9GQCQiM21cbiMpW3k7M3hGLzckJCIzYCsrK3Y0JkddKEZAJCIzKSk+UGJVemdFckYvNyQkIjMhKSoqKioqXDduRDopRkAkIjNlITRFNSo0aClbJ0YvNyQkIjNbKysrRCEqb3koKUZAJCIzK28uNSgqM3JjZUYvNyQkIjMpKSoqKlxQcG5zTSpGQCQiM2cyTCk+WD4jKkcmRi83JCQiMywrK11zaUwtNSEjPCQiM2JDKFI3eXAzayVGLzckJCIzLSsrKyFSNSdmNUZldyQiMzQ6JClwPE5bQ1RGLzckJCIzKSoqKlxQL1FCRTZGZXckIjNZKHBgXjk+JXBORi83JCQiMyEqKioqKipcIm8/Jj0iRmV3JCIzIyl6Xz0vUE5BSkYvNyQkIjMxK11QYSY0Klw3RmV3JCIzL2lOVzJociFvI0YvNyQkIjMzK103aj1fNjhGZXckIjNLQiJ5cjs8b0kjRi83JCQiMzMrK3ZWeSFlUCJGZXckIjNvIiopPkElXCJIJz5GLzckJCIzNCtdKD1XVVtWIkZldyQiM1s7V1sqb01mbyJGLzckJCIzKSoqKipcN0I+JilcIkZldyQiM0BLSzBCdlNEOUYvNyQkIjMpKioqXFA+Om1rOkZldyQiMyEqKikpNCdbTHcjPiJGLzckJCIzJyoqKlxpdiZRQWkiRmV3JCIzI3pnJ3k5cFM9NUYvNyQkIjMxKyt2dExVJW8iRmV3JCIzbUdUdSpcaz1jKUYyNyQkIjMhKioqKioqXE5tJ1s8RmV3JCIzJlxCIUdpWVFPckYyNyQkIjMiKioqKlwoeWJeNj1GZXckIjNPLyYqZmtgPWNmRjI3JCQiMykqKipcUE1hS3M9RmV3JCIzNzx4WyVbXSopKVxGMjckJCIzJioqKipcN1RXKVI+RmV3JCIzVU11ZmNJeSgzJUYyNyQkIjN6KioqKipcQDgwKyNGZXckIjM0MltjKnkxMlQkRjI3JCQiMzErK103LEhsP0ZldyQiMywybi0+IypSMEdGMjckJCIzKCkqKlxQNHcpUjcjRmV3JCIzKSlHVFdgKD1pTSNGMjckJCIzOysrXXglZiIpPSNGZXckIjNGRkpGNjlSRT5GMjckJCIzISkqKlxQLy1hW0FGZXckIjNrWzV3QkFxKGYiRjI3JCQiMy8rXSg9WWI7SiNGZXckIjNyQ2MubUUqPUoiRjI3JCQiMycpKioqKlxpQE90QkZldyQiMzFSZStwK1MhMyJGMjckJCIzJykqKlxQZkwnelYjRmV3JCIzLCdbL1lEV1QhKSkhI0A3JCQiMz4rKyshKj49K0RGZXckIjNaOj0qXGVOIz5zRltfbDckJCIzLSsrREUmNFFjI0ZldyQiMy9VOWhmNWImKWVGW19sNyQkIjM9K11QJT41cGkjRmV3JCIzYnVedT94XytbRltfbDckJCIzOSsrK2JKKltvI0ZldyQiMyshKnpgU3Vzd1JGW19sNyQkIjMzKytEciJbOHYjRmV3JCIzIkd1SyRIT0MsS0ZbX2w3JCQiMysrKytJank1R0ZldyQiM0Aqelw2K3lTaiNGW19sNyQkIjMxK11QLylmVChHRmV3JCIzLlUwaS8mKVtQQEZbX2w3JCQiMzErXWkwaiJbJEhGZXckIjN1KDQ/SU1HJls8RltfbDckJCIiJEYrJCIzTXYkKSlRW0N4UyJGW19sLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYrRl9ibEZgYmwtRiY2JDdqbkYpNyRGLSQiMzVLKyMqKSpSMmw5RjI3JEY0JCIzQWJOcmlzR15fRjI3JEY5JCIzPF5yYl0jeiZIKSpGMjckRj4kIjM/QGFzJz4jRzw6Ri83JEZJJCIzM0dVJTRCdSJwQEYvNyRGUyQiM1p2PjtNQDxTR0YvNyRGZ24kIjNlKVw+QSdIKW9dJEYvNyRGYW8kIjNHekt5JVJxUjklRi83JEZmbyQiM1BOP1Y2MSFRdCVGLzckRltwJCIzISpwInpZXihbcF9GLzckRmBwJCIzVTUpeWhZJkc3ZEYvNyRGZXAkIjM7UEVibnVbK2hGLzckRmpwJCIzcndCLDcpUlJXJ0YvNyRGX3EkIjNmektZL0xQR25GLzckRmlxJCIzSUdRNlJCRWlwRi83JEZdcyQiMzxqOCVvZCt4OChGLzckRmF0JCIzLXQpZWNNYnpEKEYvNyRGW3UkIjN0UEg9ZktvRnRGLzckJCIzUypcN2AlKilmInomRkAkIjNbMjwqPicqZV9NKEYvNyRGYHUkIjNVTGhKVXM+XnRGLzckJCIzITNdUCUpPnl5NidGQCQiM0UiKlxRNi41WXRGLzckRmV1JCIzN1NiVW8wZEl0Ri83JCQiM0MrK3ZvWlNvbEZAJCIzK2lcbWYubXpzRi83JEZqdSQiM0RwJHBDZl85PyhGLzckRl92JCIzW0kvZSIqR1ZUcEYvNyRGZHYkIjNleXAkPSRSMSFmJ0YvNyRGaXYkIjNXKnpVJSk9TEk+J0YvNyRGXnckIjMyX0BAIUdWOiFlRi83JEZjdyQiM1MhUTlCX0ZwSiZGLzckRml3JCIzKHo1WE81aUchXEYvNyRGXngkIjMlMzdiMilwMEhXRi83JEZjeCQiMzFqbTYoPiVIQ1NGLzckRmh4JCIzaWNOKlFoIzQtT0YvNyRGXXkkIjMjeSlwRFJhOURLRi83JEZieSQiMy0zdD8lelEuJ0dGLzckRmd5JCIzJ1Jha2p6Qz5iI0YvNyRGXHokIjM3Xic9eDUkKnlDI0YvNyRGYXokIjNZQGc/JnppRyc+Ri83JEZmeiQiMzdpKHl6JFFDUjxGLzckRltbbCQiM2MlPkEoR3YlPl8iRi83JEZgW2wkIjMpMypILUUqUkBLIkYvNyRGZVtsJCIzcSYpKTRoN24hXDZGLzckRmpbbCQiM21JS1gveCE0KyJGLzckRl9cbCQiM01sKmU5Iyl6YmMpRjI3JEZkXGwkIjMlKSpvKnp5ZmVKdUYyNyRGaVxsJCIzUXd0QikqUjJ0akYyNyRGXl1sJCIzKyQ9MkZjIUdOYkYyNyRGY11sJCIzcCU+LnJIbWx0JUYyNyRGaF1sJCIzXzp4JW84ZVQzJUYyNyRGXV5sJCIzMSFwUypHInBFXCRGMjckRmJebCQiMyNcRGYxLnBIKkhGMjckRmdebCQiM3gmbzEpKkdwRGEjRjI3JEZdX2wkIjNZbz4ublE0cUBGMjckRmJfbCQiM3RPJDMqcCw+Vj1GMjckRmdfbCQiM1dfOVZDRHVsOkYyNyRGXGBsJCIzK3RAbnktU1k4RjI3JEZhYGwkIjNQJj1qdyxQNzgiRjI3JEZmYGwkIjNfJzQ5ejtmOG4qRltfbDckRlthbCQiMzs0QWoobyIqXDwpRltfbDckRmBhbCQiMyd6cXVPQiF5YHBGW19sNyRGZWFsJCIzSTBzOGM0V1FlRltfbC1GamFsNiZGXGJsRmBibEZdYmxGYGJsLSUrQVhFU0xBQkVMU0c2JFEicjYiUSFGZ15tLSUlVklFV0c2JDtGYGJsJCIjSUZfYmw7JCEyN1loOF8+RXMiRi8kIjFhTSUqZSZmYHkpRmV3

f4 := 0.09973*(2-r)*exp(-r/2);

NiM+SSNmNEc2IiwkKiYsJiIiIyIiIkkickdGJSEiIkYqLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRjBJKF9zeXNsaWJHRiU2IywkRisjRixGKUYqJCIldCoqISIm

f5 := 0.09973*(2-3*r)*5.196*exp(-3*r/2);

NiM+SSNmNUc2IiwkKiYsJiIiIyIiIkkickdGJSEiJEYqLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRjBJKF9zeXNsaWJHRiU2IywkRisjRixGKUYqJCIpMyg+PSYhIik=

f6 := 0.09973*(2-1.3*r)*1.482*exp(-1.3*r/2);

NiM+SSNmNkc2IiwkKiYsJiIiIyIiIkkickdGJSQhIzghIiJGKi1JJGV4cEc2JEkqcHJvdGVjdGVkR0YySShfc3lzbGliR0YlNiMsJEYrJCErKysrK2whIzVGKiQiKScpKnpaIiEiKQ==

plot ({f5,f6}, r=0..6);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdXNyQkIiIhRiskIjM1KysrK3MqZiZIISM9NyQkIjNzKioqKioqXGk5UmwhIz4kIjMnXCdRO3JCZDdGRi43JCQiMyUqKioqKioqXCNIeUkiRi4kIjNJWldiIkcpRyVbI0YuNyQkIjMtKyt2b296dz1GLiQiM21zT1QmKVFLKEgjRi43JCQiMzMrK10oW2tkVyNGLiQiM10ncDo3LGgxNyNGLjckJCIzSysrRCIzR2MzJEYuJCIzOFwzaEopb08kPkYuNyQkIjMrKysrdjtcRFBGLiQiM2F6X1RHRVJlPEYuNyQkIjNBKysrK25mcFZGLiQiMz8nMzdDRU5KZiJGLjckJCIzVysrK0Q8cThdRi4kIjMzKno3NWh0JVE5Ri43JCQiM28qKioqXFAiKnkmSCdGLiQiMy1DQ15OaiUpZjZGLjckJCIzZSoqKipcKEdbV1soRi4kIjNBKWUnXFNsKT5MKkYyNyQkIjNpKioqKlwoKWZCOigpRi4kIjNdbEZiWE9Vc3NGMjckJCIzOSsrXShRPSIpKSoqRi4kIjM8dypSUmAhPTxhRjI3JCQiMygqKioqXFAnPXBENiEjPCQiM2w5TWRmW106UUYyNyQkIjMzKysrbE4/YzdGaW8kIjNpWDI7Zysqb1IjRjI3JCQiMy0rK11VJGU2UCJGaW8kIjMkSGtgeSdbVT04RjI3JCQiMzYrKysmPnEwXSJGaW8kIjNXXCpHJUhyNVhGISM/NyQkIjMnKioqKioqXFU4MGoiRmlvJCEzUEInUWMjXHNHaEZbcTckJCIzNSsrKzB5dGI8RmlvJCEzaHQ3LTE4X0w4RjI3JCQiMykqKioqXChRTlhwPUZpbyQhMy1xc0VHZXEnKT1GMjckJCIzLisrK1hEbi8/RmlvJCEzJ0chKltveHRRViNGMjckJCIzLisrKyF5PyM+QEZpbyQhMzlwV0dZVUw5R0YyNyQkIjMnKioqKlwoM3dZX0FGaW8kITM3cFcpM214SDwkRjI3JCQiMyMpKioqKioqSE9UcUJGaW8kITM0eC5WJT5zVVUkRjI3JCQiMzcrK3YzIj4pKlwjRmlvJCEzWyxHQ11Jb1BPRjI3JCQiMzorK0RFUC9CRUZpbyQhMztKamohUWkhKXkkRjI3JCQiMz0rK10obzo7diNGaW8kITM7TG0nXDMzdSpRRjI3JCQiMz0rK3YkKVtvcEdGaW8kITNTTE91RTt5Z1JGMjckJCIzJSoqKioqXGklUXEqSEZpbyQhM21qJGU2ckJcKlJGMjckJCIzJioqKipcKFFJS0hKRmlvJCEzJ3ohcCp6dVEjKSpSRjI3JCQiMyMqKioqXDc6eFdDJEZpbyQhM0EjZShwTGNWeVJGMjckJCIzNysrXVpuJSlvTEZpbyQhM2tnITNKUyIpcCRSRjI3JCQiM3kqKioqKio0RkwoXCRGaW8kITMrb0ttcFd2dlFGMjckJCIzIykqKioqXGQ2LkJPRmlvJCEzV0wjUk1icjMhUUYyNyQkIjMoKioqKlwobzNsV1BGaW8kITMoUSQ+N3kqcG9yJEYyNyQkIjMhKioqKipcQSkpb3pRRmlvJCEzdi4waF4hPUhoJEYyNyQkIjNlKioqKioqSGstLFNGaW8kITMzVkclcHVnPl4kRjI3JCQiMzYrKytELWVJVEZpbyQhM2sjZjx5a28iKVIkRjI3JCQiM3UqKipcKD1fKHpDJUZpbyQhM3lcVSY0VjA2SCRGMjckJCIzTSsrK2IqPWpQJUZpbyQhM3ExNU5aYTVySkYyNyQkIjNnKioqXCgzLzMoXCVGaW8kITNXITN1KipcamswJEYyNyQkIjMzKyt2QjRKQllGaW8kITNeazRvZWojZSRIRjI3JCQiM3UqKioqKlxLQ251JUZpbyQhM3Q4eUBrViJ6IkdGMjckJCIzcyoqKlwoPW4jZihbRmlvJCEzPXN2Vyhcbl9wI0YyNyQkIjNQKysrISlSTytdRmlvJCEzazsqMydvNmB5REYyNyQkIjMwKytdXyE+dzcmRmlvJCEzW2leOmJ2M2hDRjI3JCQiM08rK3YpUT9RRCZGaW8kITMneiVbXS0/KXBNI0YyNyQkIjNHKysrNWp5cGBGaW8kITNzd2xIKD42WEMjRjI3JCQiMzwrK11VanAtYkZpbyQhM0osNi0ySDtJQEYyNyQkIjMrKysrZ0VkQGNGaW8kITMjW3hcZUQjKjMuI0YyNyQkIjM5Kyt2Myc+JFtkRmlvJCEzIj1IJm8jelIkRz5GMjckJCIzNysrRDZFanBlRmlvJCEzNkozOEUmeU0kPUYyNyQkIiInRiskITNlRHA4dGZATjxGMi0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGK0ZmXGxGZ1xsLUYmNiQ3Zm43JEYqJCIzJioqKioqKipmVFJPNUZpbzckJCIzJykqKioqKlw3dCZwS0YyJCIzT21NKilSNidSUSpGLjckRjAkIjMhRzouYk1YU1opRi43JCQiM2UqKioqKlxQPigzKSpGMiQiMzglNC5FTEsoSHdGLjckRjYkIjMjM094MSNvI28lb0YuNyQkIjM3K11QZklKI2YiRi4kIjNnTCthYSozREAnRi43JEY7JCIzTDNuLFMmUiM+Y0YuNyQkIjMjKioqXDd5MUdoQEYuJCIzeWtheWhmcGtdRi43JEZAJCIzNVdgPkIheW1hJUYuNyRGRSQiMyF6Z3YzI3BTL05GLjckRkokIjNPJCozJz5IRltoI0YuNyRGTyQiM3lec3ReXTZhPUYuNyRGVCQiMyk0W2oqejRNNjdGLjckJCIzMSsrREphdWFjRi4kIjMjWyZbcSNcK2V0J0YyNyRGWSQiMzwpKj5UWyQpUlVBRjI3JEZobiQhM21KNnYkZikqcDglRjI3JEZdbyQhM2FaeiR6IVtHOycpRjI3JEZibyQhM2c/YHJOeD1hNkYuNyRGZ28kITNsTXA8KG9eJz04Ri43JEZdcCQhM1NcSmk6TVkjUiJGLjckRmJwJCEzd3pEKnkoSFYrOUYuNyRGZ3AkITNNc3JnIVIwX08iRi43JEZdcSQhM0U+Yy9lTFwpSCJGLjckRmJxJCEzZmpFXCZbUWZAIkYuNyRGZ3EkITNLdTolW3UzQjgiRi43JEZcciQhM3Y2eShlM2skRzVGLjckRmFyJCEzJSlRUC0zX2IsJSpGMjckRmZyJCEzNT0mKSpcWkpYUylGMjckRltzJCEzZ0MxVylmYGFjKEYyNyRGYHMkITNyaiJ5O1M3UnEnRjI3JEZlcyQhM3NSNGtIbjlaZkYyNyRGanMkITNFXUwob28rakEmRjI3JEZfdCQhMzlIJCo0WCdmZmklRjI3JEZkdCQhM3dPTVNZImVDLyVGMjckRml0JCEzTylIXnkocDEuTkYyNyRGXnUkITNBNk5TX0E8JjMkRjI3JEZjdSQhM3coKltVPUxqJG8jRjI3JEZodSQhM3dYM04wSFc9QkYyNyRGXXYkITMsLzJfXWFJMD9GMjckRmJ2JCEzKDNVRFxpWCdSPEYyNyRGZ3YkITNdWW8xYj0qSFsiRjI3JEZcdyQhMykpKj5RZiQ0IUhHIkYyNyRGYXckITNTMkJQV1lPKDQiRjI3JEZmdyQhM2x3PnNqWHE4JipGW3E3JEZbeCQhM0doRjNuayIqRyIpRltxNyRGYHgkITN6R15WdS8oRysoRltxNyRGZXgkITM5P2VyZW0lZSlmRltxNyRGangkITN1WFFjMSk+JUheRltxNyRGX3kkITNBZiJ6Jj0/YGZWRltxNyRGZHkkITNSJDRhPkhtVHMkRltxNyRGaXkkITNtI1IkbzYsUG5KRltxNyRGXnokITNBVzZIWWtFJnAjRltxNyRGY3okITNkRlsnKjMpKT5BQkZbcTckRmh6JCEzT05acENuQWM+RltxNyRGXVtsJCEzW2trRFR2J3BuIkZbcTckRmJbbCQhM3hpIT1fVCczQTlGW3E3JEZnW2wkITNoPjxUeCx6ODdGW3E3JEZcXGwkITNrSXUkPmc0Sy0iRltxLUZhXGw2JkZjXGxGZ1xsRmRcbEZnXGwtJStBWEVTTEFCRUxTRzYkUSJyNiJRIUZpaGwtJSVWSUVXRzYkO0ZnXGwkIiNnRmZcbDskITI7Vl0lcC9zTjtGaW8kIjJfeWIiNEgjKmY1ISM7