• TABLE OF CONTENTS
HIDE
 Cover
 Title Page
 Title Page
 Sailing fishing vessels engineering...
 References
 Appendix A
 Appendix B: Screen dump of program...
 Appendix C
 Back Cover






Group Title: Technical paper / Florida Sea Grant College ;, no. 25
Title: Sailing fishing vessels engineering economic analysis
CITATION PAGE IMAGE ZOOMABLE
Full Citation
STANDARD VIEW MARC VIEW
Permanent Link: http://ufdc.ufl.edu/UF00074959/00001
 Material Information
Title: Sailing fishing vessels engineering economic analysis an interactive basic computer program
Series Title: Technical paper Florida Sea Grant College
Physical Description: 26 p. : ; 28 cm.
Language: English
Creator: Shortall, John W
Publisher: Marine Advisory Program, Florida Cooperative Extension Service
Place of Publication: Gainesville
Publication Date: 1982
 Subjects
Subject: Fishing boats -- Economic aspects -- Computer programs   ( lcsh )
Sailboats -- Economic aspects -- Computer programs   ( lcsh )
Fishing boats -- Design and construction -- Computer programs   ( lcsh )
Sailboats -- Design and construction -- Computer programs   ( lcsh )
Genre: government publication (state, provincial, terriorial, dependent)   ( marcgt )
non-fiction   ( marcgt )
 Notes
Bibliography: Bibliography: p. 5.
Statement of Responsibility: by John W. Shortall III.
General Note: Partly funded by by the College of Engineering of the University of South Florida.
General Note: Grant NA80AA-D-00038.
General Note: "December 1982."
Funding: Technical paper (Florida Sea Grant College) ;
 Record Information
Bibliographic ID: UF00074959
Volume ID: VID00001
Source Institution: University of Florida
Holding Location: University of Florida
Rights Management: All rights reserved, Board of Trustees of the University of Florida
Resource Identifier: aleph - 000990251
oclc - 09569559
notis - AEW7163

Table of Contents
    Cover
        Cover
    Title Page
        Title Page
    Title Page
        Title Page
    Sailing fishing vessels engineering economic analysis: an interactive basic computer program
        Page 1
        Page 2
        Page 3
        Page 4
    References
        Page 5
    Appendix A
        Page 6
        Page 7
        Page 8
        Page 9
        Page 10
        Page 11
        Page 12
        Page 13
        Page 14
        Page 15
    Appendix B: Screen dump of program output
        Page 16
        Page 17
        Page 18
        Page 19
        Page 20
    Appendix C
        Page 21
        Page 22
        Page 23
        Page 24
        Page 25
        Page 26
    Back Cover
        Page 28
Full Text
\Oi
( 0'


1 1 1 1 1 1 1 1 1 1 1 11 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111
TECHNICAL PAPER NO.25






SAILING FISHING VESSELS
ENGINEERING ECONOMIC ANALYSIS
AN INTERACTIVE BASIC COMPUTER PROGRAM

JOHN W. SHORTALL,III


I11111


II


111111


FLORIDA SEA GRANT


1 1 1


I I I














SAILINu FISHING VESSELS ENGINEERING ECONOMIC ANALYSIS


AN INTERACTIVE BASIC COMPUTER PROGRAM

by

John W. Shortall III, NA


Technical Paper No. 25
December 1982






University of South Florida
College of Engineering
Tampa, Florida 33620










Technical Papers are duplicated in limited quantities for specialized
audiences requiring rapid access to information and may receive only limited
editing. This paper was compiled by the Florida Sea Grant College with
support from NOAA Office of Sea Grant, U.S. Department of Commerce, grant
number NA80AA-D-00038. It was published by the Marine Advisory Program
which functions as a component of the Florida Cooperative Extension Service,
John T. Woeste, Dean, in conducting Cooperative Extension work in Agricul-
ture, Home Economics, and Marine Sciences, State of Florida, U.S. Department
of Agriculture, U.S. Department of Commerce, and Boards of County Commissioners,
cooperating. Printed and distributed in furtherance of the Acts of Congress of
May 8 and June 14, 1914. The Florida Sea Grant College is an Equal Employment
Upportunity-Affirmative Action employer 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.
















ABSTRACT


This is the third in a series of Papers describing the

engineering, economic analysis of commercial fishing vessels

retrofitted with sails to effect fuel economies. This report

describes the computer Program used and Presents a listing

together with screen outputs and variable cross reference. The

computer Program is written for an APPle microcomputer but uses

an esPecially uniform variety of BASIC which should allow its

conversion to most other computers with a min ir.um of

translation.













No tet The names APPie and Apple II P'lus .:r coP-ri iht~ b-

APPle Com.ruter, Inc.












SAILING FISHING VESSELS ENGINEERING ECONOMIC ANALYSIS


AN INTERACTIVE BASIC COMPUTER PROGRAM




The College of Ensineering of the Universi.t of South

Florida has .a continuing research Programr concerned with the

comPuter-aided design of commercial sailing fishing vessels -

both as concerns retrofitting existing craft as well as the

design of new fishing boats optiiized for sail-assisted

ProPulsion. This research is siso funded by Fiorida See Grant

College, and the Program is ProJected for completion in

December, 1983. (1)



It maKes little sense to design sailin: rigs for

cor;mercial fishing vessels if there are not irm.iediate and clear

economic benefits to the fishing industry. To that endy much of

our worK in the initial wear was devoted to the PreParation of

a high interactive engineering economics commuter Fro;ra. to

ansisze various economic P-arrmeters and operationCa cond.i. Lion

to determine where sail retr ofit i ht see, reasonable

economicaiil to indicate where we should concentrate our design

efforts. Such a Frogrsm. was Prep-red bo Charles J KibWert Tor

the TeKtronix .4051 rsphics computer and he resorted his firs1,

results at S meeting of the Southeast Section of the Society of

Naval Architects and Marine Engineers.(2) Mr. Kibert is FPhD
candidate at the College of Engineerins of the Universit of
-1-









South Florida.


The author of this Paper Punched this Pro'c;ra'i~. into sn

Apple II Plus microcomputer and restructured it to Produce the

listing siven in Appendix A. This Program is highl Portable.

and only minor changes are needed for it to work successfully

on other computer systems. In most cases? line number one will

be the only Place where changes are required. This line sends

the cursor to the upper left of the screen, clears ll

variables to zero, ensures that the APple text screen is turned

on, and cleans up any garbage that riiaht reside in ereory. Line

10 is a Pahink subroutine which enables the user to clear the

screen when it is filled with data. Lines 20 to 28 contain a

subroutine offering the user screen or Printer output. Lines 30

to 34 hold a subroutine to turn the Printer off and return to

screen display The Progras has been rewritten in structured

format with inputs computations and outputs contained in seven

subroutines. There are numerous RE, (rE zr;i st teim.ents to

Permit the user tc modif-" the pro.r.a, esily*



App-endix B contains ~ screen dumrp of all p-ro'ra. output as

seen b' the userW Pase B-3 lists 17 fish-ins vessel economic

Psrsameters and 16 operat..ional f'aci..or The user can readila-;

change an' of these to suit his Prticular application a

there sre frequent Prom:.Ls to per:,it thisL e default values

shoun sre built in to the com-uter Pr-orsi,. a!nd in t.his cas

Pertain to Florida's snsEper-srouper industl- in tie nesi-r Gui

of Mex>ico. Oni Pae 3-4 si inputs are reusedd of the u=Er

which further lilots hi. to decrib. th situation whichh he












wishes to investigate. F'Pae B-5 sives the first Pa~e of the

life cycle costing for the exiaple fiven. in this Particular

casey fuel savings from having used sail assist amounted to

about 27% in dollar amounts or $ 322,929 over a 15 year Period.

The length of this Period can easily be changed by rodifyin.

the FOR...NEXT loops in subroutines 5000 and 5800. Arrais are

dimensioned for up to 20 years in Subroutine 1000.



On Pate B-6 is shoun the second Pate of the life c'cle

costing analysis. This displays the catch value for each of the

15 ears plus miscellaneous costs and the net return. The

negative figures on net return are chiefly due to the hiTh
costs of borrowing money at today's exorbitant rates. The user

can study an older vessel on which he has a lower nortase

interest rate by chanhinh the aPPropriate Param.eters shown on

psee B-3 during operation of the Prosrasm He can also use this

Proramr to study a conventional all ensine-powered fishing boat

by setting Percent sail Power eaual to zero, year sails

installed to 16, and sail area and n.st height to zero. F'Pe

B-7 illustrates the breaKdown of miscellaneouss costs sand ives

a recaPitulation of sailing fishin ,vessel characteristics



Appendix C is a cross raf'erence cf all va riables, s .ist.d

;by the a in Proara ;,ins ids 3.3" whici'i Biso was used ro;,

t.he APendix screen dur.s. Ech variable h is listed fol io;-cE-

by all line :numbers in which that variable occurs. This sho

assist those .ho wish to r odi- this por.Osi. or use it for

other aspiic-tions.















Our studies to date indicate that sail .assist for"

commercial fishing vessels can offer Provable savings when the

following conditions obtain:



1. Bridle clearance is not a Problem.



2. Ran'e to fishing location is sufficiently

far to be able to use sail assist for

a sizeable fraction of the Powerins tii.e.


The life cycle costing method is a valuable tool for the

analysis of Problems of this Kind and is fully described in

Reference (3). This Progras i. s readily be modified for

analysis of the engineering economics of other situations, and

the author weicomes corm;en ts on its rplication to other

engineering .Problems.


The author wishes to acK nrcwied:ie the f"ine orK' of Ch r.es

Kibert and iaso extends his thanks to Nelson Swartz 7 marine

economist of Texas A&M Universi t and the National Marine

Fisheries Service for examinina Charles' life cfa cle costinsi

mTethod and snalses,




















REFERENCES


1. "Coimmercial Sailino Fishins Vessels Co;p ,te-- .Aided

Design"; by John U. Shortail III; SNAME Fishing Industry Eners~

Conservation Conferencei Seattle, WA; October 26-27, 1931.



2+ "Comriuter Anaisis of the Economics of S:il Assisted

Comercial Fishins Vesseis"; by Charles J. Kibert; Februasr 20,

19831 SNAME Southeast Meetinig Tam., Florida.



3. "The Economics of Sail Power for SrnIsa, er-. rouFer Boats of

the Florida West Coast Fishing FileetL." b= Charles J,* ibertd

Florida See Grant College Sesptesberr i931,









APPENDIX A
A-1

1 HOME : CLEAR : TEXT; PO KE 216 ,0; LET A = .FRE ,(0) GOTO 100
10 VTAB 24: HTAB 10: INPUT PRESS RETURN TO CONTINUE "iATi: HOME RETURN

20 VTAB 24: INPUT "TYPE P FOR PRINTER OR S FOR SCREEN: Pl
22 IF Ps < > "P" THEN 26
24 PR* 1
26 HOME
28 RETURN
30 PR# 0
32 PRINT
34 RETURN
100 VTAB 8
110 PRINT "SAIL RETROFIT ECONOMIC ANALYSIS
120 PRINT
130 PRINT TAB( 5);"BY: CHARLES J.KIBERT"
140 PRINT
150 PRINT "APPLE MODIFICATION: J.U.SHORTALL III NA
160 PRINT
170 PRINT JANUARY, 1932"
180 PRINT
182 PRINT
184 PRINT 10.5K BYTES MEMORY."
186 PRINT
190 PRINT TAB( 10);"ALL RIGHTS RESERVED"
200 PRINT
210 PRINT "UNIVERSITY OF SOUTH FLORIDA
220 PRINT "COLLEGE OF ENGINEERING"
230 PRINT TAMPA FLORIDA 33620"
235 PRINT
240 GOSUB 10
250 VTAB 5
260 PRINT "THIS PROGRAM PROVIDES THE ANALYST
262 PRINT 'OR DESIGNER WITH A TOOL TO CONDUCT"
264 PRINT "A THOROUGH ENGINEERING ECONOMIC"
266 PRINT "ANALYSIS OF THE FEASIiLITY OF''
268 PRINT "RETROFITTING F FISHING VEELS WITH"
270 PRINT "SAILS TO SUPP NT EXITING
272 PRINT "ENGINE PER WITH THAT OF THE W...,-
270 PRINT ."ALL -. ARANETERS,.. I EFAULi .
276 PRINT "UICH CAN BE CHANE THE DESI
280 GOSUS 0
730 REMAULT PARA TEER" CAP'7AL COST AMD ..LA.N R.AFESI


320 GSUB 200
330 RE 4 ...FUK DESIGN R I... -;
340 GOSU ':' 3000


370 "RE : ...LIE C'L .-' ....: ......J .AT. i ......i-
390 REM .. .-E ON 7










A-1 (Cont'd)


400 SUGO"B 500
450 FE :
500 ,.S 5
600 V'T A 33
6130 P il .. ::: 14 '' ,*- 'G .f -v ;4 8( n in s W "N 3 Z B :E i '
710 PRIN
720 I2N, PUT 7' 3 *! T L. F'' ""Y.. :4 A ...
730 :'ii :.
999 EH



A-2

1000 REM .. INITIALIZtAT'IONS
1010 DIM B( 20 ) C( 20 ) D' 20 ) E( 20 ). F( 20 ) C 20 H( 20 )K( 2 L( 20) 2.0 P
0)v Q( 20 ) R( 20 )r ( 20 ) S( 20 ) T 20 U20
1020 DIM X(15)5Y(15),Z( 5)V(50)
1030 LET R( 1) = 400
1040 LET R(2) = 500
1050 LET R(3) = 6
1060 LET R(4) = 3
1070 LET- R( 5) = 50
1080 LET R(6) = 200
1090 LET R( 7) = 10
1100 LET R(8) = 15
1110 LET R(9) = 1.15
S1120 LET R 10 ) = 11000
1130 LET R(:11 = 10
1140 LET R(12) = 13
1150 LET R(13) = 15
1160 LET R(14) = 3
1170 LET R(15) = 15
1180 LET R( 16) = 8.5
1190 LET R(17) = 5
1200 REM ... INTIA:LIE TOTA.LIZERS
1210 LET JS = 0
1220 LET K3 = 0
1230 LET LS = 0
1240 LET MS = 0
1250 LET NS = 0
1260 LET PS = 0
1270 LET QS = 0
1280 LET R3 = 0
1290 LET S3 = 0
1300 LET T3 = 0
1310 LET US = 0
1320 RETURN









A-3


2000 REM ...DEFAULT VALUES FOR CAPITAL AND INFLATION
2020 PRINT : PRINT
2030 PRINT "FISHING VESSEL AND ECONOMIC PARAMETERS"
2040 PRINT
2050 PRINT "1. COST OF FISHING VESSELs./TON: "iR(l)
2060 PRINT "2. ENGINE REPLACEMENT COST, $, "'R(2)
2070 PRINT "3. ENGINE REBUILD COST $/HP: ";R(3)
2080 PRINT "4. COST OF SAILS, $/SQ.FT.t "iR(4)
2090 PRINT "5* COST MAST & RIGGING, $/FT.t "iR(5)
2100 PRINT "6. COST SUPPORT STRUCTURE, ':$ "'R(6)
2110 PRINT "7. SALVAGE VALUE VESSEL, % OF COST: "'R(7)
2120 PRINT "8. VESSEL LIFETIME, YEARS: "R';RS)
2130 PRINT "9. FUEL COSTS, $/GAL. ";R'9)
2140 PRINT "10. COMMO+NAVIG.GEAR COST, $t R. 10)
2150 PRINT "11i. DOWN PAYMENT, %: "'R(11)
2160 PRINT "12. MORTGAGE RATE, %: "'R(12)
2170 PRINT "13. MORTGAGE TERM, YEARS: "'R(13)
2180 PRINT '"14. GENERAL INFLATION RATE, Z: "' R(14)
.2190 PRINT "15. FUEL INFLATION RATE, %; "'*R(15)
2200 PRINT "16. DISCOUNT RATE, %; "iR(16)
2210 PRINT "17, INSURANCE & MAINTENANCE, %: "; R(17)
2220 GOSUB 30: REM ...PRINTER OFF
2230 PRINT
2240 PRINT "WANT TO CHANGE ANY ABOVE? Y/N: "*
2250 INPUT As
2260 IF A$ = 'N" THEN 2380
2270 PRINT "WHICH PARAMETER DO YOU WISH TO CHANGE?"
2280 INPUT "TYPE NUMBER OF PARAMETER: "5S9
2290 INPUT "TYPE NEW VALUE: "T'9
2300 LET- R(S9 ) = 9
2310 PRINT
2320 INPUT "ANY MORE CHANGES? Y/Nt ".A'
2330 IF As = "N" TH'EN 2380
2340 PRINT
2350 COSUB 10
2360 GOTO 2030
2370 REM +..
2380 INPUT "UANT LIST FINAL PARAMETERS? Y/Nc ",A
2390 IF A: = "N" THEN 2440
2400 PRINT
2410 GOSUB 20
2420 GOTO 2030
2430 GOSUB 30
2440 GOSUB 10
2450 -RET',URN












3000
3010
3020
3030
3040
3050
3060
3070
3080
3090
3100
3110

3120
3130
3140
3150
.3160
3170
3180
3190
3200
3210
3220
3230
3240
3250
3260
3270
3230
3290
3300
3310
3320
3330
3340


REM ...INPUTS
VTAB 8
PRINT TAB( 8 )"OPERATIOrNAL INPUTS
PRINT "FOR 15 YEAR LIFE CYCLE COSTING"
PRINT
INPUT "GIVE VESSEL OVERALL LENGTH PRINT
INPUT "GIVE VESSEL DISPLACEMENT : '.52
PRINT
INPUT "IN WHICH YEAR WILL SAILS BE INSTALLED: "-C2
PRINT
PRINT "OVER LIFETIME OF VESSEL AFTER SAIL INSTALLATI ON U'HAT UILL BE
THE AVERAGE YEAR-ROUND, PERCENT OF POWER SUPPLIED BY UIND: "
INPUT D2
PRINT
INPUT "WHAT IS THE SAIL AREA? : ";Z3
PRINT
INPUT "WHAT IS THE MAST HEIGHT? : "'VS
GOSUB 10
LET B(1) = 400
LET B(2) = 3000
LET B(3) = 14
LET B(4) = 18
LET B(5) = .05
LET B(6) = 9
LET B(7) = 1.1
LET B(8) = 3000
LET ,(9 ) =. 0175
LET B(10) = 350
LET (11 ) = A 1)
LET B(12) = B2
LET .(13) ( = C2
LET B(i) 1 = -
LET ( 15) = S
LET ,16) = VS
RETURN











4000 REM ...DEFAULT VALUES FOR O'PERATINCOSTS
4010 VTAB 8
4020 PRINT "NEXT WILL BE SUMMARIZED A LIST OF OPERATIONAL PARAMETERS"
4050 GOSUB 20
4055 PRINT : PRINT
4060 PRINT "THE FOLLOWING ARE OPERATIONAL DEFAULT"
4070 PRINT "VALUES AND DESCRIER ANNUAL OPERATING"
4080 PRINT "CHARACTERISTICS OF THE SAILING FISHING"
4090 PRINT "VESSEL FOR LIFE CYCLE COST ANALYSIS"
4110 PRINT "1. RANGE TO FISHING SITE ",B(i)
4120 PRINT "2. AMOUNT ICE USED PER TRIP! "B(2)
4130 PRINT "3. DURATION OF TRIP ., '. "'3
4140 PRINT "4. NUMBER OF ANNUAL TRIPS: "B '4)
4150 PRINT "5. SPEC. FUEL. CONSUMPT . "iBI)
4160 PRINT "6. VESSEL CRUISING SPEED ' iB(6)
4170 PRINT "7. CATCH VALUE 7. )
4180 PRINT "S. AVERAGE CATCH SIZE .: 'iB3;
4190 PRINT "9. ICE COST <$/LB.>: '"B(9)
4200 PRINT "10. ENGINE SIZE 4210 PRINT "I. VESSEL LENGTH 4220 PRINT "12. VESSEL DISPLACEMENT :
4230 PRINT "13. YEAR SAILS INSTALLED: "(13)
4240 PRINT "14. PERCENT OF SAIL POUER: B(14)
4250 PRINT "15. SAIL AREA 4260 PRINT "16. MAST HEIGHT -': 'B(16)
4270 GOSUB 30
4280 INPUT "WANT TO CHANGE ANY ABOVE? Y/N: ";Alt
4290 IF A$ = "N" T HEN 4350
4300 INPUT "TY:E NUMBER OF PARAM ENTER T CH AN GE "S
4310 INPUT "TY PE `'-E VALUE! ".F9
422 LET C2 = 13l
432 1T 1 3 "'" 'J:.



r .,: ... .. -- -. i : .
43'2 LET '':" = 3" '

.4 30. "



4990 -r .
.4 --. r ,. .. .




".-- .2 :. ... ". -.;
4400i .... :-""' ':


-10-








A-6


5000
5010
5020
5030
5040
5050
5060
5070
5080
5090
5100
5110
5115
5120
5140
5150

.5170
5180
5190
5200
5210
5220
5230
5240
5250
5260
5270

52900
5300


REM ...LIFE CYCLE COMPUTATIONS AND CUTPUTS
REM ... CALCULATE ANNUAL FUEL CONSUMPTION
LET i3" = ) A 10) 2 (1 / B \(6) "B 6
LET R(11) = R( 11) / 100
LET R(12) = R(12) / 100
LET 14 ) = R('14) / 100
LET R( 15) = R( 15) / 100
LET R(16) = R( 16) / 100
LET R(17) = R(17) / 100
LET C6 = B2 R(< I)
REIM ...BEGIN LOOP AND LIFE CYCLE COSTING
PRINT "LIFE CYCLE DATA PAGE' NE"
GOSUS 20
PRINT LIFE CYCLE COSTING OrVER VESSEL LIFETIME"
PRINT TAB( 8 ) "'0ORTCAGE'" TAB, 27 ) ;"FUEL" '
PRINT "YR"; TAB& 3);"INTEREST" TAB 22); COST"; TAB( 31 ); SAVINGS"

FOR U = 1 TO R(S)
T(W) = 0
NEXT U
REM ...DOWN PAYMENT
LET A4 = (32 : R() R( (10 ) : (11i )
REM .,.MORTGAGE PAYMENT
LET B4 = (- 2 R(i1 + R( 10 ) ) 1 R
LET N3 = R(13)
LET D3 = R('12)
LET 13 = 0
GOSUB 7000
LET I6 = 34: / "
LET C4 = ..
REh +.CALCJ LATION AL 3CHEME IN FOLLOI..ui L.OO rD iCRrt. ARRAYS.


5310 R ,ANNUAL -L C0T == !...................4 .


5330 IR* .V A E ......./... .--
5320 REl ;,2 "ANNUA.L VALUE O "I.-l C T:C- T -.N.
5330 REM: .. -,ALUE. SIZE . CATC..-i /L3. Tl.i., .--AR ,,( i AND -
5340 REM ...3 ANNUAL INTER ST:icRTGAG E BALANCE .A INTEREST ATE- h tI A
ND M8

5360 REM .. ..i .L .. .. .3 ... ... ... .. i C.. -. .

5380 REM ... I EXPENGES.N P, ENGINE REL. E
GI'NE R E UIU! D + -7 1, ) e;D TJ
5400 R M ": 2 A LA 0 C ,i" ED -,'" ..... '" .. 1" N I.. -

5430 RM S E 1 N 1 T L1 F C, LE







A-7

5440 FOR I = 1 TO R(3)
5450 LET J(I) = A3 R(9)
5460 LET J3 = 8J + J(I)
5470 LET M(I ) = C4 : R(12)
5480 LET M(I ) = INT (M I) I 100 + .5) / 100
5490 LET M8 = MS + M I()
5500 LET L(I ) = K6
5510 LET L(I ) = INT (L( I) 10 0 + .5) / 100
5520 LET LS = L8 + L(I)
5530 LET C4 = C4 L(I) + M(I)
5540 IF I < C2 THEN- 5600
5550 LET P(I) = J(I ) D2 / 100
5560 LET J( I) = INT (J(I) : 100 + .5) / 100
5570 LET P8 = P8 + P(I)
5530 LET P(I) = INT (P'I) 100 + .5) / 100
5590 GOTO 5610
.5600 P(I ) = 0
5610 PRINT I; TAB( 6))M( I) TAB( 18).J( ); TAB( 30)iP(I)
5620 LET R(9) = R(9) (i + R(14))
5630 NEXT I
5650 LET L8 = INT (LS 100 + .5 / 100
5660 LET M9 = INT (MS *: 100 + .5) / 100
5670 LET JS = INT (WJ8 :: 100 + .5) / 100
5680 LET P8 = INT (PS 100 + .5) / 100
5690 PRINT "SUM: "i TAB( 6),M8 TAB( 18);J18 TAB( 30);FP
5700 PRINT
5710 PRINT "MORTGAGE PAYMENT/YR. : "L(i)
5720 PRINT "TOTAL MORTGAGE PAYMENT= L8
5799 RETURN


-12-






A-8


5800
5805
5810
5820
5830
5840
5850
5860
5865
5867
5870
5880
5890
5900
5910
5920
5930
.5940
5950
5960
5970
5980
5990
6000
6010
6020
6030
6040
6050
6060
6070
6030
6090
61 00
6110
6120
6130
6140
6150
6160
6170
6130
6190
6. 2 i ')
S .- .1
6220
6230


6240
6270
6272

623:0


= B(8) B(7) B( 4)
KS + K( )
= INT (K I) 100 + .5) / 100
INT !(K8 100 + .5) / 100
= (B2 R(1) + R(10)) R( 17)
S3 + S( )
= INT (S(I ). 100 + .5) / 100
INT (S38 100 + .5) / 100
= B(2) B(4) 4 B(9)
U + U( I)
THEN 6070
= (B2 R(1 ) + R(10)) R(11)
T3 + T(I)


LET K( I)
LET K8 =
LET K(I )
LET KS =
LET S( I)
LET SS =
LET S(I)
LET SS =
LET U( I)
LET US =
IF I > 1
LET T( I)
LET T8 =


IF I :: 5 THEN, 6100
LET T( I) = B(10) .i R 3
LET T3 = T' + T( )

LET T( ) = 3( 10) : R(3 )
i i i "- i. ..
LET T3 = i" T(i :
IF I < 8 THEN 616-0
LET T(I ) R(2)
LT T T S T:I
IF T < > 15 THEN 6190
LET T(i = R:) .7 R 3 2 0
LET TS = T'3 + T
iF i < 5 HEN 220
LET T(: ) = ?, ) TR 10




LFT : 2 T 1

. i 1 :: .


LET 7 1 R" =


-13-


REM ... SECOND DATA CALCULATION AND OUTPUT
GOSUB 30
PRINT "LIFE CYCLE COSTING PAGE TUO"
GOSUB 20
PRINT
PRINT "MISC.COSTS = INSURANCE, MAINTENANCE",
PRINT "ICE, ENGINE REBUILD & REPLACE. ETC."
PRINT : PRINT
PRINT "LIFE CYCLE COSTING PAGE TO'"
PRINT
PRINT "YR."; TAB( 8) "CATCH"; TAB( 22 )"hISC. TAB( 33)i"NET"
PRINT TAB( 3)?"VALUE"; TAB( 22) "COSTS"' TAB( 31)W"RETURN"
FOR I = 1 TO R(3)
LET T(I) = .0
NEXT I
REM ...START SECOND LIFE CYCLE LOOP
FOR I = 1 TO R(S)










62385
6290
6300
6310
6320
6330
6340
6350
6360
6370
6375
6378
6380
6390
6400
6410
6420
S6430
6440
6450
6460
6480
6490
6500
6510
6520
6530
6540
6550
6560
6580
6610
6620
6630
6640
6650
6660
6670
6630

6700
6710
6 7 2 CD
6730

6750
6760
6770
6730
6790
6800
6810
6320


(1 +
(1 -+
(1 +
(1 +
* (1
( 1 +


(1 +
(1i +


( 15))
R(14))
R( 14))

+ R( 14))
R( 14))
+ R(14))
R( 14))
R(' 14 ))
R( 14))


LET R(9) = R(9) *
LET R(3) = R(3) *
LET R(2) = R(2) *
LET B(9) = B(9) *
LET R(17) = R(17)
LET R(4) = R(4) *
LET R(10) = R(10)
LET R(4) = R(4) *
LET R(5) = R(5) )
LET R(6) = R(6) *
NEXT I
FOR I = 1 TO R(8)
LET V(I ) = K(I ) +


LET R8 = R8 + V(I)
LET V(I) = INT (V(i) 100 + .5) / 10
LET S(I) = INT (S(I) 100 + .5) / 10
LET TI ) = INT (T(I) 100 + .5) / 10
LET U( I) = INT (U(I) 100 + .5) / 10
LET K(I) = INT (K I) 100 + .5) / 10
PRINT 1; TAB( 6)K(I ); TAB( 13)bS( I) +
NEXT I
REM ...SUi- INSURANCE & MAINT.ICE COST
LET E = 38 + T8 + US
LET E = INT (E : 100 + .5) / 100
PRINT "SUM: '" TAB( 5)iK8; TAB( 17);E;
GOSUB 30
GOSUB 10
VTAB S


PRINT
GOSU
PR I NT
PRINT
PRINT

PRINT
PRINT
PRINT

PRINT
PRINT
PRINT
Fr T 7 T




p : R; i N i"




7F-- T
GCSUE


0
0
0
0
0


T(I ) + U( ); TAS( 30); I )

+ MISC.CCST =E


TAB( 29)iRS
i -iJr


'MISCELLANEOUS COST ITEMIZATION"
20.
TAB( 3) "MISCELLANEOUS COSTS"
TAB( 10 MISCELLANEOUSUS COSTS"

"I ENGINE REBUILD YEAR S13W"
" i
"2. ENGIQ!E REPIACEMEWT :YEAR 8.
''3. COMMO/NAW EAR REPLACE YEAR i510"
"4. DOT N PAYE,4T :YEAR i."
5". SALVAGE VALUE YEAR 15.
"6. SAIL COSTS YEAR "C2
"7. TOTAL INSUR. T .... .B..
"G. TOTAL ICE COS'' t* 0i3
"?. TOTAL OTHER HISC.COSTS -it "; TS"
r, '.Ni


"00 Q r", "" D 1, = WEAR! "Q"

A, ,- i: F :; = I ,FT "
1"A I HT= F

10


. ; .: -r 4" :"
6999? :ET,.N

(Cont'd)
-14-


P(I ) ;J(I) S( ) U(.I ) T ) 4










A-9 (Cont'd)


70i10 :7 33 = 13 TF::N 7040
7020 L: T F3 = 1 / ;i *- 13) (I1 ((1 -+ I ; )
7030 -;TO O'050
7040 LET' 1F ^3 / (;1- 13)
7050 Ri- T
C. URIN


4 7, -


-15-











APPENDIX B

B-1


SCREEN DUMP OF PROGRAM OUTPUT




SAIL RETROFIT ECONOMIC ANALYSIS

BY: CHARLES J.KIBERT

APPLE MODIFICATION: J.W.SHORTALL IIII NA


JANUARY, 1982


iO.5K BYTES MEMORY.

ALL RIGHTS RESERVED

UNIVERSITY OF SOUTH FLORIDA
COLLEGE OF ENGINEERING
TAMPAR FLORIDA 33620

-RESS RETURN TO CONTINUE
1-" "0 i .1 +. .4 It ,.t .. '.'


-16-



















THIS PROGRAM PROVIDES THE ANALYST
OR DESIGNER WITH A TOOL TO CONDUCT
A THOROUGH ENGINEERING ECONOMIC
ANALYSIS OF THE FEASIBILITY OF
RETROFITTING FISHING VESSELS WITH
SAILS TO SUPPLEMENT EXISTING DIESEL
ENGINE POWER WITH THAT OF THE WIND.
ALL PARAMETERS HAVE DEFAULT VALUES
.WHICH CAN BE CHANGED BY THE DESIGNER.










PRESS RETURN TO CONTINUE:


-17-







B-3


1. COST 01F FISHING VESSEL E' :/TNi 4100
2. ENGINE REPLACEMENT COST, i: 5000
3. ENGINE REBUILD COST, /rHPF 6
4, COST OF SAILS, ;/SQ.FT.: 3
5. COST MAST & RIGGING, S/FT 50
6. COST SUPPORT STRUCTURE, $: 300
7. SALVAGE VALUE VESSEL. OF COST: 10
8. VESSEL LIFETIMEm YEARS' 15
9. FUEL COSTS, $/GAL,: 1.15
10. COMMO+NAVIG.GEAR COST, $1 11000
11. DOWN PAYMENT, %;: 10
12. MORTGAGE RATE, %: 13
13. MORTGAGE TERM, YEARS: 15
14. GENERAL INFLATION RATEy ;%: 8
15. FUEL INFLATION RATE, %;: 15
16. DISCOUNT RATE %: 3.5
17. INSURANCE & MAINTENANCE, 5







THE FOLLOWING ARE OPERATIONAL DEFAULT
VALUES AND DESCRIBE ANNUAL OPERATING
CHARACTERISTICS OF THE SAILING FISHING
VESSEL FOR LIFE CYCLE COST ANALYSIS
1. RANGE TO FISHING SITE 400
2. AMOUNT ICE USED ': T:: 3000
3. DURATION OF TRIP 4. NUMBER OF ANNUAL TRIPS; 0.
5. SPEC.FUEL.CONSUMPT, . 05
6. VESSEL CRUISING SPEED NST 1 9
7. CATCH UALUE '/LB:> >
S. AVERmGE CATCH SIZE QLS&; 3000
9. ICE COST .,: .: 75
10. ENGINE SIZE < > 350
11. VESSEL LENGT- -' F ; -
12. VESSEL DISPLACEMENT tongG>$ -3
13. YEAR SAILS INSTALLED: ;
14. PERCENT OF SAi'L ; .E.i. .:)
15, 3A.IL ".-A A0
16, iAS HEr -'T


-18-












OPERATIONAL INPUTS
FOR 15 YEAR LIFE CYCLE COSTING

GIVE VESSEL OVERALL LENGTH.
GIVE VESSEL DISPLACEMENT : 98

IN WHICH YEAR WILL SAILS BE INSTALLED: 3


OVER LIFETIME OF VESSEL AFTER SAIL INSTA
LLATION WHAT WILL BE THE AVERAGE, YEAR-R
OUNDI PERCENT OF POWER SUPPLIED BY WIND:
?40

WHAT IS THE SAIL AREA? : 2000

WHAT IS THE MAST HEIGHT? : 60
PRESS RETURN TO CONTINUE:






B-5


MORTGAGE
INTEREST
48297.6
47102.63
45752.32
44226.46
42502.24
40553.88
38352.22
35864.36
33053.07
29876.31
26286.57
22230.17
17646.43
12466.31
6613.84
490824.91


COST
32200
34776
37558.08
40562.73
43807.74
47312.36
51097.35
55185.14
59599.95
64367.95
69517.38
75078.73
81085.08
87571.88
94577.63
874298.07


FUEL


15023.23
16225.09
17523.1
18924.95
20438.94
22074.06
23339.93

27806.95
30031.51
32434.03
35028.75
37831.05
322928.33


MORTGAGE PAYMENT/YR.: 57439.67
TOTAL MORTGAGE PAYMENT= 362345.05


-19-


YR
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
SUM:















LIFE CYCLE COSTING PAGE TWO


CATCH
VALUE
59400
64152
69284.16
74826.89
30813.04
87278.09
94260.33
101301.16
109945.25
118740.37
123240.14
138499.36
149579.31
161545.65
174469.3
1612335.57


MISC.
COSTS
62365
23359.32
37373.74
27370.82
47458.3
32094.73
34764.9
46234.37
40813.59
66235.92
47976.51
52036.12
61745.52
61275.27
26348.73
668463.39


NET
RETURN
-407185
-365503.32
-362649.43
-348401.57
-364449.9
-344724.04
-342682.98
-349064.8
-338153.31
-357635.832
-332966.3
-330104.03
-332337.26
-323792.75
'-280146.06
-5179797.07


PRESS RETURN TO CONTINUE:


B-7


MISCELLANEOUS COSTS
MISCELLANEOUS COSTS


ENGINE REBUILD
ENGINE REPLACEMENT
COMMO/NAV.GEAR REPLACE
DOWN PAYMENT
SALVAGE VALUE
SAIL COSTS
TOTAL INSUR.& 'AINT.
TOTAL ICE COST
TOTAL OTHER MISC.COSTS


:YEAR 5,13.
:YEAR 3.
:YEAR 5,10.
:YEAR 1.
:YEAR 15.
:YEAR 3
:$ 575440.65
:$ 25658.7477
!$ 67363.9836


SAILING FISHING VESSEL CHARACTERISTICS

LENGTH OVERALL= 68 FT.
DISPLACEiMENT= 98 TONS
SAILS INSTALLED IN YEAR: 3
PERCENT SAIL POWER= 40S
SAIL AREA= 2000 SQ.FT.
MAST HEIGHT= 60 FT.


PRESS RETURN TO CONTINUE
1,~,~ ir 1 7*.0 ,O., INUE;


YR.

1
2
3
4
5
6
7
8
3
.9
10
11
12
13
14
15
SUM:










APPENDIX C


C-1


; THE VARIABLE CROSS REFERENCE U.

PROGRAM NAME.. .ECNFISH:
DATE...01/19/82

A
1

A$
10 720 730 2250 2260 2320 23 233 0 23 2390 4280 4290 4330 4-340 4350 4360

A(
3050 3280 6750

A3
5020 5450

A4
5210

B(
1010 3130 3190 3200 3210" 3220,, 30 30 30 3260 3270 3280 3290 3300 3310
3320 3330 4110 4120 4130 4140 4150 4160 4170 4180 4190 4200 4210 4220 4230
4240 4250 4260 4320 4321 4322 4323 4324 4325 020 5020 5020 5020 5020 594
5940 5940 6020 6020 6020 6080 6110 6280 6280 6310 6310


00
3070 3290 4321


5090 5210 5230 5980 6050 6170 6760


B4
5230 5280 5290 6380

C(
1010

C2
...)90 3300 4322 55"0 62:50 o272 6. S 677.


C4
52"0 ':70 50 '5

C6
5090

D(
1010
:[. U,."
-I J.f 1'-


'D2
3120 3310 4-23 5550 670


(Continued)


-21-












C-1 (Cont'd)






S ', 6500 .-:. :


D3

L.)


6490

E(
I v .i.


-22-












1010

OS
Q(8
1.270

R(
:1.010)
1170
2170
5070
5470
6170
6285
6340


1030
1180
2180
5080
5620
6170
6290
6340


1040 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160
1190 2050 2060 2070 2030 2090 2100 2110 2120 2130 2140 2150 2160
2190 2200 2210 2300 5030 5030 5040 5040 5050 5050 5060 5060 5070
5080 5090 5170 5210 5210 5210 5230 5230 5230 5240 5250 5440 5450
5620 5620 590 5930 5980 5930 5980 6050 6050 650 6050 6080 6110 6140
6200 6210 6230 6240 6260 6260 6260 6270 6270 6270 6280 6285 6285
6290 6290 6300 6300 6300 6310 6320 6320 6320 6330 6330 6330 6340
6350 6350 6350 6360 6360 6360 6370 6370 6370 6378


1280 6390 6390 6510

S(
:.010 5980 5990 6000 6000 6380 6410 6410 6450

S3
1290 5990 5990 6010 6010 6490 6690

S9
2280 2300

T(
1010 5180 5900 6050 6060 6030 6090 6110 6120 6140 6150 6170 6180 6200 6200
6230 6230 6260 6260 6380 6420 6420 6450

T3
1300 6060 6060 6090 6090 6120 6120 6150 61:50 610 6.180 6210 "210 6240 62 40
6270 6270 6490 6710

T9
2290 2300

U(
1010 6020 6030 6330 6430 6430 6450

US
:1310 6030 3600 66+90 670.::





.3160 "3330 ::25 626.0 6270 "
,. -Vt,'j ;:. ;) ) :,i: ..,


(Continued)


-23-











C-2 (Cont'd)



5180 5190











3320 4,24 626' .i270 b7?0


u
51:70

X(
1020

Y<
:i. 020

Z(
:i.020

Z Ii,
3.140


-24-












F O
4300 4320

F9
4310 4320

G(


-I(
1010


]:
5440 5450 5460
5550 5560 5560
5930 5940 5950
6080 6090 6100
6230 6230 6250
6380 6390 6400
6450 6450 6450

I3
5260 7010 7020

Ti
1010 5450 5460

J3
1210 5460 5460

K(
1010 5940 5950

K6
-5230 5500

KS
1220 5950 5950

L(
1010 5500 5510

LS
1230 5E20 5=20

M(
1010 5470 f4:0O

n8
:1.240 5491.;'" 5490


5470
5570
5960
6110
6260
6400
6460


5480
5580
5960
6120
6260
6410


5480 5490 5500
5580 5600 5610
5980 5990 6000
6130 6140 6150
6272 6274 6375
6410 6420 6420


5510
5610
6000
6160
6378
6430


5510 5520 5530 30 50 540 5550
5610 5610 5630 5890 5900 5910
6020 6030 6040 6050 6060 6070
6170 6180 6190 6200 6200 6220
6380 6380 6330 6330 6330 6330
6430 6440 6440 6450 6450 6450


7020 7040


5550 5560 5560 5610 6380


5670 5670 5690


5960 5960 6380 6440 6440 6450


5510 5520 :"5530 570


(Continued)


-25-


5480 54-9' 0 5530 56i0
:: ~ ~ ; ,:.- ', ... -"'?.











C-3 (Cont'd)


HN,3
"5240 7020 ; "-0

N3

P I .-
F' 5-7


I.f -- *..-i'. .. ..... ..
P(


PS
12 570 5570 5 0 ?0
1* '-* *:'' .. ... .... K -5 "


-26-













































































SsA1 '7




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