|
:.Z August 1985
Floppy disc included with this
item has been shelved separately.
Consult LUIS or ask circulation
staff for assistance.
Circular 679
A Sugarcane Ripener Analysis
For Microcomputers
Program
I COMPUTER SERIES
Jose Alvarez
7m
101
F636C Cooperative Extension Service / Institute of Food and Agricultural Sciences / University of Florida / John T. Woeste, Dean
679
guide
FLORIDA COOPERATIVE EXTENSION SERVICE
UNIVERSITY OF FLORIDA
INSTITUTE OF FOOD AND AGRICULTURAL SCIENCES
COOPERATIVE EXTENSION SERVICE AGRICULTURAL EXPERIMENT STATION
SCHOOL OF FOREST RESOURCES AND CONSERVATION COLLEGE OF AGRICULTURE
UNIVERSITY OF FLORIDA
'] REPLY TO: IFAS Software Support
(904) 392-7853 Building 120, Room 203
University of Florida
Gainesville, FL 32611
December 8, 1988
MEMORANDUM
TO: IFAS Software Customers
FR: Dennis G. Watson
RE: Running BASIC programs
The program you have just purchased was written in the BASIC programming language.
Originally, we distributed only the BASIC language source file and required that you use a
BASIC interpreter to run the program.
We now distribute BASIC programs in compiled form. This means that you do not have
to load BASIC prior to running the program. Until the documentation is updated to reflect
this change, please refer to the following instructions to start program 024, titled
"Sugarcane Ripener Analysis".
First, make a duplicate copy of the distribution disk. Store the distribution disk in a safe
place and use the duplicate copy as your working disk. To run the program simply type:
RIPEFACT
at the DOS prompt and press the Enter (or Return) key.
Once you have started the program, the instructions in the documentation should apply. In
some cases, the documentation or program may allow you the option of exiting to BASIC
or DOS. With a compiled program, regardless of which you choose, you will exit to
DOS.
If you need more space on your working disk, you can delete any files with the extension
".BAS". These are BASIC source files and you do not need them to run the program.
If you have any questions about this program, please contact the IFAS Software Support
office, Bldg 120 Room 203, Gainesville, FL 32611 or phone (904) 392-7853.
The Institute of Food and Agricultural Sciences is an Equal Employment Opportunity Affirmative Action Employer authorized to provide research,
educational information and other services only to individuals and institutions that function without regard to race, color, sex, or national origin.
COOPERATIVE EXTENSION WORK IN AGRICULTURE AND HOME ECONOMICS. STATE OF FLORIDA. IFAS, UNIVERSITY OF
cl nlRtA II c nFPARTMPNT OF AGRIClll TIRE AND BOARDS OF COUNTY COMMISSIONERS COOPERATING
A SUGARCANE RIPENER ANALYSIS PROGRAM FOR MICROCOMPUTERS
Jose Alvarez
(c), 1985, IFAS, UF
Jose Alvarez is Area Economist, Food and Resource Economics
Department, University of Florida, Everglades Research and
Education Center, Belle Glade, Florida 33430.
UHtiY SI1Y OF FLORA LIURAIES
INTRODUCTION
Ripening can be defined as the accumulation of sucrose in the
internodes of the sugarcane stalk (Legendre). The effect of
ripeners (also referred to as plant growth regulators) on
sugarcane production has been the subject of extensive research
throughout the world since 1949. Recent work in Florida has been
conducted by Orsenigo (1977), Holder and DeStefano (1979), Rice
et al. (1980) and Dusky et al. (1985), among others.
The potential economic effect of applying a ripening agent
before harvest can be determined with partial budgeting. This
technique is used to evaluate the change in costs and returns
associated with such practice. Although the arithmetic involved
is simple, a recent study showed that "sugarcane cultivars
responded differently to the application of a sucrose enhancer
and the time interval between application and harvest" (Dusky et
al.). Evaluating the economic effect from ripeners applied at
different times to several cultivars becomes a tedious task
subject to errors. The microcomputer program listed at the end
of this publication can be used to do the analysis in a fast and
accurate manner.
HARDWARE REQUIREMENTS
The program works on IBM PC microcomputers, or compatibles,
with a minimum configuration of 64K memory and 1 disk drive. A
printer is optional.
The program is written in BASIC. Minor changes in the BASIC
code or in screen formatting may be required to run the program on
other machines.
2
GETTING STARTED
Type the program and save the file under a name of your
choice. (The author used the name RIPEFACT.) To start a session
you must first load BASIC by booting the DOS disk and after the
A> prompt typing BASIC and pressing the key. If you have
one disk drive, replace the DOS disk with the disk containing the
program and type LOAD"RIPEFACT" . If your system has two
disk drives, type LOAD"B: RIPEFACT" . When Ok appears on the
screen, type RUN or simply press the {F2} key.
Some users may want to create a system disk that has BASIC
and the program file on it to avoid disk swapping. Other users
may prefer setting up an AUTOBOOT, AUTOEXEC disk. For the
corresponding instructions, consult the IBM user's manual.
RUNNING THE PROGRAM
Before running the program, the user must be aware of a few
facts: (a) remember the claims about physical changes that may
occur (like growth reduction and, in some cultivars, decreasing
trash content) due to ripener application and enter the
appropriate data; (b) the underlined characters in the sample run
are the input responses that must be provided in uppercase
characters. To make the program shorter and easier to type,
lowercase characters were not included; (c) when a percentage
figure is requested (i.e., trash content, sucrose in normal juice
and interest rate), do not enter them as decimals since the
program makes the conversions; and (d) if a printer is available,
any screen of information displayed on the monitor can be printed
by pressing the SHIFT -90 and {PrtSc} keys on the keyboard.
The program begins by displaying the title and credit screen.
Once the key is pressed, the program requests information
concerning the expected yield if the ripener is not applied:
The last line in the previous screen allows correcting the
information entered when necessary. Typing the letter N takes
the user to the beginning of that section. If the entries are
correct, typing a Y allows entering data for the next input
section:
ENTER THE EXPECTED YIELD IF THE RIPENER IS APPLIED:
CANE YIELD (GROSS TONS/ACRE) ? 28
TRASH CONTENT (%)
(ENTER AS %, NOT A DECIMAL) ? 5
SUCROSE IN NORMAL JUICE (".)
(ENTER AS %, NOT A DECIMAL) ? 13.07
ARE THESE ENTRIES OK (Y/N) ? Y
The same gross tonnage and trash content were entered for
ENTER THE EXPECTED YIELD WITHOUT THE RIPENER:
CANE YIELD (GROSS TONS/ACRE) ? .2
TRASH CONTENT (%)
(ENTER AS %. NOT A DECIMAL) ? J
SUCROSE IN NORMAL JUICE (%)
(ENTER AS ., NOT A DECIMAL) ? 12
ARE THESE ENTRIES OK (Y/N) ? Y
comparison purposes. The higher sucrose content is the result of
the ripener application.
The next step is entering data related to costs and returns.
The price of cane is assumed to be $0.21/ib, which translates
into $24.15 per standard ton when the fair price determination
factor is used (21 x 1.15 = 24.15). Ripener costs include 0.5 lb
of active ingredient per acre at $18/lb plus $2.15/acre for the
aircraft application. The interest rate charged is an opportunity
cost that reflects the fact that the money spent on the ripener
application will not be recovered until several months later:
ENTER THE FOLLOWING COST INFORMATION:
PRICE OF SUGARCANE ($/STANDARD TON) ? 24.15
COST OF RIPENER INCLUDING APPLICATION ($/ACRE) '? 11.15
INTEREST RATE (%)
(ENTER AS %, NOT A DECIMAL) ? 12
HARVESTING COST ($/GROSS TON) ? 9.50
MONTHS FROM RIPENER APPLICATION TO CANE PAYMENT (#) ? 6
ARE THESE ENTRIES OK (Y/N) ? Y
The computer now has all the information necessary to make
the calculations. But before showing the result, the following
message is displayed:
NOTE THAT THE RETURN FIGURE IN THE RESULT
ONLY REFLECTS THE YIELD AND COST DATA THAT
YOU ENTERED. OTHER FIXED AND VARIABLE COSTS
ARE ASSUMED TO BE EQUAL FOR BOTH SITUATIONS
AND HAVE NOT BEEN DEDUCTED FROM THE RESULT.
PRESS TO SEE THE RESULT?
After pressing the key, the result of the analysis
appears on the screen, along with the information previously
entered:
YIELD (GT/A)
TRASH (.)
SUCROSE (.)
PRICE ($/STD. TON)
HARVESTING COST ($/GT)
COST OF RIPENER ($/A)
INTEREST RATE (.)
MONTHS UNTIL PAYMENT (#)
RETURN ($/A). ... ..
LETTER TO CHANGE (A-K) OR
*PARTIAL BUDGETING RESULTS*
NO RIPENER RIPENER
A. 28 B. 28
C. 5 D. 5
E. 12 F. 13.07
G. 24.15 G. 24.15
H. 9.5 H. 9.5
1C I. 11.15
tfStt S J. 12
ttrSttt K. 6
344.85 401.77
Z TO END ?
The net return per' acre if the ripener is not applied
amounts to $344.85 versus $401.77 if the ripener is applied --a
positive difference of about $57 per acre. The last line of the
result screen allows changing, one at a time, any variable value
to asses the effect on net returns. Let us consider a decrease in
tonnage due to the ripener application. To do that, one has to
answer B to the "letter to change" question and then enter the
new value:
LETTER TO CHANGE (A-K) OR Z TO END ? B
NEW CANE YIELD WITH THE RIPENER (GROSS TONS/ACRE) ? 26.6
Assuming that the ripener application may decrease tonnage
by 5% reduces the net return figure to $381.09 per acre:
YIELD (GT/A)
TRASH (%)
SUCROSE (%)
PRICE ($/STD. TON)
HARVESTING COST ($/GT)
COST OF RIPENER ($/A)
INTEREST RATE (%)
MONTHS UNTIL PAYMENT (#)
RETURN ($/A) . . . .
LETTER TO CHANGE (A-K) OR Z
PARTIAL BUDGETING RESULTS*
0 RIPENER RIPENER
A. 28 B. 26.6
C. 5 D. 5
E. 12 F. 13.07
G. 24.15 G. 24.15
H. 9.5 H. 9.5
tt#1tr# I. 11.15
tttWtt J. 12
)|t$!## K. 6
344.85 381.09
TO END ?
The user may make as many changes as desired, always one at a
time, until he/she is satisfied with the result. To finish the
program, a Z must be answered to the "letter to change" question.
DISCLAIMER AND ORDERING INFORMATION
Disclaimer
The University of Florida (UF), Institute of Food and
Agricultural Sciences (IFAS), and Florida Cooperative Extension
Service (FCES) shall have no liability or responsibility to
cooperator or any other person or entity with respect to any
liability, loss, or damage caused or alleged to be caused,
directly or indirectly, by programs released by IFAS for sale or
cooperative use including, but not limited to, any interruption
*of service, loss of business, or anticipatory profits or
consequential damages resulting from use or operation. And in no
event shall FCES be liable for loss of profits, indirect,
special, or consequential damages arising out of any breach of
the agreement or obligations of this contract.
Condition of ReleasegorSale
All computer software distributed by IFAS or FCES are on a "AS
IS" basis without warranty. Distribution or resale without
written permission of the department of origin is not permitted.
OrcjerinInformati.on
For more information on this and other IFAS software contact
your county extension office or write tog
IFAS Software Communication and Distribution
G022 McCarty Hall
University of Florida
Gainesville, FL 32611
REFERENCES
Dusky, J.A.., M.S. Kang, B. Glaz and J.D. Miller. "Response of
Eight Sugarcane Cultivars to Ripeners." University of Florida,
EREC, Belle Glade (Manuscript in process of review).
Holder, D.G. and R.P. DeStefano. "Response of Clewiston (CL)
Varieties to Polaris in Florida During the 1978 to 1979 Season."
S.arJou.nal. 41 (1979):21.
Legendre, B.L. "Ripening of Sugarcane: Effects of Sunlight,
Temperature and Rainfall." CroE._Science (1975):349-352.
Orsenigo, J.R. "Polaris and Sucrose Enhancement in Florida
Sugarcane. Proc._ Su_~ ar ane Ri. eere Se.minarE, Rio de Janero,
Brazil, 1977, pp. 65-68.
Rice, E.R., D.G. Holder and R.P. DeStefano. "Response of
Several Florida Sugarcane Varieties Tested During the 1979-1980
Harvest." Sufga LJournal 43 (1980): 23-25.
100 CLS
110 PRINT: PRINT: PRINT: PRINT
120 PRINT TAB(25);"t*SUGARCANE RIPENER ANALYSIS**"
130 PRINT TAB(35);"VERSION 1.0"
140 PRINT: PRINT: PRINT TAB(34);"Developed by:"
150 PRINT: PRINT TAB(21);"FOOD AND RESOURCE ECONOMICS DEPARTMENT"
160 PRINT TAB(25);"COOPERATIVE EXTENSION SERVICE"
170 PRINT TAB(19);"INSTITUTE OF FOOD AND AGRICULTURAL SCIENCES"
180 PRINT TAB(30);"UNIVERSITY OF FLORIDA"
190 PRINT: PRINT TAB(22);"(C) IFAS, UNIVERSITY OF FLORIDA, 1985"
200 PRINT: PRINT: PRINT
210 INPUT "PRESS TO CONTINUE ";PS
220 CLS
230 PRINT "ENTER THE EXPECTED YIELD WITHOUT THE RIPENER:"
240 PRINT: PRINT
250 INPUT "CANE YIELD (GROSS TONS/ACRE) ";GT
260 PRINT
270 PRINT "TRASH CONTENT (%)"
280 INPUT "(ENTER AS %, NOT A DECIMAL) ";T
290 PRINT
300 PRINT "SUCROSE IN NORMAL JUICE (%)"
310 INPUT "(ENTER AS %, NOT A DECIMAL) ";S
320 PRINT:PRINT:INPUT "ARE THESE ENTRIES OK (Y/N) ";0O
330 IF O$="N" THEN GOTO 220
340 IF O$="Y" THEN GOTO 360
350 PRINT "ONLY Y OR N WILL WORK. TRY AGAIN.": GOTO 320
360 CLS
370 PRINT "ENTER THE EXPECTED YIELD IF THE RIPENER IS APPLIED:"
380 PRINT: PRINT
390 INPUT "CANE YIELD (GROSS TONS/ACRE) ";RGT
400 PRINT
410 PRINT "TRASH CONTENT (.)"
420 INPUT "(ENTER AS %, NOT A DECIMAL) ";RT
430 PRINT
440 PRINT "SUCROSE IN NORMAL JUICE (%)"
450 INPUT "(ENTER AS %, NOT A DECIMAL) ";RS
460 PRINT:PRINT:INPUT "ARE THESE ENTRIES OK (Y/N) ";0$
470 IF O$="N" THEN GOTO 360
480 IF 0$="Y" THEN GOTO 500
490 PRINT "ONLY Y OR N WILL WORK. TRY AGAIN.": GOTO 460
500 CLS
510 PRINT "ENTER THE FOLLOWING COST INFORMATION:"
520 PRINT:PRINT
530 INPUT "PRICE OF SUGARCANE ($/STANDARD TON) ";PS
540 PRINT
550 INPUT "COST OF RIPENER INCLUDING APPLICATION ($/ACRE) ";CR
560 PRINT
570 PRINT "INTEREST RATE (%)"
580 INPUT "(ENTER AS %, NOT A DECIMAL) ";IR
590 PRINT
600 INPUT "HARVESTING COST ($/GROSS TON) ";HC
610 PRINT
620 INPUT "MONTHS FROM RIPENER APPLICATION TO CANE PAYMENT (#) ";M
630 PRINT:PRINT:INPUT "ARE THESE ENTRIES OK (Y/N) "; 0
640 IF O$="N" THEN GOTO 500
650 IF 0$="Y" THEN GOTO 670
660 PRINT "ONLY Y OR N WILL WORK. TRY AGAIN.": GOTO 630
670 CLS
680 PRINT:PRINT:PRINT:PRINT
690 PRINT TAB(18);"NOTE THAT THE RETURN FIGURE IN THE RESULT
700 PRINT TAB(18);"ONLY REFLECTS THE YIELD AND COST DATA THAT
710 PRINT TAB(18);"YOU ENTERED. OTHER FIXED AND VARIABLE COSTS
720 PRINT TAB(18) "ARE .ASSUMED TO BE EQUAL FOR BOTH SITUATIONS
730 PRINT TAB(18); "AND HAVE NOT BEEN DEDUCTED FROM THE RESULT."
740 PRINT:PRINT: INPUT "PRESS TO SEE THE RESULT";P$
750 CLS
760 REM CALCULATING NET TONS
770 NT = G'T (GT T/ 100)
780 RNT = RGT (RGT RT/100)
790 REM COMPUTING QUALITY FACTORS
800 Fl = .9079 + (S 11.57)/10
810 F2 = .9079 + (RS 11.57)/10
820 REM CALCULATING OPPORTUNITY COST OF INVESTMENT
830 RC = CR + CR ((IR/100)/(12/M))
840 REM CALCULATING NET RETURNS
850 R1 = (NT F F1 PS) (GT HC)
860 R2 = (RNT F2 *-PS) (RGT HC) RC
870 REM ROUNDING RETURNS TO TWO DECIMAL PLACES
880 Ri = INT(100*Ri+.5)/I00
890 R2 = INT(100tR2+.5)/100
900 CLS
910 PRINT TAB(27);"*PARTIAL BUDGETING RESULTS*"
920 PRINT
930 PRINT TAB(27);"NO RIPENER";TAB(44);"RIPENER"
940 PRINT
950 PRINT "YIELD (GT/A)";TAB(29);"A. ";GT;TAB(44);"B. ";RGT
960 PRINT
970 PRINT "TRASH (%)";TAB(29);"C. ";T;TAB(44);"D. ";RT
980 PRINT
990 PRINT "SUCROSE (%.)";TAB(29);"E. ";S;,TAB(44);"F. ";RS
1000 PRINT
1010 PRINT "PRICE ($/STD. TON)";TAB(29);"G. ";PS;TAB(44);"G. ";PS
1020 PRINT
1030 PRINT "HARVESTING COST ($/GT)";TAB(29);"H. ";HC;TAB(44);"H. ";HC
1040 PRINT
1050 PRINT "COST OF RIPENER ($/A)";TAB(29);"t****SSS* ";TAB(44);"I. ";CR
1060 PRINT
1070 PRINT "INTEREST RATE (%)";TAB(29);"t***s(t** ";TAB(44); "J. ";IR
1080 PRINT
1090 PRINT "MONTHS UNTIL PAYMENT (#)";TAB(29);"tS*******";TAB(44)."K. ";M
1100 PRINT TAB(29);5" ...--";TAB(44); "___
1110 PRINT "RETURN ($/A) ... . . .";TAB(29);R1;TAB(44);R2
1120 PRINT
1130 INPUT "LETTER TO CHANGE (A-K) OR Z TO END ";C$
1140 IF C$="A" THEN INPUT "NEW CANE YIELD WITHOUT THE RIPENER (GROSS TONS/ACRE)
" GT
1150 IF C$="B" THEN INPUT "NEW CANE YIELD WITH THE RIPENER (GROSS TONS/ACRE) ";
GT
1160 IF C$="C" THEN INPUT "NEW TRASH CONTENT WITHOUT THE RIPENER (%) ";T
1170 IF C$="D" THEN INPUT "NEW TRASH CONTENT WITH THE RIPENER ('.) ";RT
1180 IF C$="E" THEN INPUT "NEW SUCROSE WITHOUT THE RIPENER (%) ";S
1190 IF C$="F" THEN INPUT "NEW SUCROSE WITH THE RIPENER (%) ";RS
1200 IF C$="G"" THEN INPUT "NEW PRICE OF SUGARCANE ($/STANDARD TON) ";PS
1210 IF C$="H" THEN INPUT "NEW HARVESTING COST ($/GROSS TON) ";HC
1220 IF C$="I" THEN INPUT "NEW COST OF RIPENER INCLUDING APPLICATION ($/ACRE)
CR
1230 IF C$="J" THEN INPUT "NEW INTEREST RATE (%) ";IR
1240 IF C$="K" THEN INPUT "NEW MONTHS UNTIL PAYMENT (#) ";M
1250 IF C$="Z" THEN GOTO 1270
1260 GOTO 750
1270 PRINT
1280 PRINT "END OF PROGRAM"
1290 END
R
;
Ill11111 l fl I
3 1262 04376881 0
SCIENCE
LIBRARY
This public document was produced at a cost of $161.27, or .75 cents per copy, to provide information on a micro-
computer program for analysis of sugar cane ripener. 08-215-85
COOPERATIVE EXTENSION SERVICE, UNIVERSITY OF FLORIDA, INSTITUTE OF FOOD AND AGRICULTURAL
SCIENCES, K. R. Tefertller, director, in cooperation with the United States Department of Agriculture, publishes this Infor-
matlon to further the purpose of the May 8 and June 30, 1914 Acts of Congress; and Is authorized to provide research, educa-
tional Information and other services only to individuals and institutions that function without regard to race, color, sex or
national origin. Single copies of Extension publications (excluding 4-H and Youth publications) are available free to Florida
residents from County Extension Offices. Information on bulk rates or copies for out-of-state purchasers Is available from
C. M. Hinton, Publications Distribution Center, IFAS Building 664, University of Florida, Gainesville, Florida 32611. Before publicizing this
publication, editors should contact this address to determine availability.
|
