Vortec 3.0 for CASIO FX-880p. Vortec 3.0 is een document welke de listing bevat van een 'Casio basic' programma. Voor gebruik moet je volgens mij dit programma foutloos overtypen (als ik tenminste geen type fouten heb gemaakt) in je Casio FX 880P. Het programma biedt : Verschillende toepassingen in een menustructuur (het Windows voor de Casio). Het programma is vooral gericht op de zeevaart en zeevaartopleidingen. Een opsomming van de toepassingen: * Grootcirkel en loxodroom berekeningen * Diverse berekeningen mbt koersen en hun correcties. * Hoogte gestapelde ladingen in tussendek * Full & Down 2 partijen * Opstuurhoek * KG sin FI (Stabiliteits kromme) * Galgje * Systeemgebied. Het programma wordt onderhouden door Yoroen. Door gebrek aan tijd wordt er weinig verder aan het programma ontwikkeld. Andere programmeerbare casios zou Vortec ook op moeten kunnen werken, maar helaas wordt het 'casio basic' ook wel is aangepast, dus er is kans op dat je mbv het manual van het apparaat het programma zal moeten aanpassen. Voor personal computers (DOS, Windows) bestaan diverse (uitgebreidere) programma's, zie hiervoor de download pagina van http://www.yoroen.com. Nautische software downloads op www.leen.demon.nl onder scheepvaart - downloads te vinden. WWW www.leen.demon.nl of www.yoroen.com Disclaimer: Het downloaden en gebruiken van dit bestand geschiedt voor eigen risico. Hiervolgend de listing: By the way : op sommige plaatsen staan **** met iets er tussen. Vb regel 15 vul ipv *** bv. Koos. Dan zijn diverse wiskundige symbolen moeilijk weer te geven op deze computer en uit luiheid heb ik er een geschreven naam aan gegeven. Zie bv pi, fi, labda, sigma etc. Als je mazzel hebt staat er op www.leen.demon.nl onder scheepvaart, casio fx880p een pagina met hulp voor het weergeven van deze tekens. De letters zonder nummer zijn subkopje en alleen als hulp afgedrukt. Deze moet je niet intypen tijdens het programmeren. intro 5 PRINT " VORTEC 3.0" 10 rem written by dr. Altrix 15 rem coded by ******je eigen naam**** 20 rem nav+bel+wis prgm hoofdmenu 30 CLS : INPUT " Vortec 3.0 Nav Bel Game Quit Sys ",B$ 31 IF B$="S" THEN 4000 32 IF B$="s" THEN 4000 39 IF b$="G" THEN 2500 42 IF B$="N" THEN 1000 43 IF B$="n" THEN 1000 44 IF B$="g" THEN 2500 45 IF B$="B" THEN 2000 46 IF B$="Q" THEN 60 47 IF B$="q" THEN 60 48 IF B$="b" THEN 2000 50 CLS : GOTO 30 60 CLS : BEEP : PRINT"See you soon back in the house >> of V O R T E C ! <<" 70 END Koersen berekenen 200 REM KOERSEN BEREKENEN 210596 202 A=0 : INPUT "Koersenmenu 9. END 1.Grk-kk 2.kk-Grk 3.Wk-Gk 4.Gk-Wk",A:IF A=1 THEN 210:IF A=2 THEN 230 204 IF A=3 THEN 250:IF A=4 THEN 270 205 REM 200-204 KOERSMENU / 210-228 GRK-KK / 230-248 KK-GRK / 250-265 WK-GK / 270-295 GK-WK 207 IF A=9 THEN 1000 209 CLS:GOTO 200 grondkoers naar kompaskoers 210 PRINT"Grondkoers naar kompaskoers" 211 INPUT "Grondkoers (Grk)",G 212 INPUT "Stroomhoek (st)",S 214 INPUT "Drifthoek (dr)",D 216 INPUT "Variatie (var)",V 218 INPUT "Deviatie (dev)",E 220 B=G-S : W=B-D : M=W-V : K=M-E 225 PRINT "Behouden Ware Koers (BWK) ";B,"Ware Koers (WK) ";W, "Magnetische koers (MK)";M, "Kompaskoers";K 228 GOTO 200 Kompaskoers naar Grondkoers 230 PRINT "Kompaskoers naar Grondkoers" 235 INPUT "Kompaskoers (KK)";K, "Deviatie (dev)";E, "Variatie (var) ";V, "Drift (dr) ";D, "Stroomhoek (st) ";S 240 M=K+E : W=M+V : B=W+D : G=B+S 245 PRINT "Magnetische koers (MK)=";M, "Ware Koers (WK)=";W, "Behouden Ware Koers (BWK)=";B, "Grondkoers (Grk)";G 248 GOTO 200 Ware koers naar Gyrokoers 250 PRINT "Ware Koers naar Gyrokoers" 255 INPUT "Ware Koers (Wk)";W, "Totale correctie (tc) ";T 260 PRINT "Gyrokoers (GK)=";(W-T) 265 GOTO 200 Gyrokoers naar ware koers 270 PRINT "Gyrokoers - Ware Koers" 275 INPUT "Gyrokoers (GK)=",G 280 INPUT "Totale correctie (tc)",T 285 W=G+T 290 PRINT "Ware Koers (WK)=";W 295 GOTO 200 299 REM : EINDE KOERSEN What's new? 300 CLS : PRINT "What's new since Vortec 2.1?" 310 PRINT "v 2.2 Small letters accepted in menus and passwords" 320 PRINT "v 2.3 Koersen menu v 2.4 System menu" 330 PRINT "v 2.5 Vorqem integrated and What's new?" 335 PRINT "v 3.0 Program files optimized" 590 GOTO 4010 Opstuurhoek 700 INPUT "Opstuurhoek, Vst=",A, "V=",B, "Sk=",C, "Grk=",D 710 E=ASN((A/B)* sin (C-D)) 720 PRINT "st=";E 730 F=B* cos E + A * cos(C-D) 740 PRINT "Vgr=";F 750 GOTO 1010 Vorqem 760 REM Vorqem 3.01 is an integrated version off Vorqem 3.0 in Vortec 770 PRINT "Druk op ENTER (EXE) om Vorqem 3.01 te starten" 780 CLEAR 790 PRINT "fre"FRE0 795 PRINT "Vorqem 3.01 by Theemuts" GOTO 4010 navigatie menu 1000 CLS 1010 INPUT "1.Grc 2.Zwart 3.Opst 4.Koers 5.Hoofdmenu 6.Buwa",A$ 1020 IF A$="1" THEN GOTO 1050 1030 IF A$="2" THEN GOTO 3000 1034 GOTO 1037 1035 REM AARDIG GEK 1036 PRINT "NAVIGATIE PROGRAMMA VAN BUWALDA IS AANWEZIG IN P1, GOED PROGRAMMA":GOTO 1000 1037 REM 1040 IF A$="3" THEN GOTO 700 1042 IF A$="4" THEN 200 1043 IF A$="6" THEN 1035 1044 IF A$="5" THEN GOTO 30 1045 CLS: GOTO 1000 grootcirkel programma(MET ^ WORDT TOT DE X MACHT BEDOELD) 1050 MODE4:INPUT"Grc,Ba=",I:GOSUB1300:A=I 1060 INPUT "lA=",I: GOSUB 1300:F=I 1070 INPUT "bB=",I: GOSUB 1300:B=I 1080 INPUT "lB=",I: GOSUB 1300:G=I 1090 INPUT "delta lFV=",I:GOSUB 1300:D=I 1100 C=G-F 1110 IF ABS C>180 THEN C=C-360*SGN C 1120 Z=SIN A*SIN B + COS A * COS B * COS C 1130 Y=(SIN B - SIN A*Z)/(COS A * SIN(ACS Z) 1140 V=(ACS Z) * 60 1150 K=ACS Y 1160 IF C<0 THEN K=360-K 1170 PRINT "Vgrc=";V 1180 PRINT "Kgrc=";K 1190 L=ATN((SIN A * TAN K)^-1 1200 PRINT "delta lFV="; DMS$(L) 1210 M=ATN (TAN A/COS L) 1220 X=COS D * TAN M 1230 PRINT "bV=";DMS$(M) 1240 P=F+L 1250 IF ABS P>180 THEN P=P-360*SGN P 1260 PRINT "Lv=";DMS$(P) 1270 N=ATN X 1280 PRINT "Bfv=";DMS$(N) 1290 GOTO 1310 1300 I=SGN I * INT ABS I + FRAC I/.6 : RETURN 1310 INPUT "1.Grc 2.delta lFV 3.Nav menu 4. Hoofdmenu",Q$ 1320 IF Q$="1" THEN 1050 1330 IF Q$="2" THEN 1090 1340 IF Q$="3" THEN 1000 1350 IF Q$="4" THEN 30 1360 GOTO 1310 Beladen menu 2000 PRINT "Beladen menu" 2010 INPUT "1.Hoogte TD 2. Afladen 3.KG sin Fi 4.Hoofdmenu",Q$ 2020 IF Q$="1" THEN GOTO 2060 2030 IF Q$="2" THEN GOTO 2200 2040 IF Q$="3" THEN GOTO 2320 2045 IF Q$="4" THEN 30 2050 GOTO 2010 Hoogte gestapelde lading in tussendek. 2060 PRINT "Max. hoogte 2 gestapelde ladingen in tussendek" 2070 INPUT "Max. Dekbel. /m2=",M,"Hoogte TD=",H 2080 INPUT "sf. A=",C,"sf. B=",D 2090 A=(M*C*D-C*H)/(D-C) 2100 IF A>H THEN 2160 2110 IF A<0 THEN 2170 2120 A=RND(A,-3):PRINT "Max. Hoogte A=";A 2130 B=H-A 2140 B=RND(B,-3):PRINT "Hoogte B=";B 2150 GOTO 2010 2160 PRINT "2 ladingen te licht": GOTO 2010 2170 PRINT "2 ladingen te zwaar": GOTO 2010 KG sin FI 2320 MODE 4 : REM STABILITEITS KROMME KG SIN FI 2322 PRINT "KG sin FI voor stabiliteitskromme" 2330 K=0 : INPUT "KG=",K 2340 PRINT "bij 5 :"; K * sin 5 2350 PRINT "bij 10 :"; K * sin 10 2360 PRINT "bij 12 :"; K * sin 12 2370 PRINT "bij 15 :"; K * sin 15 2380 PRINT "bij 20 :"; K * sin 20 2390 PRINT "bij 30 :"; K * sin 30 2400 PRINT "bij 40 :"; K * sin 40 2410 PRINT "bij 50 :"; K * sin 50 2420 PRINT "bij 60 :"; K * sin 60 2430 CLS : INPUT "1.Opnieuw 2.Beladen menu",B$ 2440 IF B$="1" THEN 2320 2450 IF B$="2" THEN 2000 2460 GOTO 2430 Galgje 2500 CLEAR : PRINT " Galgje" 2510 INPUT "Het te raden woord",$ 2520 L=LEN($):O=L+3:DIM W$(L) 2530 CLS: FOR A=0 TO L-1 : W$(A);:NEXT A 2540 FOR A=0 TO L-0:PRINT CSRA;W$(A);:NEXT A 2550 PRINT CSR21;O=O-1:IF O=-1;PRINT"Daaaag!!!":GOTO 2620 2560 INPUT "Raad een letter:",R$ 2570 FOR A=1 TO L : IF R$=MID$ (A,-1);GOSUB 2590 2580 NEXT A: GOTO 2540 2590 C=C+1: IF W$(A-1)=R$;C=C-1 2595 W$(A-1):R$ 2600 IF C=L;PRINT"Wat ben jij goed zeg!" GOTO 2620 2610 RETURN 2620 PRINT CSR((23/L)/2;"<";$;">" 2630 CLS : INPUT "1.Opnieuw 2.Hoofdmenu",A$ 2640 IF A$="1" THEN 2500 2650 IF A$="2" THEN 30 2660 GOTO 2630 Afladen. 2200 PRINT "Afladen" 2110 INPUT "Ruimte=",V,"Tonnes=",G 2220 INPUT "sf. A=",C, "sf. B=",D 2230 X=(V-D*G)/(C-D) 2240 IF X>G THEN 2300 2250 IF XB:K,V of 2.A,K,V:B",Q,"bA",Z 3020 GOSUB 3700:B=Z:GOSUB 3200:V=Z 3025 A=V*60 3030 INPUT "lA",Z:GOSUB 3700:L=Z:IF Q=1 THEN 3070 (?) 3040 INPUT "K",K,"V",R:R=R/60:D=B+R*COS K 3045 E=D-B 3050 IF COS K=0 THEN Z=SIN K*R/COS B:F=A:G=0:T=V:GOTO 3075 3060 Z=D:PRINT"bB=";DMS$(D):GOSUB 3200:T=Z:V=Z-V 3065 F=Z*60:G=V*60 3075 GOSUB 3190: H=Z:Z=Z+L:GOSUB 3190 3080 PRINT "lB=";DMS$(Z):GOSUB 3082:B=P:L=Z:V=T:GOTO 3900 3082 SET F2:PRINT"VBA=";A,"VBB=";F,"deltaVB=";G:SET N 3084 PRINT "deltaB=";DMS$(E),"deltaL=";DMS$(H):RETURN 3090 INPUT "bB", Z: GOSUB 3700:D=Z:GOSUB 3200:V=Z-V 3095 F=Z*60 3100 INPUT "lB",Z:GOSUB 3700: Z=Z-L:GOSUB 3190: P=Z 3105 E=D-B:H=P:G=V*60:GOSUB 3082 3110 K=POL(V,P):K=Y:IF K=<0 THEN K=K+360 3120 IF B=D THEN R=P*COS B:GOTO 3140 3130 R=(D-B)/COS K 3140 X=B:Y=D:PRINT "Lox";:GOSUB 3210:PRINT "grc"; 3150 GOSUB 3800:GOSUB 3210:GOTO 1000 3190 Z=SGN SIN Z *ACS COS Z:RETURN 3200 Z=180/PI* LN TAN (Z/Z+45): RETURN 3210 PRINT "K="; RND (K,-Z);"v="; RND(ABSR*60,-Z):RETURN 3700 Z=Z-FRACZ+FRACZ/.6:RETURN 3800 H=ASN(SIN X *SIN Y+ COS X * COS Y * COS Z) 3810 K=ACS((SIN Y-SIN X * SIN H)/COS X / COS H) 3820 IF SIN Z<0 THEN K=360-K 3830 R= ACS SIN H : RETURN 3840 GOTO 3020 3900 INPUT "1.Verder 2. Navmenu ",B$ 3910 IF B$="1" THEN GOTO 3040 3920 IF B$="2" THEN GOTO 1000 3930 GOTO 3900 Sys Area 4000 PRINT "System Area Vortec 3.0 original programm by dr. Altrix" 4010 A=0 : INPUT "1.Auteur 2.V&D 3.Prgm 4.Vorqem 5.New 9.End",A 4011 IF A=1 THEN 4025 4012 IF A=2 THEN 4034 4013 IF A=3 THEN 4049 4014 IF A=4 THEN 760 4015 IF A=5 THEN 300 4020 IF A=9 THEN 30 4021 GOTO 4010 4025 PRINT "Coded by dr. Altrix greets to Rocket, CDS, ex- 3MA" 4026 PRINT "bEta getest door Yoroen" 4030 PRINT "Email : yoroen@shipping.gr WEB : www.yoroen.com" 4033 GOTO 4010 4034 INPUT "Pass",Q$ 4036 IF Q$="***PASSWORD***" THEN 4040 ***HOOFDLETTERS*** 4037 IF Q$="***password***" THEN 4040 ***kleine letters*** 4038 CLS:PRINT"Acces denied":GOTO 4010 4040 CLEAR:CLS:PRINT"R10/R30 Vortec X.XX R4000/4025/4030 PGM/GREETS/DATE" 4041 GOTO 4010 4049 INPUT "Pass",Q$ 4051 IF Q$="***PASSWORD***" THEN 4056 ***HOOFDLETTERS*** 4052 IF Q$="***password***" THEN 4056 ***kleine letters*** 4053 CLS:PRINT "Acces denied": GOTO 4010 4056 CLEAR:CLS:PRINT "Menus Main 30-50 Koers 200-209" 4058 PRINT "Nav 1000-1045 Bel 2000-2050 Sys 4000-4020" 4059 PRINT "Vrije ruimte : 800-990 1370-1990 2670-2920 4080-......" 4064 PRINT "Sys area 4000-4075" 4069 PRINT "Passwords big 4036-4050 small 4037-4051" 4070 PRINT "What's New 300-590" 4075 GOTO 4010