Jump to content



Photo
- - - - -

Woodward 2301 Diagnostic Governor Program

woodward governor basic ship engine control disgnostic

  • Please log in to reply
No replies to this topic

#1 marcobiaggini

marcobiaggini

    Newbie

  • Members
  • Pip
  • 5 posts
  • Gender:Male
  • Location:ITALY
  • Interests:Marine engines, Programming on handel devices , Blackberry devices

  • Calculators:
    PB700
    PB2000C
    Z1- GR
    BLACKBERRY PLAYBOOK
    BLACKBERRY PASSPORT

Posted 09 December 2015 - 01:58 PM

Good morning again! ,

 

Do you know that the seafer's work 4 months on board and after stay 2 month at home on Holiday ? Now you know why i've much time to spend at home!

 

Here i've prepared my personal diagnostic plan about Woodward governor 2301 , it's possible to have problem on engine load and RPM control more often it there are more engine working on parallel, so i've study the disgnostic method and i've put all solutions on my CASIO PB 700!

 

WARNING! this is an example solution, checked only with few Caterpillar engine model, don't take it as bible..may be your plant it's different.

Call Always specialized technicians for service!

 

as you see i joke with the delivery date......

 

for private message : officinebiaggini@libero.it

 

 

 

 

 

 

 

WOODWARD 2301

 

10 CLS:BEEP:LOCATE 2,0:PRINT”W O O D W A R D”

15 CLEAR

20 LOCATE 0,1:PRINT “2301 governor v.1”

25 LOCATE 13,2:PRINT CHR$(64)+”1982”

30 LOCATE 0,3:INPUT”start Y/N”;A$

40 IF A$=”S” THEN GOTO 100 ELSE END

 

100 CLS

110 LOCATE 16,0:PRINT”MENU”

120 LOCATE 1,1:PRINT”1-TROUBLESHOOT”

130

140 LOCATE 1,3:INPUT”2-SYSTEM OV.VIEW”;B$

150 IF B$=”1”THEN GOTO 300

160

170 IF B$=”2”THEN GOTO 600 ELSE BEEP:GOTO 10

300 REM TRUBLESHOOT

310 CLS:LOCATE 5,0:PRINT”TRUBLESHOOT”

320 LOCATE 0,1:PRINT “Whith engine stopped”

325 LOCATE 0,2:PRINT”Check parameters”

330 LOCATE 0,3:INPUT”Ready Y/N”;A$

335 IF A$=”Y” THEN GOTO 340 ELSE END

340 REM PICKUP

345 GOSUB 2000

350 LOCATE 0,3:INPUT”PkUP clr.”;PC

355 GOSUB 1000

360 GOSUB 3000

365 DRAW(110,17)-(110,12):DRAW(109,16):DRAW(111,16)' FRECCIA SUL MORSETTO

370 LOCATE 0,3:INPUT”18/19 PkUP Ohm”;PO

375 GOSUB 1000

380 GOSUB 3000

385 DRAW(101,17)-(101,12):DRAW(100,16):DRAW(102,16) ' POS. FRECCIA

390 LOCATE 0,3:INPUT”16/17 ActCOIL Ohm”;AR

395 GOSUB 4000

400 LOCATE 0,3:INPUT”Turn Opened”;NV

405 GOSUB 1000

410 GOSUB 3000

415 DRAW(75,17)-(75,12):DRAW(74,16):DRAW(76,16) ' POS. FRECCIA

420 LOCATE 0,3:INPUT”12+13-PowerSource “;DC

425 GOSUB 1000

430 GOSUB 3000

435 DRAW(101,17)-(101,12):DRAW(100,16):DRAW(102,16) ' POS. FRECCIA

440  LOCATE 0,3:INPUT”16/17 power DC”;AP

445  CLS:BEEP:LOCATE 5,0:PRINT”RUN TESTING”

450 LOCATE 0,1:PRINT”Start engine and”

455 LOCATE 0,2:PRINT”wait 20 min”

460 GOSUB 3100

465 GOSUB 1000

470 DRAW(15,4)-(15,14):DRAW(15,4)-(12,7):DRAW(15,4)-(18,7)

480 LOCATE0,3:INTPUT”Check RATED SPEED”;RS$

485 CLS:LOCATE0,0:PRINT”Prepare to check”

490 LOCATE 0,1:PRINT”LOAD SIGNAL”

495 GOSUB 3100

500 GOSUB 1500

505 LOCATE 18,1:PRINT CHR$(161):LOCATE 18,2:PRINT CHR$(161)

510 DRAW (138,14)-(144,14):DRAW(143,13)-(141,11):DRAW(143,15)-(141,17)

515 LOCATE 0,3:INPUT”Load signal DC”;LS

520 GOTO 600

600 REM SYSTEM OVERVIEW

605 CLS:BEEP1:LOCATE 2,0:PRINT”SYSTEM OVERVIEW”

610 LOCATE 0,2:PRINT”Loading data”

615 FOR I=0 TO 15

620 FOR J=1 TO 10   ' TAKE TIME

625 NEXT J

630 LOCATE I,3:PRINT CHR$(142); '  “ i”  not 1

635 NEXT I

640 DIM O$(8)*5  ' output valiable “O”, 1 more available'

645 READ O$(0),O$(1),O$(2),O$(3).....O$(8)

650 DATA “OK”,”k”,”k”,”k”,”k”,”k”,”k”,”k”,”k”

655 IF PC<0.56 THEN O$(1)=”!”:IF PC >0.8 THEN O$(1)=”!”

660 IF PO<180 THEN O$(2)=”!”:IF PO>210 THEN O$(2)=”!”

665 IF DC<24 THEN O$(3)=”!”:IF DC>30 THEN O$(3)=”!”

670 IF AR<30 THEN O$(4)=”!”:IF AR>=40 THEN O$(4)=”!”

675 IF NV<0.75 THEN O$(5)=”!”:IF NV>2 THEN O$(5)=”!”

680 IF AP<5.8 THEN O$(6)=”!”:IF AP>8 THEN O$(6)=”!”

685 IF LS<2.8 THEN O$(7)=”!”:IF LS>6 THEN O$(7)=”!”

690 LET T=PC+PO+DC+AR+NV+AP+LS

695 IF T<=264 THEN O$(0)=”check”:IF T>=280 THEN O$(0)=”check”

700 CLS:LOCATE 0,1:PRINT”PC”;”PO”

705 LOCATE 5,0:PRINT”DC”;”AR”

710 LOCATE 9,0:PRINT”NV”;”AP”

715 LOCATE 13,0:PRINT”LS ”;USING”####”;”DATA”

720 LOCATE 1,1:PRINT O$(1);

725 LOCATE 3,1:PRINT O$(2);

730 LOCATE 5,1:PRINT O$(3);

735 LOCATE 7,1:PRINT O$(4);

740 LOCATE 9,1:PRINT O$(5);

745 LOCATE 11,1:PRINT O$(6);

750 LOCATE 13,1:PRINT O$(7)

755 LOCATE 0,2:PRINT CHR$(64);”TOT:”;T

760 LOCATE 16,1:PRINT O$(0)

765 DRAW (7,0)-(7,15):DRAW(23,0)-(23,15):DRAW(39,0)-(39,15)

770 DRAW(55,0)-(55,15):DRAW(71,0)-(71,15):DRAW(87,0)-(87,15)

775 DRAW(103,0)-(103,15):DRAW(119,0)-(119,15)

780 DRAW(7,15)-(119,15)

785 LOCATE 9,3:INPUT”again Y/N”;C$

790 IF C$=”Y” THEN GOTO 100 ELSE END

1000 REM DISEGNO DELLA CENTRALINA

1010 CLS

1020 DRAW(2,22)-(2,1):DRAW(3,1)-(158,1):DRAW(158,1)-(158,22):DRAW(158,22)-(2,22)

1030 DRAW(10,4)-(20,4):DRAW(29,4)-(39,4):DRAW(48,4)-(58,4):DRAW(67,4)-(77,4)

1040 DRAW(86,4)-(96,4):DRAW(105,4)-(115,4):DRAW(124,4)-(134,4):DRAW(143,4)-(153,4)

1050 DRAW(10,14)-(20,14):DRAW(29,14)-(39,14):DRAW(48,14)-(58,14):DRAW(67,14)-(77,14)

1060 DRAW(86,14)-(96,14):DRAW(105,14)-(115,14):DRAW(124,14)-(134,14):DRAW(143,14)-(153,14)

1070 DRAW(10,4)-(10,14):DRAW(20,4)-(20,14):DRAW(29,4)-(29,14):DRAW(39,4)-(39,14)

1080 DRAW(48,4)-(48,14):DRAW(58,4)-(58,14):DRAW(67,4)-(67,14):DRAW(77,4)-(77,14)

1090 DRAW(86,4)-(86,14):DRAW(96,4)-(96,14):DRAW(105,4)-(105,14):DRAW(115,4)-(115,14)

1100 DRAW(124,4)-(124,14):DRAW(134,4)-(134,14):DRAW(143,4)-(143,14):DRAW(153,4)-(153,14)

1110 RETURN

 

1500 CLS:REM CENTRALINA NUDA

1510  DRAW(2,22)-(2,1):DRAW(3,1)-(158,1):DRAW(158,1)-(158,22):DRAW(158,22)-(2,22)

1520 RETURN

 

 

2000 CLS :REM DISEGNO PICKUP

2005 LOCATE 5,0:PRINT”ENGINE PICKUP”

2010 DRAW(151,5)-(151,15):DRAW(152,0)-(152,15):DRAW(153,0)-(153,15)

2020 DRAW(154,0)-(154,15):DRAW(155,0)-(155,15):DRAW(156,0)-(156,15)

2030 DRAW(157,0)-(157,15):DRAW(158,0)-(158,15):DRAW(159,5)-(159,15)

2040 DRAW(155,17)-(152,22):DRAW(152,22)-(158,22):DRAW(158,22)-(155,17)

2050 FOR K=0 TO 8 STEP 2

2060 DRAW(140+K,16)

2070 NEXT K

2075 RETURN

 

' PUNTINI CONNETTORI

3000 FOR  I=0  TO 159 STEP 6

3010 DRAW (6+I,19)

3020 NEXT I

3030 RETURN

 

3100 REM GOSUB TEMPO

3110 FOR I=1 TO 500

3120 NEXT I

3130 RETURN

 

4000 CLS:REM NEEDLE VALVE

4010 LOCATE 0,0:PRINT “ NEEDLE VALVE”

4020 LOCATE 0,1:PRINT “On Actuator”

4030 DRAW(136,8)-(147,8):DRAW(153,8)-(159,8)

4040 DRAW(136,16)-(159,16):DRAW(147,0)-(147,8):DRAW(153,0)-(153,8)

4050 DRAW(147,8)-(150,14):DRAW(150,14)-(153,8)

4060 DRAW(136,10)-(148,10):DRAW(136,11)-(149,11):DRAW(136,12)-(149,12)

4070 DRAW(136,13)-(150,13)

4080 RETURN

5000  CLS:LOCATE 0,1:PRINT “computing”:LOCATE 0,3

5001  FOR I=1 TO 19

5002  PRINT CHR$(128);

5003  NEXT I

5004  BEEP1:RETURN

 

2301_2.gifIMG_20151209_141953.jpgIMG_20151209_142046.jpgIMG_20151209_142113.jpgIMG_20151209_142244.jpg

 


  • Viliami likes this



Also tagged with one or more of these keywords: woodward, governor, basic, ship, engine, control, disgnostic

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users