f1 := 1.5*a - 2*sqrt(2/Pi)*a^(0.5);

NiM+SSNmMUc2IiwmSSJhR0YlJCIjOiEiIiooIiIjIyIiIkYsSSNQaUdJKnByb3RlY3RlZEdGMCNGKkYsRickIiImRiohIiM=

plot (f1, a=0.0..1);

LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdpbjckJCIiIUYrRio3JCQiMy9MTDN4MWg2byEjQCQhMyVmQDpybExFMSUhIz43JCQiM2ltbVROQEtpOCEjPyQhM2kkSF0meiR6Ym8mRjI3JCQiMyMqKipcNy5LW1Y/RjYkITM2bWEhR0VPciFwRjI3JCQiM0FMTCQzRldZcyNGNiQhM3FKeiJSKio9NCN6RjI3JCQiMyUpKioqXGlTbXAzJUY2JCEzLV9AOG8hNCcpZSpGMjckJCIzV21tbVQmKUdcYUY2JCEzIylldiU9QFlpNCIhIz03JCQiM20qKioqXDdHJFI8KUY2JCEzPFZ0WWNGNz84Rk03JCQiM0lMTEwzeCYpKjMiRjIkITNiJ2VlMVpXQ10iRk03JCQiMyQqKioqKlxpbHlNO0YyJCEzZUkqUTkjRzYmeiJGTTckJCIzZW1tbTthcnpARjIkITNfPF5XblAsSD9GTTckJCIzLisrRCJ5JSp6NyRGMiQhM3k9PVB3KzVgQkZNNyQkIjNbTEwkZTl1aTIlRjIkITMkPT9TMlQjUTVFRk03JCQiMzMrK3ZvTXJVXkYyJCEzOVQkWy9rMXUlR0ZNNyQkIjNubW1tInpfIjRpRjIkITMlSHBtQig+KlwvJEZNNyQkIjNlbW1tbTZtI0coRjIkITMlUWpmISk9M1NAJEZNNyQkIjNbbW1tVCZwaE4pRjIkITNncTNDSjJaZkxGTTckJCIzQ0xMZSo9KUhcNUZNJCEzNzpENihHMl9mJEZNNyQkIjNnbW0iei8zdUMiRk0kITMpKnk0cj04JFx3JEZNNyQkIjMlKSoqKlw3TFJEWCJGTSQhM2hrJyp6T3MsLlJGTTckJCIzXW1tInpSJ29rO0ZNJCEzLmdGUWEiKno4U0ZNNyQkIjN3KioqXGk1YGgoPUZNJCEzP29pJXp2eHg0JUZNNyQkIjNXTExMM0VuJDQjRk0kITNtOFJMdygpPmhURk03JCQiM3FtbTsvUkUmRyNGTSQhM2gkKnBAKjQpZStVRk03JCQiMyIpKioqKipcS100XSNGTSQhMyEpNClIZFpPKkdVRk03JCQiMyQqKioqKipcUEF2ciNGTSQhMyd6dTpwalFDQyVGTTckJCIzKSoqKioqKlxuSGkjSEZNJCEzcyQ0JmY1MCJIQyVGTTckJCIzam1tInoqZXY6SkZNJCEzS2pVbGhHeUxVRk03JCQiMz9MTEwzNDdUTEZNJCEzRHhvZUM+RDdVRk03JCQiMyxMTExMWS5LTkZNJCEzZ0phTmk3diY9JUZNNyQkIjN3KioqXDdvN1R2JEZNJCEzUWYqPVtLUWk5JUZNNyQkIjMnR0xMTFEqb11SRk0kITM1OUlJIVwlNC9URk03JCQiM0ErK0QiPWxqOyVGTSQhM1tcWk1cXHNdU0ZNNyQkIjMxKyt2ViZSPFAlRk0kITNNLEQnZl54TSpSRk03JCQiM1dMTCRlOUVnZSVGTSQhM1ZNTjtqPmFGUkZNNyQkIjNHTExlUiIzR3klRk0kITMlKVF5U2NReWhRRk03JCQiM2NtbTsvVDEmKlxGTSQhMzdpIWV1ZENjeSRGTTckJCIzJmVtO3pSUWJAJkZNJCEzZElUbiQzRjZxJEZNNyQkIjNcKioqXCg9PlkyYUZNJCEzQig+b3hqbUxpJEZNNyQkIjM5bW07elh1OWNGTSQhMyhmWWxtUE9fYCRGTTckJCIzbCoqKioqKlx5KSlHZUZNJCEzQ1dxTE43IipSTUZNNyQkIjMnKikqKipcaV9RUWdGTSQhM1ojKXBlSkduVUxGTTckJCIzQCoqKlw3eSUzVGlGTSQhMz9vXSNmXk1dQyRGTTckJCIzNSoqKipcUCFbaFknRk0kITMzQG11WFd0S0pGTTckJCIza0tMTCRReCRvbUZNJCEzIz0hPjVjZV1HSUZNNyQkIjMhKSoqKioqXFArVilvRk0kITMjb2FtXWY5UiJIRk03JCQiMz9tbSJ6cGUqenFGTSQhM1NOdltmMkUyR0ZNNyQkIjMlKSoqKioqXCNcJ1FIKEZNJCEzR1Y1QSsmSHhvI0ZNNyQkIjNHS0xlOVM4JlwoRk0kITNtN14kNDYiZXNERk03JCQiM1IqKipcaT89YnEoRk0kITMnNG0jPmxsYlxDRk03JCQiMyJITEwkM3M/NnpGTSQhMzQnKnl2QEN2RUJGTTckJCIzYSoqKlw3YFdsNylGTSQhM0VIT2Umej1jPiNGTTckJCIzI3BtbW0nKlJSTClGTSQhM3NvQUdwRSRwMSNGTTckJCIzUW1tO2E8LlkmKUZNJCEzVjhnVngrK0w+Rk03JCQiMz1MTGU5dE9jKClGTSQhMyVwd1gzXUt6eiJGTTckJCIzdSoqKioqKlxRa1wqKUZNJCEzTypwbkw/PT5uIkZNNyQkIjNDTEwkM2RnNjwqRk0kITM4Oyd6bykpSGBfIkZNNyQkIjNJbW1tbXhHcCQqRk0kITNvYXpbUSZHQlIiRk03JCQiM0ErK0Qib0swZSpGTSQhM20nR1pmTT8nWzdGTTckJCIzQSsrdj01cyN5KkZNJCEzcFN5SmxTSDQ2Rk03JCQiIiJGKyQhMzkiM3QwOzdwZCpGMi0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiRGK0ZcX2xGXV9sLSUrQVhFU0xBQkVMU0c2JFEiYTYiUSFGYl9sLSUlVklFV0c2JDtGXV9sRmpebDskITEnKnAhM3NveEslISM7JCIxIT4hPkA1I2VbKUZN

f2 := 0.274*exp(-0.2829*r^2);

NiM+SSNmMkc2IiwkLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRipJKF9zeXNsaWJHRiU2IywkKiRJInJHRiUiIiMkISVIRyEiJSQiJHUjISIk

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

NiM+SSNmM0c2IiomSSNQaUdJKnByb3RlY3RlZEdGKCMhIiIiIiMtSSRleHBHNiRGKEkoX3N5c2xpYkdGJTYjLCRJInJHRiVGKiIiIg==

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

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDdTNyQkIiIhRiskIjNAKysrKysrU0YhIz03JCQiM3MqKioqKipcaTlSbCEjPiQiMyRlZ3hnVyhvT0ZGLjckJCIzLysrdlZBKUdBIkYuJCIzYFcsd01FVkdGRi43JCQiMysrK11QZXVpPUYuJCIzQks8VyFSTktyI0YuNyQkIjNBKytdaTMmb10jRi4kIjMranUxW3pyInAjRi43JCQiMyUpKioqXChvWCp5OSRGLiQiMyFmUig9aWJEa0VGLjckJCIzeioqKlxQOUNBdSRGLiQiMyMpKUhgaSopb05qI0YuNyQkIjMhKSoqKlxQKnpoZFZGLiQiMzlBMnBuQ3AnZiNGLjckJCIzMSsrdiQ+ZlMqXEYuJCIzOVIoW1NQT0xiI0YuNyQkIjMkKSoqKlwoPSRmJUdjRi4kIjMsLHpMZSY+Xl0jRi43JCQiM1ErKytEeSwiRydGLiQiMyl6Ky9TPlYxWCNGLjckJCIzMysrXTc8emJvRi4kIjNtIlFvLU5dKSlSI0YuNyQkIjNgKysrdjQmR10oRi4kIjNBKSlmMkYwaU9CRi43JCQiMyEpKioqKipcN25EOilGLiQiMyM0KVIyRTpNcUFGLjckJCIzWysrK0QhKm95KClGLiQiMyU+Z0NIOGtLPyNGLjckJCIzKSkqKipcUHBuc00qRi4kIjNnOHlRKHBgKlJARi43JCQiMywrK11zaUwtNSEjPCQiM1dwKT1HJyk+QDEjRi43JCQiMy0rKyshUjUnZjVGaHAkIjN1LEgwMVFPJSo+Ri43JCQiMykqKipcUC9RQkU2RmhwJCIzZCN6KjNtKm9RIj5GLjckJCIzISoqKioqKlwibz8mPSJGaHAkIjNtKnklKip6J3A5JT1GLjckJCIzMStdUGEmNCpcN0ZocCQiM2snKkhAPTs+aDxGLjckJCIzMytdN2o9XzY4RmhwJCIzPXVWRSF5IUglbyJGLjckJCIzMysrdlZ5IWVQIkZocCQiM3pVKFtcUGBSZyJGLjckJCIzNCtdKD1XVVtWIkZocCQiMy51T1F6SFNJOkYuNyQkIjMpKioqKlw3Qj4mKVwiRmhwJCIzV3NXQmBHal45Ri43JCQiMykqKipcUD46bWs6RmhwJCIzOXdqeFIqbzJQIkYuNyQkIjMnKioqXGl2JlFBaSJGaHAkIjMnUnkuW25GOUkiRi43JCQiMzErK3Z0TFUlbyJGaHAkIjMqZm1CISk0Iyl5QSJGLjckJCIzISoqKioqKlxObSdbPEZocCQiMztkIlsnKmY1TzoiRi43JCQiMyIqKioqXCh5Yl42PUZocCQiM0MmPUlzLV1HMyJGLjckJCIzKSoqKlxQTWFLcz1GaHAkIjMwZDEjM0ZiaiwiRi43JCQiMyYqKioqXDdUVylSPkZocCQiM10wSSg+JSp5KFwlKkYyNyQkIjN6KioqKipcQDgwKyNGaHAkIjNXTlg2LSZIPSQpKUYyNyQkIjMxKytdNyxIbD9GaHAkIjNhMi1zPyU0eD4pRjI3JCQiMygpKipcUDR3KVI3I0ZocCQiMykqPis+XyI9b2soRjI3JCQiMzsrK114JWYiKT0jRmhwJCIzPzg3ST8nRzUyKEYyNyQkIjMhKSoqXFAvLWFbQUZocCQiM0kkZkNUJ1ElXGInRjI3JCQiMy8rXSg9WWI7SiNGaHAkIjNfSEteVXNPVWdGMjckJCIzJykqKioqXGlAT3RCRmhwJCIzW1hIbSRbZHljJkYyNyQkIjMnKSoqXFBmTCd6ViNGaHAkIjNlYlMvajw9KjQmRjI3JCQiMz4rKyshKj49K0RGaHAkIjN3IVspeiNRelluJUYyNyQkIjMtKytERSY0UWMjRmhwJCIza3JMIVIwN3VFJUYyNyQkIjM9K11QJT41cGkjRmhwJCIzPyozcVNnZSgqKVFGMjckJCIzOSsrK2JKKltvI0ZocCQiMykpNDwmSG4kPWxORjI3JCQiMzMrK0RyIls4diNGaHAkIjNNXz42NWYiKT1LRjI3JCQiMysrKytJank1R0ZocCQiM3g4OWQ8clRKSEYyNyQkIjMxK11QLylmVChHRmhwJCIzVVRvVG1NT1pFRjI3JCQiMzErXWkwaiJbJEhGaHAkIjMzNTdbZiIqPidSI0YyNyQkIiIkRiskIjNJJilmJm91KHpaQEYyLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYrRmFbbEZiW2wtRiY2JDdTNyRGKiQiM3ppdlpOZSo9ayZGLjckRjAkIjNRMWh5RHl3JUcmRi43JEY2JCIzI3k4WU10dkMqXEYuNyRGOyQiMyM+VlZxMkpJbyVGLjckRkAkIjNRYy9FO1AhNFIlRi43JEZFJCIzPW4yYCF6ZiM9VEYuNyRGSiQiMyUzQHMncDNqISlRRi43JEZPJCIzNSU0Iz1dKj0hXE9GLjckRlQkIjNiUXV5U2osQ01GLjckRlkkIjMnKT4nXGxbVk5AJEYuNyRGaG4kIjNjJiplOihwTzAsJEYuNyRGXW8kIjNVX2tlbXlQVUdGLjckRmJvJCIza2A9J3o+JEdrRUYuNyRGZ28kIjMlKj08U2xSbydcI0YuNyRGXHAkIjM1K0M9OFc6WEJGLjckRmFwJCIzKUhnNClHUWA6QUYuNyRGZnAkIjMzb3omZTclcHE/Ri43JEZccSQiM0lMUSopKkhIYSY+Ri43JEZhcSQiM3knKUhvIypvUkg9Ri43JEZmcSQiM2paQEkhUUpZcyJGLjckRltyJCIzMUFKIWZVd2xoIkYuNyRGYHIkIjNPejdHKG8iKSo+OkYuNyRGZXIkIjNLUV47VkZNRDlGLjckRmpyJCIzJnlmUFZ3TE9NIkYuNyRGX3MkIjMzZyZbITNFdWc3Ri43JEZkcyQiMyEpXCFvejlfKz0iRi43JEZpcyQiM2FVb2k9cy05NkYuNyRGXnQkIjNrdTxFVTsnby8iRi43JEZjdCQiM1RsKT4tJilHcyIpKkYyNyRGaHQkIjM/SnQ9IypHQD4jKkYyNyRGXXUkIjMtRSlHUjkqSHYnKUYyNyRGYnUkIjMrJj5SO3IpKSkzIilGMjckRmd1JCIzXyEpR2R0IWU6aihGMjckRlx2JCIzKXBiPkpUISlHOihGMjckRmF2JCIzQXNCTiMqKTNedSdGMjckRmZ2JCIzM2VEX2MmZWVLJ0YyNyRGW3ckIjNPKCo0MydcLF8mZkYyNyRGYHckIjMxLSlIRzlgNGYmRjI3JEZldyQiM0lbXVpaRVFjX0YyNyRGanckIjNuMW1dJSkpXHYjXEYyNyRGX3gkIjN3WTlmc3RJSVlGMjckRmR4JCIzIUcoeikpcCVwW00lRjI3JEZpeCQiM2VpZjRwaDx6U0YyNyRGXnkkIjM9Rkctbyp6JFxRRjI3JEZjeSQiMyIpKT5IeDUlKT1nJEYyNyRGaHkkIjM/LSRRKnlJLiVSJEYyNyRGXXokIjNXdmI0VF9oJj0kRjI3JEZieiQiMyMqKikpUiFIMDgpKkhGMjckRmd6JCIzcyMpRyZvYE0qM0dGMi1GXFtsNiZGXltsRmJbbEZfW2xGYltsLSUrQVhFU0xBQkVMU0c2JFEicjYiUSFGX2VsLSUlVklFV0c2JDtGYltsJCIjSUZhW2w7JCIyQ2YocE1YUGk1Ri4kIjEtTXBjIlEvdiYhIzs=

int (12.566*r*r*f2*f2, r=0..10);

NiMkIit0WlVBKSohIzU=