![]() |
Novel Fibonacci and non-Fibonacci structure in the sunflower: results of a citizen science experiment - The Royal Society Publishing |
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 - - --Copyright (C) 2021. Bryan Hinton - - --All rights reserved. - - -- - - --Redistribution and use in source and binary forms, with or without - - --modification, are permitted provided that the following conditions - - --are met: - - --1. Redistributions of source code must retain the above copyright - - -- notice, this list of conditions and the following disclaimer. - - --2. Redistributions in binary form must reproduce the above copyright - - -- notice, this list of conditions and the following disclaimer in the - - -- documentation and/or other materials provided with the distribution. - - --3. Neither the names of the copyright holders nor the names of any - - -- contributors may be used to endorse or promote products derived from this - - -- software without specific prior written permission. - - -- - - --THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" - - --AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - - --IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - - --ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE - - --LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - - --CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - - --SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - - --INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - - --CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - - --ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - - --POSSIBILITY OF SUCH DAMAGE. when 9 => segment_vector := "0011000"; ---9 when others => segment_vector := "1111111"; -- end case; return segment_vector; end function get_7_segment_vector; - -- BEGIN ARCHITECTURE begin scaler <= compute_prescaler((to_integer(unsigned( SW )))*scaler_mlt); - --led off -> 25m pulses -> led on -> 25m pulses / 50% duty cycle gpiopulse_process : process(CLOCK_50, KEY(0)) begin if (KEY(0) = '0') then -- asynchronous reset count <= 0; elsif rising_edge(CLOCK_50) then if (count = scaler - 1) then state <= not state; count <= 0; elsif (count = clk50divider) then -- automatic reset count <= 0; else count <= count + 1; end if; end if; end process gpiopulse_process; -----BEGIN PGP SIGNATURE----- iQIzBAEBCgAdFiEEhwq5gb3EVpTtl/3gjYtliwzjQIcFAmA24TQACgkQjYtliwzj QIe+mRAApc9EepxD3aphtSFn74uPocXkz7ol4l0fHfRwSoWtMuittnTo43smXjeI zWLYhtqeijm4lzNfTQnv5eIpXMtiBNOOHgW7upqCg8v8H4e16SFpVtbwzM7Kmii0 gx3kDXwfTDjqvPgcpOwAAFV9aVwbOCdbrYlBNa9gbcY61rdclt7z/dnoiVWo1+oU Yvl4MpVpjO2Zi7uqpZH1Qk2wThbAIOpAFbwXgvDs0c5LK3AVB7v/5uWtObbtCLsZ a0EPyD5Jfq4hmkhUH8tAj0ba+uc/3IrT1ye8rllvUyPrmDKAW68VwCl4Iy5kCR2g h4c+s3J87cZabkhFJVyYeQyOitK2xO1Bx3hAst5SFx9WmUP5yxtdt4PVTohnWsTu wgVkqD0FxrqnXgP3sVm0sSoFVDzV2Ll0Md9cH9sdrev8xXLK9nFi+hgy34DlRZOd 0kZQWhg29j1dAru2OZ5OFNkjCl2a66l8dmFJkWJ9NS0JPJv84QX+nP7JCduYxS1b hUawypHPHICsLeRw+bQJj2tOJfZW6aKQ7kOcXxFNVg3vyZD4sP0z5xe3shaZUXr6 aD//W0LPxxODhdJaINfhzMBRoS2ot6M2Dpux8tHcO2/ChSvFWqPvfW88RUfJPTZy sqnNZUsPOLygFyLtiohcfHPCW0FNC0CnTYVAGi/AFtnx+T8NA24= =wL8W -----END PGP SIGNATURE-----