Here is the program I've made:

Define sn()= Prgm Disp 2 EndPrgm

Then, on the left side of the double window, I call sn():

sn()

and the calculator only displays on the screen "Done". As if the program I wrote didn't exist.

I have not forgotten to save the program.

If anyone could help me.

Thanks in advance!

Note: I'd like to add that there is a star (*) to the left of my program's name on the right-hand side of the double screen.

So now I want to remove the os protection or flash it to downgrade the os and install Ndless.

I'm willing to buy the USB/TTL interface.

Thank you!

SLOPEFLD (graph the slope field for a differential equation y f(x, y)) Input: Differential equation y f (x, y)
Output: Slope field for the differential equation
This program draws slope fields on both the TI-82 and TI-83.
Prgm SLOPFLD :10→L
:10→W :(YmaxYmin) /L→V :(XmaxXmin) /W→H :ClrDraw
:FnOff
:0→R
:YminV/2→Y
:Lbl 1
:R1→R
:0→C
:XminH/2→X
:Lbl 2
:C1→C
:Y →M 1
:M*H/4Y→S :M*H/4Y→T :XH/4→P :XH/4→Q
:If abs (TS) .7V :Goto 3
:Lbl 4
:Y→Z
:Line (P, S, Q, T) :Z→Y
:XH→X
:If CW
:Goto 2 :YV→Y :If RL :Goto 1 :Stop

:Lbl 3 :Y.35V→T :Y.35V→S :(TY) /MX→Q :(SY) / MX→P :Goto 4
Program by: Mark Howell, Gonzaga School, Washington, D.C.

I'm wondering if there is any solution for this

My program is suvat as in make your choice s,u,v,a,t.
I need three letters from suvat to solve a problem.
nCR(5,3) gives 10 combinations I assign to numbers 1-10.

num=seq(x,x,1,n),n
Request ("what is your number?"),n
if num[n]=n then
goto block

Every time I want to solve a problem I need to look up the block number to use.

My question: is there another way to do this kind of thing?
I'm trying to learn how to use this calculator.

PROGRAM:PRIME :Prompt N :{2→ L₁ :For(I,3,N,2 :If min(fpart(I/L₁ :augment(L1,{I→ L₁ :End :L₁

This program will find all prime numbers from 2 to N. I optimized it using Ti-BASIC's list arithmetic as well as the fact that the only even prime number is two. I then revised this program to fit your specification and take a range (a,b). The result is below:

PROGRAM:PRIME :Prompt A,B :{2→ L₁ :For(I,3,B,2 :If min(fpart(I/L₁ :augment(L₁ ,{I→ L₁ :End :SortD(L₁ :1→ I :Repeat A>L₁ (I :I+1→ I :End :I-1→ dim(L₁ :SortA(L₁ :L₁

To make this program work, make sure that A is less than B, that A is greater than two, and that there are prime numbers between A and B. If any of these conditions are not met, the program will not function properly.

I would be happy to write some more programs for you. However, I will not accept pay.

Anyone that can help me write some programs? The first one needs to be a program that shows the prime numbers between two parameter (a,b).
Got 3 more programs to write after.
Can pay (small) if someone wants to do it for me

Here is the HP Prime Code that works
n-Erlang distribution (see also Gamma and exponential)

Code:

EXPORT erlang(k,l,n)
// n-Erlang distribution k shape parameter, l=λ >=0 rate parameter
// from Gamma d.; if k=1 -> erlang(1,l,n) = exponential(l,n)
// erlang(k,λ) = gamma(k,1/λ)
BEGIN
local f;
f:=piecewise(n<0,0, l<0, 0, ((l^k)*(n^(k-1)*e^(-l*n)))/(k-1)! );
END;

EXPORT erlang2(k, m, n)
k shape parameter, m=μ=1/λ >=0 scale parameter
if μ=2 -> chi2 with 2k degree of freedom
BEGIN
local f;
f:=piecewise(n<0,0, m<0, 0, (n^(k-1)*e^(-n/m))/((m^k)*(k-1)!));
END;

EXPORT erlang_cdf(k, l, n)
// k shape parameter, l=λ >=0 rate parameter (μ=1/λ)
BEGIN
local f;
f:= 1- sum((1/X!)*(e^(-l*n))*(l*n)^X,X,0,k-1);
END;

And this is what I tried to do for one of them for the Nspire but I am getting an Argument Error

Define erlang(k,l,n)=
Prgm
local f
f:=piecewise(n<0,0, l<0, 0, ((l^k)*(n^(k-1)*e^(-l*n)))/(k-1)! )
EndPrgm

It seems to look correct and is able to have a "Stored Success" but I feel like I'm doing something wrong. I would really like some help here.

Thanks.

Hope you can get it figured out!

Hope this helps

3/1.*2 --------- Returns --------- 6

Out of curiosity, what calculator are you trying to do this with?

1.

to

1

round(1.,0)

int(1.)

1.

1

Define LibPub funvarsolv()= Prgm :Local y1,res,i,ab,d,c : :Loop :0→c :1→d :While d =1 :Try :RequestStr "enter function",y1,0,ab :0→d : :Else :© user left input box empty :Text "you entered nothing",0 :ClrErr : :EndTry :If d=0 :Exit :EndWhile :© user pressed cancel : If ab=0 Then : Disp "Press ENTER to end" : subrtine\delay() : DelVar y1,i,k,ab : Return : :EndIf : : : : expr("Define y1(x) ="&y1) : res:=exp▶list(solve(y1(x)=0,x),x) : :Disp "Solution set: "&var&" =",res : :subrtine\dlay() :If k="esc" Then :1→c :ElseIf k="enter" Then :0→c :EndIf :If c=1 :Exit :EndLoop :EndPrgm