Oakland CPM Archive/oakcpm.iso/sigm/vol133/feedlot.doc

Text File | 1985-02-10 | 10.4 KB | 262 lines

                               CATTLE FEED RATIONS

        INTRODUCTION«á  Thi≤á pai≥á oµ program≤ i≤ designeΣ t∩ balancσá ß ì
        cattlσá feeΣá ratioεá a⌠ leas⌠ cost«á  Necessar∙á datßá t∩á star⌠ ì
        include:
             - Nutrient requirements for the stock you are feeding.
             - Cost of each feed component.
             - Nutrient composition of each feed.

             Thσá firs⌠ program¼á EDITFEED¼á wil∞ placσ thi≤ datß int∩á ß ì
        filσ oε disc«á  Thσ seconΣ program¼á LINEAR¼á take≤ thσ datßá anΣ ì
        compute≤á ß leas⌠ cos⌠ balanceΣ ration«á  Result≤ wil∞ bσ printeΣ ì
        on the screen.


        EDITFEED«á  Thi≤ i≤ ß specializeΣ datß editinτ prograφ t∩ collec⌠ ì
        anΣ organizσ you≥ feedinτ datß int∩ ß disπ file«á  Thσ prograφ i≤ ì
        called by typing:
             A>editfilσá               (A╛á i≤ thσ compute≥á prompt╗á thσ ì
                                       machinσ wil∞ speaδ iε uppe≥á case¼ ì
                                       yo⌡ iε lower.)

        The program will then inquire if you want to:
             EDIT: L(ist, B(uild, M(odify, Q(uit

        A "q" will take you back to the operating system - no harm done.

        ┴á "lóá wil∞ asδ fo≥ thσ namσ oµ ß filσ (C/P═ filename⌐ anΣá lis⌠ ì
        it«á  (Wheε asked¼á tel∞ i⌠ yo⌡ wan⌠ t∩ star⌠ a⌠ recorΣ ░ fo≥ thσ ì
        whole thing.

        ┴ "mó wil∞ allo≈ modificatioε oµ aε existinτ file«á  Thi≤ par⌠ oµ ì
        thσá prograφá get≤á ß bi⌠ complicateΣ anΣ i≤á deal⌠á witΦá iεá aε ì
        appendix.

        ┴ "bó wil∞ star⌠ buildinτ ß ne≈ file..«  Seσ thσ attacheΣ examplσ ì
        for specifics.


        LINEAR.  This program is fairly easy to use.  Start it by:
             A>linear       entering the program name after the prompt.

        Thσ prograφ wil∞ theε asδ yo⌡ fo≥ thσ filσ name«á  Afte≥ that¼ i⌠ ì
        run≤á witΦ n∩ operato≥ intervention«á  Thσ importan⌠ result≤ wil∞ ì
        remaiε oε thσ screeε a⌠ thσ conclusioε oµ thσ program╗ al∞ beforσ ì
        i≤ indicatioε tha⌠ thing≤ arσ indeeΣ runninτ anΣ somσá diagnostiπ ì
        informatioεá t∩á assurσ yo⌡ tha⌠ EDITFEE─ diΣ it≤ joΓá correctly«  ì
        Iµ yo⌡ wisΦ t∩ examinσ thi≤ informatioε iε morσ detail¼ therσ arσ ì
        two convenient ways:
             Control-╙á wil∞á hal⌠á thσ screeεá displa∙á iεá it≤á tracks«  ì
        Another keystroke will restart it.
             Control-╨á wil∞á causσá al∞ outpu⌠ t∩ bσ duplicateΣá oεá thσ ì
        printer.

             See the example printout for interpretation.è

                                        1










        WHA╘ I╙ HAPPENING«  Thσ LINEA╥ prograφ i≤ oµ thσ famil∙ oµ linea≥ ì
        program≤á anΣá operation≤ researcΦ anΣ i≤ knowε a≤á thσá "ReviseΣ ì
        Simple° Algorithm"«á  I⌠ minimize≤ ß functioε (cos⌠ iε thi≤ case⌐ ì
        wheε constraineΣ b∙ ß numbe≥ oµ othe≥ function≤ (cos⌠ oµ feeΣ anΣ ì
        feeΣá analyses)«á  Thσ samσ algorithφ solve≤ thσá "transportatioε ì
        problemó anΣ thσ "produc⌠ mi° problem"«á  Onl∙ thσ outpu⌠ portioε ì
        oµáá thσá prograφá ha≤á beeεá altereΣá s∩á tha⌠á therσá i≤áá somσ ì
        intelligibilit∙ t∩ thσ printout.

             EDITFEE─á starteΣá lifσ a≤ ß genera∞ purposσá EDITFIL┼á tha⌠ ì
        madσá u≡á thσ matri° a≤ showε b∙ thσ L(is⌠ command«á  Thσá B(uilΣ ì
        functioε ha≤ beeε altereΣ t∩ handlσ thσ specializeΣ feeΣ anΣ die⌠ ì
        function«á  M(odif∙á anΣ L(is⌠ arσ unchangeΣ froφá thσá original¼ ì
        thereforσá the∙á ma∙ bσ ß bi⌠ confusinτ wheε used«á  Consul⌠á thσ ì
        Appendices when using them.


        UNITS.  A few constraints apply to the units you use in the data.
             - Integers«á  N∩ decima∞ poin⌠ i≤ expected¼ digit≤ afte≥ an∙ ì
        decima∞ poin⌠ wil∞ bσ truncated«á  Thσ matri° iε LINEA╥ i≤ se⌠ u≡ ì
        t∩ handlσ u≡ t∩ 3▓ nutrient≤ anΣ 6┤ feed≤ (includinτ thσá surplu≤ ì
        account≤ necessar∙ fo≥ overflows)«á  Iµ yo⌡ usσ morσ entries¼ thσ ì
        prograφá ma∙á no⌠á crash¼á bu⌠ won'⌠ usσ an∙ value≤á outsidσá thσ ì
        matrix.
             - Reals«  Iµ ß rea∞ numbe≥ i≤ les≤ thaε 0¼ includσ ß leadinτ ì
        ░á beforσ thσ decima∞ poin⌠ (crashe≤ iµ yo⌡á don't)«á  Arithmetiπ ì
        notatioε i≤ finσ fo≥ entry«á  Internally¼ thσ prograφ store≤ rea∞ ì
        number≤ iε ß systeφ simila≥ t∩ scientifiπ notation¼á anΣ the∙ ma∙ ì
        bσ displayeΣ thi≤ way«á  Internally¼ real≤ arσ storeΣ witΦ ove≥ ╢ ì
        significan⌠áá digit≤á whicΦá i≤á morσá thaεá wσá neeΣá fo≥áá thi≤ ì
        application.
             FeeΣá value≤á mus⌠ bσ converteΣ t∩á consisten⌠á figures«á  ┴ ì
        nutrien⌠á requiremen⌠ oµ ▒ pounΣ digestiblσ proteiε pe≥á da∙á caε ì
        onl∙á bσ me⌠ b∙ feeΣ analyse≤ expresseΣ iε pound≤ oµ proteiε (usσ ì
        metriπ iµ yo⌡ wish¼á bu⌠ bσ consistent)«  Energ∙ measureΣ iε KCA╠ ì
        wil∞ worδ fine¼ agaiε a≤ lonτ a≤ yo⌡ arσ consistent«  Percentage≤ ì
        wil∞á no⌠á meaε anything╗á the∙ mus⌠ bσ converteΣ t∩á ßá concretσ ì
        value.
             - Char«á  Characte≥á notatioεá mean≤ tha⌠ yo⌡ caεá fil∞á thσ ì
        blanδá witΦá an∙ character≤ availablσ oεá thσá keyboarΣá (contro∞ ì
        character≤á excepted)«á  Thesσá arσ al∞ label≤ anΣ no⌠á useΣá fo≥ ì
        computation«á  Thσá machinσá doesn'⌠ carσ whethe≥ uppe≥ o≥á lowe≥ ì
        case.









è

                                        2









                                MODIFY appendix.

        MODIF┘ i≤ ß par⌠ oµ EDITFEE─ tha⌠ need≤ furthe≥ explanation«  Thσ ì
        B(uilΣ functioε ha≤ beeε specializeΣ fo≥ thσ feedlo⌠ application╗ ì
        i⌠á useΣ t∩ asδ thσ use≥ fo≥ thσ "tag"¼á theε proceedeΣ t∩á builΣ ì
        tha⌠ record«  B(uilΣ i≤ no≈ automateΣ t∩ generatσ tag≤ itselµ anΣ ì
        leaΣ thσ use≥ througΦ datß input«á  ProvideΣ yo⌡ arσ organizeΣ t∩ ì
        star⌠ with¼á anΣ makσ n∩ typo≤ (fa⌠ chance)¼á yo⌡ woulΣ no⌠á neeΣ ì
        M(odify.

             Iµ yo⌡ usσ modif∙ t∩ correc⌠ ß typo¼ sugges⌠ tha⌠ yo⌡ obtaiε ì
        ßá printe≥ listinτ first«á  Usσ thσ L(is⌠ commanΣ anΣ ß Control-╨ ì
        to echo the listing on the printer.

             EacΦ recorΣ ha≤ ß recorΣ numbe≥ anΣ ß taτ (seσ sample)«  Yo⌡ ì
        mus⌠ finΣ thσ recorΣ witΦ thσ mistake«á  M(odif∙ caε g∩á directl∙ ì
        t∩ tha⌠ recorΣ iµ yo⌡ wish╗ i⌠ wil∞ displa∙ thσ existinτ content≤ ì
        anΣá allo≈á yo⌡á t∩á changσ ANYTHIN╟á (includinτá thσá tag)«á  Aε ì
        isolateΣá typ∩á wil∞á requirσ yo⌡ t∩á re-ente≥á al∞á thσá correc⌠ ì
        information along with the correction of the error.

             Next¼á M(odif∙á wil∞ displa∙ thσ nex⌠ record«á  Assuminτá n∩ ì
        errors¼á yo⌡á tel∞ M(odif∙ t∩ K(ee≡ it«á  Yo⌡ mus⌠ thumΓ you≥ wa∙ ì
        through all the remaining records to the end.

             EDITFEE─á automatically¼á iε thσá B(uilΣá function¼á create≤ ì
        severa∞á necessar∙ record≤ fo≥ dumm∙ informatioε a⌠ thσ enΣ oµá ß ì
        file«  Thesσ arσ necessar∙ t∩ allo≈ surplusse≤ oµ somσ nutrients«  ì
        Yo⌡ shoulΣ havσ n∩ reasoε t∩ tampe≥ witΦ thesσ usinτ M(odif∙ (thσ ì
        program will certainly allow you to if you want to raise hell).

             (StandarΣá Pascal¼á thσ languagσ iε whicΦ thi≤ ha≤ al∞á beeε ì
        written¼ ha≤ ß sequentia∞ filσ access«  Thu≤ i⌠ ha≤ t∩ star⌠ witΦ ì
        thσáá firs⌠áá recorΣá anΣá worδá througΦá t∩áá thσáá end«áá  Thi≤ ì
        implementatioεá oµá thσ compile≥ support≤ direc⌠ access¼á bu⌠á i⌠ ì
        wasn't used in this program.)

















è

                                        3








                               PROGRAMMERS SOURCES

             Thσ reques⌠ fo≥ thi≤ prograφ camσ froφ DaΣ wh∩ feed≤á cattlσ ì
        anΣá wondereΣ iµ sucΦ ß thinτ couldn'⌠ bσ computerized«á  BotΦ hσ ì
        anΣá m∙ brothe≥ haΣ somσ knowledgσ oµ ratioε program≤ oεá larger¼ ì
        Universit∙ sponsored¼á computers«á  Havinτ averreΣ tha⌠á compute≥ ì
        sizσá wa≤á no⌠ important¼á anΣ tha⌠ ß micr∩ coulΣ d∩ thσá job¼á ╔ ì
        founΣá myselµ committeΣ t∩ puttinτ mone∙ wherσá moutΦá was«á  DaΣ ì
        provideΣá ßá Nationa∞á Academ∙ oµá Science≤á publicatioεá (#1137⌐ ì
        titleΣá "Nutrien⌠á Requiremen⌠ oµ Beeµ Cattleó whicΦ gavσ ßá fai≥ ì
        background to the problem.

             Thσá origiεá oµá thσ program≤á i≤á Williaφá M«á Yarnal∞á wh∩ ì
        publisheΣ program≤ iε S-10░ Microsystem≤ iε UCS─ Pasca∞ iε sprinτ ì
        oµá 1980«áá  ┴á generalizeΣá treatmen⌠á oµá thσá ReviseΣá Simple° ì
        algorithφá appea≥á therσ witΦ severa∞ examples«á  Therσ arσá als∩ ì
        some references to books on operations research.

             Volumσá ▒á oµá thσ Pascal/┌ User≤ Grou≡ containeΣá thσá samσ ì
        program≤á witΦá alteration≤á b∙á Ra∙ Penle∙á s∩á the∙á woulΣá ruε ì
        properl∙ unde≥ Pascal/Z«á  Thesσ program≤ werσ thσ direc⌠á sourcσ ì
        of the ones you are using.

        Programs provided on the disc are:
             LINEAR.CO═     Thi≤ i≤ thσ basiπ optimizatioεá program«á  I⌠ ì
                            i≤á genera∞ purposσ excep⌠ fo≥ somσ label≤ iε ì
                            the output routines.

             EDITFEED.CO═   Edit≤ datß fo≥ thσ LINEA╥ program«á  Thi≤á i≤ ì
                            heavil∙á altereΣá iε thσ B(uilΣá functioεá t∩ ì
                            assist the user in ration applications.

             EDITFILE.CO═á   Thσá genera∞á purposσ datßá edito≥á fo≥á thσ ì
                            LINEA╥ program«á  I⌠ anΣ LINEAR.CO═ havσ beeε ì
                            changeΣáá froφá thσá original≤á t∩á allo≈á 2░ ì
                            character labels.

             LINEAR.PA╙á     Source≤ fo≥ LINEAR.COM«á  Pascal/┌á support≤ ì
             PRINT.PAS      separate compilation.
             INITIAL.PAS

             EDITFILE.PAS   Sources for EDITFILE and EDITFEED.
             BUILD.PAS
             BUILDF.PAS
             MODIFY.PAS
             MODIFYF.PAS

             LINTEST.DAT    Data files.
             FEED.DAT

                                                Rex A Buddenberg
                                                1910 Ash Street
                                                North Bend, Or 97459
                                                503/756-2180
                                                7 Feb 83


                                        4