Android Cep telefonu uzerinde BASIC interpreter

[Mikro Step]

Birden aklima geldi.

PC de calisir gibi android uzerinde BASIC dilinde kod yazip kosturabilecegimiz uygulama cok iyi olurdu.
Once basligi actim simdi de play store da boyle bir sey varmi arastiracagim.

Yoksa da boyle bir projeyi ileri zamanlarda ele almak uzere proje listeme ekleyeyim.

 

[Mikro Step]

BASIC Programming Compiler uygulamasi buldum.

 

[Mikro Step]

Bu indirdigim BASIC da

dim x as integer

x degiskeninin integer oldugunu soyluyor.

Fakat float sayilarla calismak icin nasil bir tanim yapacagimi bulamadim.

Uygulamayi calistirdigimda reklamdan gina geldi.

 

[Mikro Step]

dim y as double
seklindeymis.

Help menusunde aciklamalar varmis.

Bu durumda bu uygulama hesap makinesi ve fotograf makinesinden sonraki en buyuk yardimcim olacak.

 

[elektorronikci]

Cep telefonunu bir cep bilgisayarına dönüştürmek için farklı bir yol öneririm. Python interaktif komut satırı + sympy (sembolik matematik için) bu iş için idealdir. Bunları bir android'e kurmak için termux projesini kullanın.

 

[Mikro Step]

Bu basic eklentisi ile 80'li yillarin spectrum, Amstrad, Commodore makinalarini cebime sigdirma sansini elde ettim.

Olay FX750P den cikti.

 

[Andromeda]

O zamanın basic dili ne işimize yarayacak?

 

[Mikro Step]

O zamanin Basic dilini kucumsemenin sebebi nedir?

Dagda bayirda gezinirken kafama bir soru takilsin. Mesela 0 den 360 derece araligindaki tam acilarin sinuslerinin toplamini hesaplamak isteyeyim.

Cikart cep telefonunu 4 satir kod yaz ve merakini gider.

 

[Andromeda]

Küçümsediğimden değil.. ilk gözağrımızı neden küçümseyeyim, merak ettim..maksat hesap kitap ise fortran kullan..

 

[Mikro Step]

Zamaninda Basic ile ugrastigim icin kolayima geliyor. Ustelik derlenme ihtiyacida yok. Yaz, derlemeden calistir buyuk kolaylik.

Fortran dersi almistim. Almistim da cep telefonu icin fortran uygulamasi mi var?

 

[Mikro Step]

Bu arada 0..360 araligindaki tam acilarin sinus degerlerinin toplamini merak eden ve hesap makinasi vs kullanmadan sak diye soyleyecek var mi?

 

[clc]

Bu arada 0..360 araligindaki tam acilarin sinus degerlerinin toplamini merak eden ve hesap makinasi vs kullanmadan sak diye soyleyecek var mi?

Aslında doğrudan cevap verecektim ama konu dağılmasın diye bir şey demedim. Cevap 0, ama benim de bir merakım var acaba bilgisayar da tam olarak 0 mı hesaplar?

 

[Mikro Step]

Denemedim ama sifir hesaplamasi gerekir.

Peki 0..180 derece araligindaki tam acilarin sinus degerlerinin toplamini merak etsek?

 

[clc]

Denemedim ama sifir hesaplamasi gerekir.

Peki 0..180 derece araligindaki tam acilarin sinus degerlerinin toplamini merak etsek?

Buna kafadan doğrudan şu olur diyemedim ama geometrik olarak inceleme yapmak lazım, ben kaçırmış olabilirim. Ancak şunu diyebiliriz, cevap 1den büyük olacak ancak 2 den küçük olacak.

 

[Mikro Step]

Neden 2'den kucuk?

 

[Haze]

merak edip excell de hesaplamistim 2 cikiyordu, ama tabi hassasiyet artarsa is degisebilir, ben 1 derecelik artisla hesaplamistim.

 

[clc]

Neden 2'den kucuk?

Çünkü
[math]\int^{180°}_{0°} sin(x)dx = 2[/math]biz tam sayıları toplayınca daha az pozitif sayı ekleyecceğiz(sin fonksiyonu 0 dan 180 dereceye akdar pozitif) dolayısıyla 2yi aşamaz, hatta 2 bile olamaz.

 

[Mikro Step]

[math]y=\sum_{n=0}^{180}sin(\frac{n*\pi}{180})[/math]
[math]a=\frac{\pi}{180}[/math]
[math]y=\frac{1}{2j}\sum_{n=0}^{180}(e^{jan}-e^{-jan})[/math]
[math]S=\sum_{n=0}^{180}e^{jan}[/math]
[math]S=1+e^{ja}+e^{2ja}+e^{3ja}+...+e^{179ja}+e^{180ja}[/math]
[math]S=1+e^{ja}(1+e^{ja}+e^{2ja}+...+e^{179ja})[/math]
[math]x=1+e^{ja}+e^{2ja}+...+e^{179ja}[/math]
[math]S=1+xe^{ja}=x+e^{180ja}[/math]
[math]x(1-e^{ja})=1-e^{180ja}[/math]
[math]x=\frac{1-e^{180ja}}{(1-e^{ja})}[/math]
[math]S=1+\frac{1-e^{180ja}}{(1-e^{ja})}e^{ja}[/math]
[math]S=1+\frac{e^{ja}-e^{181ja}}{(1-e^{ja})}=\frac{1-e^{181ja}}{(1-e^{ja})}[/math]
[math]y=\frac{1}{2j}\frac{(1-e^{181ja})}{(1-e^{ja})}-\frac{1}{2j}\frac{(1-e^{-181ja})}{(1-e^{-ja})}[/math]
[math]y=\frac{1}{2j}(\frac{(1-e^{-ja})(1-e^{181ja})-(1-e^{ja})(1-e^{-181ja})}{(1-e^{ja})(1-e^{-ja})})[/math]
[math]y=\frac{1}{2j}\frac{(1-e^{181ja}-e^{-ja}+e^{180ja})-(1-e^{-181ja}-e^{ja}+e^{-180ja})}{2-e^{-ja}-e^{ja}}[/math]
[math]y=\frac{1}{2j}\frac{1-e^{181ja}-e^{-ja}+e^{180ja}-1+e^{-181ja}+e^{ja}-e^{-180ja})}{2-e^{-ja}-e^{ja}}[/math]
[math]y=\frac{1}{2j}\frac{(e^{-181ja}-e^{181ja})+(e^{ja}-e^{-ja})+(e^{180ja}-e^{-180ja}))}{2-e^{-ja}-e^{ja}}[/math]
[math]y=\frac{-sin(181a)+sin(a)+sin(180a)}{2-2cos(a)}[/math]
[math]y=\frac{-sin(\frac{181\pi}{180})+sin(\frac{pi}{180})+sin(\frac{180\pi}{180})}{2-2cos(\frac{\pi}{180})}[/math]
[math]y=114.5886500129[/math][math]\frac{360}{\pi}=114.591559[/math]

 

[clc]

Benim kafam tamamen karışmış, şu an fark ettim soruya çok yanlış yaklaşmışım

 

[devreci]

r=1 dairenin alanının yarısı pi/2 dir.