Soru Sayı Üret

[hlojan]

Merhaba ;

Sayı üreten kod yada formüle ihtiyacım var.

S_üret fonksiyonun işimi görmüyor.

=10*S_SAYI_ÜRET()
Sonuç : 0-10 arası 8,1,9,2,5,6, vs

benim isteğim
Ben düzgün artan ve azalan

Mesala 99 ile 101 arasında

99,2 99,4 99,5 99,5 99,5 99,5 99,4 99,2 99,2 99,3 99,4 99,5 99,6 99,6 99,6 99,9 100,1 100,1 100,1 100,2 100,2 100,1 100,0 100,0 99,9 99,9 vs

Sinüs grafiği gibi ama değil

yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Bu işinizi görmez mi?

=S_SAYI_ÜRET()*(101-99)+99

 

[hlojan]

Malesef. azalan ve artan şeklinde olsun istiyorum. 99,1 den sonra 100,9 gelme ihtimali var. Yani değerlerin grafiği resimdeki gibi çıkması gerekiyor. Birebir değil. Artan ve azalının düzgün olması gerekiyor.

aşağıdaki gibi

99,1 99,4 99,5 99,9 100,2 100,4 100,6

 

[Muzaffer Ali]

Daha açık örnek verir misiniz.
Örneğin 1. rakam 99 ise ikinci rakam hangi aralıkta olmalı, üçüncü ve dördüncü rakamlar hangi aralıkta olmalı.
Sadece artacak mı yoksa aynı zamanda eksilecek mi?
Eksilecekse hangi rakamdan sonra eksilecek?
Toleransı nedir?
Gibi soruları cevaplamalısınız.

 

[hlojan]

Değer 99 ile 101 arasında olacak.

nasıl artığını nasıl azaldığının önemi yok.

Ama düzgün artıp düzgün azalacak.

y=sinx grafiği gibi ama rastgale

Belki saçma geliyor olabilir yada ben anlatamıyorum

. ilk yazımdaki grafik gibi eğriler vermesi gerekiyor sonucun.

99,2 den 100,1 e zıplarsa benim işim olmuyor. . 0,1 bir adımı olması gerek, 99,2 99,4 99,5 99,5 99,5 99,5 99,4 99,2 99,2 99,3 99,4 99,5 99,6 99,6 99,6 99,9 100,1 100,1

100,1 e giderken artan azalan harekette yapabilir. rasgele.


Eğerki anlamsız geliyorsa konuyu kapatalım sorun değil. Çünkü kafamdaki şeyi anlatmasıda zor.

 

[Korhan Ayhan]

İşlem için makro uygun görünüyor.

Kaç sayı üretilecek?

 

[Korhan Ayhan]

Bu kodu bir deneyin.

Option Explicit

Sub Sayi_Uret()
    Dim Say As Integer, Sayi As Double

    ReDim Liste(1 To 20, 1 To 1)
   
    Do While Say < 20
10      Sayi = Evaluate("=RAND()*(101-99)+99")
        If Say = 0 Then
            Say = Say + 1
            Liste(Say, 1) = Sayi
        Else
            If Abs(Liste(Say, 1) - Sayi) >= 0.1 And Abs(Liste(Say, 1) - Sayi) <= 0.3 Then
                Say = Say + 1
                Liste(Say, 1) = Sayi
            Else
                GoTo 10
            End If
        End If
    Loop
   
    Range("B5").Resize(Say) = Liste
End Sub

 

[hlojan]

Korhan bey , S_ürete göre çok çok iyi. Teşekkürler.

Adım 0,1 , 0,3 bile koymuşsunuz süper.

Sonuç değişkenini kavrayamadım. Sonucu "0,0" formatlayabilirmiyiz.
Sonucu << Format( sonuc , "0,0") yapma şansımız varmı

Kaç sayı üretilecek?

Değişken, belli değil . 100000 ler kadar üreteceğim

 

[Korhan Ayhan]

Deneyiniz.

 

[hlojan]

Denedim Sorunum çözüldü teşekkür ederim Korhan Bey

 

[ÖmerBey]

Merhaba,
Dün akşam bir deneme de ben yapmıştım da paylaşma imkanım olmamıştı.
Sorun halledilmiş, ama çalışmam boşa gitsin istemedim.
İyi çalışmalar...

Sub kod()
Dim sayi(1000)
Dim x As Double
Dim a As Integer
artis = Array(-0.1, 0, 0.1)
Randomize
sayi(0) = Format(Rnd() * 2 + 99, "0.0")
For a = 1 To UBound(sayi)
1
    x = sayi(a - 1) + artis(Int(Rnd * (UBound(artis) + 1)))
    If x < 99 Or x > 101 Then
        GoTo 1
    Else
        sayi(a) = x
    End If
Next
Range("A1").Resize(UBound(sayi) + 1).Value = Application.Transpose(sayi)
End Sub

 

[hlojan]

Ömer bey, teşekkürler.

Kodunuzu denedim. Sorunsuz çalışıyor. Ama Korhan beyin üzerine ekleyerek devam ettiğim için ordan devam edeceğim

Emeğiniz için teşekkür ederim