Image Map Image Map
Page 2 of 2 FirstFirst 12
Results 11 to 15 of 15

Thread: TI-74 Basic programs?

  1. #11

    Default

    I'm not sure if this will make sense to anyone else, but this helps me pay my bills. I admit my monthly bills are quite simple. CK in line 1 is my current checking account balance. DATE$ is for date or indentity. NOTE$ is for a short note or reminder. The values in line 100 to 195 are the stored current bill identities and values. Change or expand the programs bill identities and values as needed (these are ficticious values). Enter 0 for no bill value.

    Since the TI-74 doesn't retain variables when turned off, I'm storing the initial bill values in DATA statements. CK will load in from the program at the beginning; alter CK thereafter if desired. All of the bill values must be entered in by hand. When a bill value is present as a left side value, enter it. After that, alter any value to see how the (exp) expense total and the (nw.acc.bal) new checking account balance changes. The left figure is from the DATA statements, the center figure is the entered in value and the right figure is the tally. I suppose I could tally the bills in one line on the display directly but this has a little more discription. It isn't great but it helps me even-out my flexible payment bills on my fixed monthly income.


    1 CK=2000:dATE$="Bills: apr2 2018": GOTO 100
    2 REM 4-18-18

    100 DATA house,300.50
    110 DATA card1,50.75
    120 DATA card2,60.55
    125 DATA card3,70.25
    130 DATA phone,90.65
    140 DATA elec,80.75
    150 DATA n-gas,70.40
    160 DATA ins1,87.35
    170 DATA ins2,75.80
    175 DATA ins3,63.25
    180 DATA misc1,12.20
    185 DATA misc2,40.60
    190 DATA misc3,23.80,eof

    195 NOTE$="none"


    200 PRINT DATE$:PAUSE
    203 PRINT CK;"ck.acc.bal > ";:ACCEPT NULL(CK),CK
    204 IF CK=0 THEN 1

    205 READ R$:T$=R$:IF R$="house"THEN READ R$ ELSE 205
    210 PRINT T$;" ";R$;HS;TAL;"> ";:ACCEPT NULL(HS),HS:TAL=TAL+HS

    220 READ R$:T$=R$:IF R$="card1"THEN READ R$ ELSE 220
    230 PRINT T$;" ";R$;C1;TAL;"> ";:ACCEPT NULL(C1),C1:TAL=TAL+C1

    240 READ R$:T$=R$:IF R$="card2"THEN READ R$ ELSE 240
    250 PRINT T$;" ";R$;C2;TAL;"> ";:ACCEPT NULL(C2),C2:TAL=TAL+C2

    252 READ R$:T$=R$:IF R$="card3"THEN READ R$ ELSE 252
    254 PRINT T$;" ";R$;C3;TAL;"> ";:ACCEPT NULL(C3),C3:TAL=TAL+C3

    260 READ R$:T$=R$:IF R$="phone"THEN READ R$ ELSE 260
    270 PRINT T$;" ";R$;PH;TAL;"> ";:ACCEPT NULL(PH),PH:TAL=TAL+PH

    280 READ R$:T$=R$:IF R$="elec"THEN READ R$ ELSE 280
    290 PRINT T$;" ";R$;EL;TAL;"> ";:ACCEPT NULL(EL),EL:TAL=TAL+EL

    300 READ R$:T$=R$:IF R$="n-gas"THEN READ R$ ELSE 300
    310 PRINT T$;" ";R$;GS;TAL;"> ";:ACCEPT NULL(GS),GS:TAL=TAL+GS

    320 READ R$:T$=R$:IF R$="ins1"THEN READ R$ ELSE 320
    330 PRINT T$;" ";R$;I1;TAL;"> ";:ACCEPT NULL(I1),I1:TAL=TAL+I1

    340 READ R$:T$=R$:IF R$="ins2"THEN READ R$ ELSE 340
    350 PRINT T$;" ";R$;I2;TAL;"> ";:ACCEPT NULL(I2),I2:TAL=TAL+I2

    352 READ R$:T$=R$:IF R$="ins3"THEN READ R$ ELSE 352
    354 PRINT T$;" ";R$;I3;TAL;"> ";:ACCEPT NULL(I3),I3:TAL=TAL+I3

    360 READ R$:T$=R$:IF R$="misc1"THEN READ R$ ELSE 360
    370 PRINT T$;" ";R$;M1;TAL;"> ";:ACCEPT NULL(M1),M1:TAL=TAL+M1

    380 READ R$:T$=R$:IF R$="misc2"THEN READ R$ ELSE 380
    390 PRINT T$;" ";R$;M2;TAL;"> ";:ACCEPT NULL(M2),M2:TAL=TAL+M2

    392 READ R$:T$=R$:IF R$="misc3"THEN READ R$ ELSE 392
    394 PRINT T$;" ";R$;M3;TAL;"> ";:ACCEPT NULL(M3),M3:TAL=TAL+M3

    395 PRINT "note..none";NOTE$:PAUSE

    400 NCK=CK-TAL
    410 PRINT "exp";TAL;" nw.acc.bal";NCK:PAUSE
    420 TAL=0:RESTORE:GOTO 200


    Example:

    CK=2000

    house=300.50
    card1=50.75
    card2=60.55
    card3=70.25
    phone=90.65
    elec=80.75
    n-gas=70.40
    ins1=87.35
    ins2=75.80
    ins3=63.25
    misc1=12.20
    misc2=40.60
    misc3=23.80

    NOTE$="none"


    note..none
    exp 1026.85
    nw.acc.bal 973.15

  2. #12

    Default

    I made this small RPN style calculator mainly to work on my old car's suspension using a polar to rectangular(pr) and a rectangular to polar(rp) routine in Basic. I find it helpful to roll over or alter previous inputs. Using the TI-74 in calculator mode I used the (x,y) key then P>R and R>P to check RPN Calc's operation. It seems to be working okay, showing similar results as the 74 calculator mode. Check out RPN Calc thoroughly to see if it's working properly before using it. All angles are in degrees decimal. Answers with ">" direction indicator (use CTL 4 arrow if desired), uses the "space bar" to bring the answer to 1) input. Use "shift #" to clear or "0" to end. For 'pr' enter radius first then angle. For 'rp' enter x first then y.



    16000 PRINT "RPN Calc ":PAUSE 1
    16001 C=0:Z$="?":d=0:dEG
    16002 PRINT "1)";C;": ";:ACCEPT NULL(C),C
    16010 PRINT "2)";D;": ";:ACCEPT NULL(D),D
    16012 PRINT Z$;") + - * / ^ rt pr rp ";:ACCEPT NULL(Z$),Z$
    16015 IF Z$="0"THEN END
    16020 IF Z$="+"THEN A=C+D:GOTO 16080
    16030 IF Z$="-"THEN A=C-D:GOTO 16080
    16040 IF Z$="*"THEN A=C*D:GOTO 16080
    16050 IF Z$="/"THEN A=C/D:GOTO 16080
    16060 IF Z$="^"THEN A=C^D:GOTO 16080
    16070 IF Z$="rt"THEN A=C^(1/D):GOTO 16080
    16072 IF Z$="pr"THEN Y=C*SIN(D):X=C*COS(D):GOTO 16100
    16073 IF Z$="rp"THEN R=SQR(C^2+D^2):A=ASIN(D/R):GOTO 16110
    16078 PRINT ">..error":PAUSE:GOTO 16002

    16080 ANS=A:PRINT "ans=";A;":";C;Z$;D;:PAUSE
    16090 PRINT ">":A$=KEY$:IF A$="#"THEN 16001
    16092 IF A$=" "THEN C=A:GOTO 16002
    16093 IF A$="0"THEN END
    16095 GOTO 16002

    16100 PRINT "x=";X;"y=";Y:PAUSE:GOTO 16002

    16110 IF C<0 AND D>0 THEN A=ABS(180-A)
    16112 IF C<0 AND D<0 THEN A=ABS(180-A)-360
    16120 PRINT "r=";R;CHR$(242);"a=";A:PAUSE:GOTO 16002


    Examples:

    1) 1728, 2) 3, rt = 12
    1) 100, 2) 40, pr =, x=76.60444431, y=64.27876097
    1) 145, 2) 23, rp =, r=146.812806, a=9.013204356
    Last edited by thumbs; May 12th, 2018 at 10:04 PM.

  3. #13

    Default

    Recently I decided to build a small stationary steam engine for entertainment. Not being a professional machinist or engineer, I needed to figure out how to determine and make a small eccentric cam for the valve. I came up with this program for the TI-74. I made a diagram of a cams dimensional values below using text and characters. The diagram and its proportions aren't too pretty but it should give some idea of what I thought was a way to determine an eccentric cams stroke and demensions.



    3000 REM RUN 3000
    3005 PRINT "Eccentric Cam":PAUSE 1
    3010 PRINT ECM;" o/a stroke,in. ";: ACCEPT NULL(ECM),ECM
    3020 PRINT DCM;" shaft dia,in. ";: ACCEPT NULL(DCM),DCM
    3030 PRINT BCM;" small offset (B),in. ";: ACCEPT NULL(BCM),BCM
    3040 ACM=ECM+BCM:CCM=ACM+BCM+DCM:RCM=CCM/2
    3050 PRINT "Large offset (A),in.";ACM:PAUSE
    3060 PRINT "Cam dia,in.";CCM:PAUSE
    3070 PRINT "Cam radius,in.";RCM:PAUSE:GOTO 3005


    Example:

    overall stroke desired 1.312"
    driving shaft diameter .5"
    small offset (B) .125"

    Large offset (A)= 1.437"
    Cam diameter= 2.062"
    Cam radius= 1.031"


    Cam dia. 2.062"
    |<------------>|
    | |
    *
    * *
    / \
    1.031" <Rad>+ (+) (overall stroke 1.312")
    shaft dia. .5" --------\--- --->| | /
    | * | | |
    | *
    | | | |
    1.437" Large offset |< -A- > | | |
    | |
    | |
    B-->| |<--small offset .125



    (the text diagram I made won't post properly....sorry, the best I can do)
    Last edited by thumbs; July 12th, 2018 at 05:44 PM.

  4. #14

    Default

    Steam engines are a lot of fun - Here's the dynamometer pgm

    I mentioned awhile back - Nothing special, but might be useful...

    http://ftp.whtech.com/hexbus_cc40_ti...rmat/dyno2.txt

    Jack

    I should mention that the "Deceleration" term is an attempt to model

    the real-world behavior of a bicycle - At low speeds, where the inverse-

    square nature of aerodynamic drag is not yet the dominant factor.
    Last edited by JGardner; July 11th, 2018 at 02:35 PM.

  5. #15

    Default

    *****
    Last edited by thumbs; July 31st, 2018 at 03:22 AM.

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •