Group Title: Computer series
Title: A Sugarcane stubble replacement program for microcomputers
CITATION THUMBNAILS PAGE IMAGE ZOOMABLE
Full Citation
STANDARD VIEW MARC VIEW
Permanent Link: http://ufdc.ufl.edu/UF00094889/00001
 Material Information
Title: A Sugarcane stubble replacement program for microcomputers
Alternate Title: Computer series - Florida Cooperative Extension Service ; 574
Physical Description: 7 p. : ; 28 cm.
Language: English
Creator: Levins, Richard A.
Alvarez, Jose, 1940-
Publisher: Florida Cooperative Extension Service, Institute of Food and Agricultural Sciences, University of Florida
Place of Publication: Gainesville, Fla.
Publication Date: 1983
Copyright Date: 1983
 Subjects
Subject: Sugar growing -- Computer programs   ( lcsh )
Sugarcane   ( lcsh )
Genre: government publication (state, provincial, terriorial, dependent)   ( marcgt )
non-fiction   ( marcgt )
 Notes
General Note: Cover title.
Statement of Responsibility: Dick Levins and Jose Alvarez.
 Record Information
Bibliographic ID: UF00094889
Volume ID: VID00001
Source Institution: University of Florida
Holding Location: University of Florida
Rights Management: All rights reserved by the source institution and holding location.
Resource Identifier: oclc - 10705384

Full Text

July 1983 Circular 574
i ir-.:- '!.:Y V
A SUGARCANE STUBBLE
REPLACEMENT PROGRAM
FOR MICROCOMPUTERS


COMPUTER SERIES


Florida Cooperative Extension Service / Institute of Food end Agricultural Sciences / University of Florida / John T. Woeste. Dean


^^^^^^^^^^^^^^^^^^^I











A SUGARCANE STUBBLE REPLACEMENT PROGRAM FOR MICROCOMPUTERS

Dick Levins and Jose Alvarez*


Every year, sugarcane producers are faced with the problem of deciding

whether the cane in certain fields should be allowed to ratoon again or should

be plowed out and replanted. Several economic factors are involved in the

stubble replacement decision. If another ratoon crop is considered, revenues

will be less than those from plant cane, but land preparation and replanting

costs will be avoided. If the stubble is replaced, costs for land preparation

and replanting will be incurred, and, if cane is not replanted immediately or

the land is not used for some other purpose, one season's income will be

lost. However, revenues generally will be higher when the cane is harvested.

The microcomputer program presented in the Program Listing asks for the

necessary information to help cane producers make the stubble replacement

decision for specific fields. The program is written in BASIC. As it is

listed, it will run on most Radio Shack machines. Minor changes in the BASIC

code or in screen formatting may be required to run it on other machines.


Running the Program


The program starts by asking the user for information which will be used

to determine how replanting costs should be allocated among plant and ratoon

crops. The italicized figures are examples of the numbers which must be

provided by the user:








*Extension Farm Management Specialist and Area Economist, Food and Resource
Economics Department, IFAS, University of Florida, Gainesville, and AREC-Belle
Glade, respectively.











STUBBLE REPLACEMENT ANALYSIS
UNIVERSITY OF FLORIDA

HOW MANY YEARS DO YOU NORMALLY USE TO
CHARGE OFF THE COST OF REPLANTING A FIELD? 3

HOW MANY RATOON CROPS HAVE YOU HARVESTED
FROM THIS FIELD SINCE IT WAS LAST REPLANTED? 2

ARE THESE NUMBERS OK? (Y/N)? Y

The program then asks for information about what is expected if the field

is not replanted. In this example, the information will apply to the third

ratoon crop.


FIRST ENTER THE DATA WHICH YOU EXPECT
FOR RATOON #3 ON THIS FIELD:

EXPECTED YIELD (NET TONS PER ACRE)? 20
PERCENT SUCROSE IN NORMAL JUICE (%)? 12
EXPECTED PRICE ($/STANDARD TON)? 22
PRE-HARVEST PRODUCTION COSTS ($/ACRE)? 65
HARVEST COSTS ($/GROSS TON)? 9
PERCENT TRASH (%)? 5
ARE THESE ENTRIES OK (Y/N) Y


The last line allows the user to re-enter any incorrect values. The next set

of questions concerns the replanting of the field:


NOW ENTER THE DATA WHICH YOU EXPECT
IF YOU REPLANT THIS FIELD:

EXPECTED YIELD (NET TONS PER ACRE)? 40
PERCENT SUCROSE IN NORMAL JUICE (%)? 13.5
COST TO PREPARE LAND AND REPLANT ($/ACRE)? 350
PRE-HARVEST PRODUCTION COSTS ($/ACRE)? 75
INTEREST RATE FOR DISCOUNTING INCOME (%) 14
ARE THESE ENTRIES OK (Y/N)? Y


The last question, concerning the discount rate, is the interest rate

which will be used to adjust the replant cane returns for the fact that

returns come one season later than do the ratoon cane returns if the land lies

fallow before planting. But since returns from both ratoon and successive












plant canes come at about the same time, the program accounts for this by

asking:


IF YOU REPLANT, WILL IT BE

1. SUCCESSIVE PLANTING

2. AFTER ONE YEAR FALLOW

MAKE SELECTION (1 OR 2)? 2


The number "2" used in this example tells the computer that the replanting

will occur after the land has been in fallow for about one year. Returns will

therefore be discounted for one year. Returns from ratoon cane and successive

planted plant cane are not discounted by the program.

By pressing the ENTER (carriage return) key, the screen displays the

input values along with the returns per acre for the two alternatives.


RATOON #3 REPLANT

YIELD (NT/A) A. 20 B. 40
SUCROSE (%) C. 12 D. 13.5
PRICE ($/STD. TON) E. 22 E. 22
PREHARVEST COST ($/ACRE) F. 65 G. 75
HARVEST COST ($/ACRE) H. 9 H. 9
TRASH (%) I. 5 I. 5
REPLANT COST ($/ACRE) ******* J. 350
INTEREST RATE (%) K. 14 K. 14

RETURN ($/A) 163.92 349.28


With the example numbers used above, the returns from replanting are

higher than those from ratoon cane. This result depends on numbers supplied

by the user which are often difficult to predict. The program therefore

provides the opportunity to analyze "what if?" questions in two ways. The

first appears at the end of the last screen display:


DO YOU WANT TO CHANGE THE SUCCESSIVE PLANTING VS.THE
ONE YEAR FALLOW OPTION (Y/N)? Y











By answering "Y" to the above question, the computer allows the user to

change that option:


IF YOU REPLANT, WILL IT BE

1. SUCCESSIVE PLANTING

2. AFTER ONE YEAR FALLOW

MAKE SELECTION (1 OR 2)? 1


Since the successive planting option was selected, the previous information is

used to calculate the new results:


RATOON #3 REPLANT

YIELD (NT/A) A. 20 B. 40
SUCROSE (%) C. 12 D. 13.5
PRICE ($/STD. TON) E. 22 E. 22
PREHARVEST COST ($/ACRE) F. 65 G. 75
HARVEST COST ($/ACRE) H. 9 H. 9
TRASH (%) I. 5 I. 5
REPLANT COST ($/ACRE) ******* J. 350
INTEREST RATE (%) K. 14 K. 14

RETURNS ($/A) 163.92 398.18


Returns from replanting are now higher because revenues come one year sooner

than they do when the land is fallowed before replanting.

The second opportunity to analyze "what if?" questions is provided after

an "N" is entered to the successive versus fallow alternative:


DO YOU WANT TO CHANGE THE SUCCESSIVE PLANTING VS. THE
ONE YEAR FALLOW OPTION (Y/N)? N
LETTER TO CHANGE (A-K) OR Z TO END? B
NEW YIELD WITH REPLANTING? 35


In this example, the producer assumes that plant cane yields are lower

with the successive planting practice. A "B" is typed and the opportunity to









change that number is provided. A 35-ton yield is entered and the following

table is displayed:


YIELD (NT/A)
SUCROSE (%)
PRICE ($/STD. TON)
PREHARVEST COST ($/ACRE)
HARVEST COST ($/ACRE)
TRASH (%)
REPLANT COST ($/ACRE)
INTEREST RATE (%)

RETURN ($/A)


RATOON #3
A. 20
C. 12
E. 22
F. 65
H. 9
I. 5
********
K. 14

163.92


REPLANT
B. 35
D. 13.5
E. 22
G. 75
H. 9
I. 5
J. 350
K. 14

324.45


The $324.45 returns from replanting with successive planting are lower than

the $398.18 obtained in the first run with the successive alternative, due to

a 5-ton yield reduction.

Assume now that the producer believes the percent sucrose in the plant

cane may have been overestimated. By changing line D from 13.5 to 12.5, the

new return estimates appear on the screen:


YIELD (NT/A)
SUCROSE (%)
PRICE ($/STD. TON)
PREHARVEST COST ($/ACRE)
HARVEST COST ($/ACRE)
TRASH (%)
REPLANT COST ($/ACRE)
INTEREST RATE (%)

RETURN ($/A)


RATOON #3
A. 20
C. 12
E. 22
F. 65
H. 9
I. 5
*******
K. 14

163.92


REPLANT
B. 35
D. 12.5
E. 22
G. 75
H. 9
I. 5
J. 350
K. 14

247.45


The returns from replanting decreased but the table shows that the replant

alternative is still more profitable than the ratoon option. More changes can

be considered by answering the "letter to change" question and entering the

corresponding new values. These changes can be compared each time, both in

terms of successive planting and of one year fallow.

To end the program, answer "Z" to the "letter to change" question and an

END OF PROGRAM message is displayed.









PROGRAM LISTING
100 CLS
110 PRINT:PRINT
120 PRINT "STUBBLE REPLACEMENT ANALYSIS"
130 PRINT "UNIVERSITY OF FLORIDA":PRINT:PRINT
140 PRINT "HOW MANY YEARS DO YOU NORMALLY USE TO "
150 INPUT "CHARGE OFF THE COST OF REPLANTING A FIELD ";NY
160 PRINT
170 PRINT "HOW MANY RATOON CROPS HAVE YOU HARVESTED"
180 INPUT "FROM THIS FIELD SINCE IT WAS LAST REPLANTED ";NR
190 PRINT
200 INPUT "ARE THESE NUMBERS OK? (Y/N) ";O$
210 IF OS"Y" THEN GOTO 250
220 IF OSI"N" THEN GOTO 100
230 PRINT:PRINT "ONLY Y OR N WILL WORK. TRY AGAIN."
240 GOTO 190
250 CLS:PRINT:PRINT
260 PRINT "FIRST ENTER THE DATA WHICH YOU EXPECT"
270 PRINT "FOR RATOON #";NR+1;" ON THIS FIELD:"
280 PRINT
290 INPUT "EXPECTED YIELD (NET TONS PER ACRE) ";Y1
300 INPUT "PERCENT SUCROSE IN NORMAL JUICE (%) ";Jl
310 INPUT "EXPECTED PRICE (S/STANDARD TON) ";P1
320 INPUT "PRE-HARVEST PRODUCTION COSTS (S/ACRE) ";C1
330 INPUT "HARVEST COSTS (S/GROSS TON) ";H
340 INPUT "PERCENT TRASH (%) ";T
350 PRINT: INPUT "ARE THESE ENTRIES OK (Y/N) ";O$
360 IF O$="N" THEN GOTO 100
370 IF O$="Y" THEN GOTO 390
380 PRINT "ONLY Y OR N WILL WORK. TRY AGAIN.":GOTO 350
390 CLS
400 PRINT "NOW ENTER THE DATA WHICH YOU EXPECT"
410 PRINT "IF YOU REPLANT THIS FIELD:"
420 PRINT
430 INPUT "EXPECTED YIELD (NET TONS PER ACRE) ";Y2
440 INPUT "PERCENT SUCROSE IN NORMAL JUICE (%) ";J2
450 INPUT "COST TO PREPARE LAND AND REPLANT (S/ACRE) ";C2
460 INPUT "PRE-HARVEST PRODUCTION COSTS (S/ACRE) ";C3
470 INPUT "INTEREST RATE FOR DISCOUNTING INCOME (%) ";I
480 PRINT: INPUT "ARE THESE ENTRIES OK (Y/N) ";OS
490 IF OS="N" THEN GOTO 390
500 IF OS$"Y" THEN GOTO 520
510 PRINT "ONLY Y OR N WILL WORK. TRY AGAIN.":GOTO 480
520 CLS:PRINT:PRINT
530 PRINT "IF YOU REPLANT, WILL IT BE"
540 PRINT
550 PRINT "1. SUCCESSIVE PLANTING"
560 PRINT
570 PRINT "2. AFTER ONE YEAR FALLOW"
580 PRINT
590 INPUT "MAKE SELECTION (1 OR 2) ";S
600 IF S-1 THEN GOTO 640
610 IF S-2 THEN GOTO 640
620 GOTO 590
630 REM COMPUTING QUALITY FACTORS








640
650
660
670
680
690
700
710
720
730
740
750


Fl-.9079+(J1-11.57)/10
F2-.9079+(J2-11.57)/10
REM COMPUTE HARVESTING COST PER NET TON
TT-T/100
HH-H*(Y1/(1-TT))
REM CALCULATE REMAINING PLANTING COST TO BE CHARGED
IF (NR+1)>-NY THEN CR-0:GOTO 720
CR-C2-((NR+1)/NY)*C2
IF (NR+1)>-NY THEN DD-0:GOTO 740
DD-C2/NY
R1-(Y1*FL*PI)-C1-HH-DD
HH-H*(Y2/(1-TT))


760 R2-(Y2*F2*P1)-(C2/NY)-C3-HH-CR
770 REM DISCOUNTING NET REVENUES
780 IF S-2 THEN R2-R2/(1+(I/100))
790 R1-INT(100*R1+.5)/100
800 R2-INT(100*R2+.5)/100
810 CLS
820 PRINT TAB(25);"RATOON #";NR+1;TAB(39);"REPLANT"
830 PRINT "YIELD (NT/A)";TAB(27);"A. ";Y1;TAB(39);"B. ";Y2
840 PRINT "SUCROSE (%)";TAB(27);"C. ";Jl;TAB(39);"D. ";J2
850 PRINT "PRICE ($/STD.TON)";TAB(27);"E. ";P1;TAB(39);"E. ";P1
860 PRINT "PREHARVEST COST ($/ACRE)";TAB(27);"F. ";C1;TAB(39);"G. ";C3
870 PRINT "HARVEST COST ($/ACRE)";TAB(27);"H. ";H;TAB(39);"H. ";H
880 PRINT "TRASH (%)";TAB(27);"I. ";T;TAB(39);"I. ";T
890 PRINT "REPLANT COST ($/ACRE)";TAB(27);"******";TAB(39);"J. ";C2
900 PRINT "INTEREST RATE (%)";TAB(27);"K. ";I;TAB(39);"K. ";I
910 PRINT TAB(27);"-------";TAB(39);"------"
920 PRINT "RETURN ($/A)";TAB(27);R1;TAB(39);R2
930 PRINT
940 PRINT "DO YOU WANT TO CHANGE THE SUCCESSIVE PLANTING VS. THE"
950 INPUT "ONE YEAR FALLOW OPTION? (Y/N) ";Y$
960 IF YS-"N" THEN GOTO 990
970 IF Y$-"Y" THEN GOTO 520
980 PRINT "ONLY Y OR N WILL WORK. TRY AGAIN.":GOTO 940
990 INPUT "LETTER TO CHANGE (A-K) OR Z TO END ";C$
1000 IF C$-"A" THEN INPUT "NEW YIELD WITHOUT REPLANTING ";Y1


INPUT
INPUT
INPUT
INPUT
INPUT
INPUT
INPUT
INPUT
INPUT
INPUT


"NEW
"NEW
"NEW
"NEW
"NEW
"NEW
"NEW
"NEW


YIELD WITH REPLANTING ";Y2
% SUCROSE WITHOUT REPLANTING ";J1
% SUCROSE WITH REPLANTING ";J2
PRICE ";P1
PREHARVEST COST WITHOUT REPLANTING ";C1
PREHARVEST COST WITH REPLANTING ";C3
HARVEST COST ";H
% TRASH ";T


"NEW REPLANTING COST ";C2
"NEW INTEREST RATE ";I


GOTO 1130


GOTO 640
PRINT
PRINT "END OF PROGRAM"
END


This public document was promulgated at a cost of $293.30, or 2.9 cents per copy, to inform producers of microcom-
puter applications in the sugarcane industry. 7-1M-83
COOPERATIVE EXTENSION SERVICE, UNIVERSITY OF FLORIDA, INSTITUTE OF FOOD AND AGRICULTURAL
SCIENCES, K. R. Tefertlller, director, in cooperation with the United States Department of Agriculture, publishes this Infor-
mation 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.


THEN
THEN
THEN
THEN
THEN
THEN
THEN
THEN
THEN
THEN
THEN


1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1150


C$-"B"
C$S"C"
C$="D"
C$="E"
C$="F"
CS"G"
C$S"H"
CS-"I"
C$S"J"
CS"K"
C$="Z"




University of Florida Home Page
© 2004 - 2010 University of Florida George A. Smathers Libraries.
All rights reserved.

Acceptable Use, Copyright, and Disclaimer Statement
Last updated October 10, 2010 - - mvs