Belated Valentine's Day Fun « Next Oldest | Next Newest »

 ▼ Egan Ford Posting Freak Posts: 1,619 Threads: 147 Joined: May 2006 02-15-2009, 12:36 PM I do not recall where I found this, and I was too busy to post before Valentine's Day: ```r=|tan(t)|1/|tan(t)| ``` Sage output: ```r=polar_plot(lambda t:abs(tan(t))^(1/abs(tan(t))),0,pi) r.show(ymin=0,ymax=1.5,xmin=-0.75,xmax=0.75,figsize=[5,5]) ``` 50g output: Edited: 15 Feb 2009, 4:01 p.m. after one or more responses were posted ▼ Mike (Stgt) Posting Freak Posts: 858 Threads: 80 Joined: Feb 2009 02-15-2009, 02:30 PM V-day? It seems there are different meanings of V-day. Ciao.....Mike ▼ Egan Ford Posting Freak Posts: 1,619 Threads: 147 Joined: May 2006 02-15-2009, 04:02 PM Valentine's Day. Ambiguity removed (above). Edited: 15 Feb 2009, 4:30 p.m. Marcus von Cube, Germany Posting Freak Posts: 3,283 Threads: 104 Joined: Jul 2005 02-15-2009, 03:35 PM On my Mac... This is the built in Grapher app. I din't find an option to restrict the range for theta, therefore the two part formula. ▼ Gerson W. Barbosa Posting Freak Posts: 2,761 Threads: 100 Joined: Jul 2005 02-18-2009, 11:32 AM Quote: On my Mac... On Apple II it would look like this: AppleWin: free Writing your own equation plotter program: priceless! Not a competitor to Graphmatica though :-) Regards, Gerson. ``` ----------- 10 REM ** GRAFICOS BIDIMENSIONAIS ** 20 REM ** GERSON WASHISKI BARBOSA ** 30 REM **** CURITIBA, 28/12/86 **** 40 FOR I = 32768 TO 32845: READ P: POKE I,P: NEXT 50 TEXT : HOME : VTAB 8: PRINT "- PARA FUNCOES EM COORDENADAS CARTE-": PRINT " SIANAS, DIGITE Y=F(X) NA LINHA 260.": HTAB 1: VTAB 12: PRINT "- PARA FUNCOES EM COORDENADAS POLA-": PRINT " RES, DIGITE R=F(T) NA LINHA 350." 60 HTAB 7: VTAB 16: PRINT "EM SEGUIDA, DIGITE ": HTAB 12: VTAB 17: PRINT "E TECLE .": GOTO 740 70 HOME : HGR : HCOLOR= 3: GOSUB 6000 80 HPLOT 0,0 TO 278,0 TO 278,159 TO 0,159 TO 0,0 90 HOME : VTAB 23: INPUT "MX, DX, MY, DY: ";MX,DX,MY,DY 100 IF DX > = 21 THEN NR = MX / 21: GOSUB 6500:DX = NR 120 GOSUB 3500 130 M = 765:N = MX: GOSUB 1000:N = DX: GOSUB 1000:N = MY: GOSUB 1000:N = DY: GOSUB 1000 140 IF F1 THEN 160 150 FY = 159 / MY 160 H = 0:V = 0: GOSUB 4000 170 VTAB 23: INPUT "CX, CY: ";H,V 180 IF V < 0 OR V > MY OR H < 0 OR H > MX THEN 170 190 GOSUB 4500: GOSUB 4000 200 N = H: GOSUB 1000:N = V: GOSUB 1000 210 IF LT\$ = "P" OR LT\$ = "p" THEN 310 220 HTAB 1: VTAB 23: PRINT SPC( 40);: VTAB 23: INPUT "X1, X2: ";X1,X2 230 IF X1 < - H OR X2 > MX - H THEN 220 250 FOR X = X1 TO X2 STEP 1 / FX 260 Y = SIN (X) 270 IF FY * (V - Y) < 0 OR FY * (V - Y) > 170 THEN 290 280 HPLOT FX * (H + X),FY * (V - Y) 290 NEXT 300 GOTO 400 310 K = ATN (1) / 45 320 HOME : VTAB 23: INPUT "A1, A2: ";A1,A2 330 A1 = K * A1:A2 = K * A2 340 FOR T = A1 TO A2 STEP .02 350 R = ABS ( TAN (T)) ^ (1 / ABS ( TAN (T))) 360 X = R * COS (T):Y = R * SIN (T) 370 IF FY * (V - Y) < 0 OR FY * (V - Y) > 159 OR FX * (H + X) > 278 THEN 390 380 HPLOT FX * (H + X),FY * (V - Y) 390 NEXT 400 POKE 32846,0 405 HOME : VTAB 22: PRINT "DH: ";DX; TAB( 18)"DV: ";DY 410 VTAB 23: PRINT "OUTRO GRAFICO? / QUADRICULAR? "; 420 GET OP\$ 430 IF OP\$ = "N" OR OP\$ = "n" THEN TEXT : GOTO 740 440 IF (OP\$ = "S" OR OP\$ = "s") AND PEEK (32846) = 255 THEN CALL 32785: GOTO 490 450 IF (OP\$ = "S" OR OP\$ = "s") AND PEEK (32846) = 0 THEN 490 460 IF (OP\$ = "Q" OR OP\$ = "q") AND PEEK (32846) = 0 THEN CALL 32768: GOSUB 5000: GOTO 480 470 IF (OP\$ = "Q" OR OP\$ = "q") AND PEEK (32846) = 255 THEN CALL 32785: FOR T = 1 TO 250: NEXT 480 GOTO 420 490 GOSUB 6000: HOME : VTAB 23 500 IF LT\$ = "C" THEN POKE 32847,0: GOTO 520 510 POKE 32847,1 520 PRINT "OUTRA FUNCAO? "; 530 GET L\$ 540 IF L\$ = "N" OR L\$ = "n" THEN F2 = 1: GOTO 605 550 IF L\$ < > "S" AND L\$ < > "s" THEN 530 560 M\$ = ") " 570 HOME : VTAB 23 580 IF LT\$ = "P" OR LT\$ = "p" THEN PRINT "350 R=F(T";M\$: GOTO 740 590 PRINT " 260 Y=F(X";M\$: GOTO 740 600 HTAB 1: VTAB 23: PRINT SPC( 40) 605 IF PEEK (32847) = 0 THEN LT\$ = "C": GOTO 620 610 LT\$ = "P" 620 HOME : VTAB 23: PRINT "MESMO QUADRO? "; 630 GET L\$ 640 IF L\$ = "N" OR L\$ = "n" THEN HGR : GOTO 80 650 IF L\$ < > "S" AND L\$ < > " s" THEN 630 660 HOME : VTAB 23: PRINT "MESMAS COORDENADAS? "; 670 GET L\$ 680 IF L\$ = "N" OR L\$ = "n" THEN 90 690 IF L\$ < > "S" AND L\$ < > "s" THEN 670 700 IF F2 THEN 210 710 HOME :M = 762: GOSUB 2500:MX = N: GOSUB 2500:DX = N: GOSUB 2500:MY = N: GOSUB 2500:DY = N: GOSUB 2500:H = N: GOSUB 2500:V = N: GOSUB 3500 720 IF F1 THEN 210 730 FY = 159 / MY: GOTO 210 740 END 1000 NI = INT (N): GOSUB 1500 1010 NI = (N - INT (N)) * 1E7: GOSUB 1500 1020 RETURN 1500 M = M + 3 1510 FOR I = 0 TO 2 1520 NI = NI / 256 ^ (2 - I): POKE M + I,NI:NI = (NI - INT (NI)) * 256 ^ (2 - I) 1530 NEXT 1540 RETURN 2500 N = 0:M = M + 9: GOSUB 3000 2510 N = N / 1E7:M = M - 3: GOSUB 3000 2520 RETURN 3000 FOR I = 0 TO 2 3010 N = N + PEEK (M + I) * 256 ^ (2 - I) 3020 NEXT 3040 RETURN 3500 F1 = 0:FX = 278 / MX 3510 IF MY = 0 THEN F1 = 1:MY = 159 / FX:FY = FX 3520 IF MY / DY > 13 THEN NR = MY / 13: GOSUB 6500:DY = NR 3530 HOME : VTAB 22: PRINT "DH: ";DX; TAB( 18)"DV: ";DY 3540 RETURN 4000 HPLOT FX * H,0 TO FX * H,159: HPLOT 0,FY * V TO 278,FY * V: GOSUB 5500 4010 RETURN 4500 HCOLOR= 0 4510 FOR I = DY TO MY STEP DY 4520 IF INT (FY * I) = 0 OR INT (FY * I) = 159 THEN 4540 4530 HPLOT 1,FY * I TO 3,FY * I 4540 NEXT 4550 FOR I = TX TO MX STEP DX 4560 IF INT (FX * I) = 0 OR INT (FX * I) = 278 THEN 4580 4570 HPLOT FX * I,1 TO FX * I,2 4580 NEXT 4590 HCOLOR= 3 4600 RETURN 5000 FOR I = DY TO MY STEP DY 5010 IF INT (FY * I) = 0 OR INT (FY * I) = 159 THEN 5030 5020 HPLOT 0,FY * I TO 278,FY * I 5030 NEXT 5040 FOR I = DX TO MX STEP DX 5050 IF INT (FX * I) = 0 OR INT (FX * I) = 278 THEN 5070 5060 HPLOT FX * I,0 TO FX * I,159 5070 NEXT 5090 RETURN 5500 D = 2 5510 IF H = 0 THEN D = 0 5520 FOR I = 0 TO MY STEP DY 5530 HPLOT FX * H - D,FY * I TO FX * H + 2,FY * I 5540 NEXT 5550 D = 2 5560 IF V = 0 THEN D = 0 5570 FOR I = 0 TO MX STEP DX 5580 HPLOT FX * I,FY * V - D TO FX * I,FY * V + 2 5590 NEXT 5600 RETURN 6000 HOME : VTAB 23: PRINT "COORDS. CARTESIANAS OU POLARES? "; 6010 GET LT\$ 6020 IF LT\$ < > "C" AND LT\$ < > "c" AND LT\$ < > "P" AND LT\$ < > "p" THEN 6010 6030 RETURN 6500 F3 = 0 6510 IF INT (NR) = 0 THEN F3 = 1:NR = NR * 1E7 6520 X = INT ( LOG (NR) / LOG (10)) 6530 NR = NR / 10 ^ X 6540 IF NR - INT (NR) > = .5 THEN NR = NR + 1 6550 NR = INT (NR) * 10 ^ X 6560 IF F3 THEN NR = NR / 1E7 6570 RETURN 7000 DATA 169,32,133,2,169,64,133,4,169,96,141,74,128 7010 DATA 32,34,128,96,169,64,133,2,169,32,133,4,169 7020 DATA 64,141,74,128,32,34,128,96,56,169,255,237,78 7030 DATA 128,141,78,128,169,0,133,1,133,3,160,0,177 7040 DATA 1,145,3,200,192,0,208,247,24,165,2,105,1,133 7050 DATA 2,165,4,105,1,133,4,201,96,208,228,96 ```

 Possibly Related Threads... Thread Author Replies Views Last Post An amazing day: Giving a talk at HP about their calculators Geir Isene 9 3,223 12-16-2013, 06:14 PM Last Post: aurelio HHC 2013 Day 2 Highlights Eddie W. Shore 6 1,807 09-23-2013, 04:03 PM Last Post: Kimberly Thompson HHC 2013: Day 1 Highlights Eddie W. Shore 28 5,504 09-23-2013, 03:22 PM Last Post: Brad Barton Fun graphs on HP Prime Mic 9 2,025 09-15-2013, 08:30 AM Last Post: Eddie W. Shore Fun things found by running strings on the 39gII emulator bhtooefr 11 2,709 05-16-2013, 12:40 AM Last Post: Mic Happy Mother's Day! Eddie W. Shore 1 856 05-12-2013, 11:35 AM Last Post: Walter B happy fibonacci day 5/8/13 Allen 8 2,160 05-09-2013, 01:48 AM Last Post: Gerson W. Barbosa Stupid idea of the day: 41-compatible watch bhtooefr 0 733 03-31-2013, 08:23 AM Last Post: bhtooefr OT: Happy Pi Day! Eddie W. Shore 13 2,563 03-22-2013, 10:44 AM Last Post: Les Koller Totally OT ... Pi Day for my car Maximilian Hohmann 18 3,208 03-10-2013, 01:15 PM Last Post: chris smith

Forum Jump: