Программирование

Ребятки, подскажите сходящуюся функцию, которая соответствует примерно таким значениям

1 - 0,5

100 - 0,7

1000 - 0,8

10000 - 0,9

плюс-минус, само собой

 

Придумал пока самое тривиальное 1-1/lnx но на начальных числах это не очень подходит

Значения растут, а ты хочешь сходящуюся 

Сомневаюсь, что найдешь

Не ну тут при x->inf функция стремится к 1, в минус у меня значения не идут.

Ребятки, подскажите сходящуюся функцию, которая соответствует примерно таким значениям

1 - 0,5

100 - 0,7

1000 - 0,8

10000 - 0,9

плюс-минус, само собой

что-то вроде

y= x^719 + 0.5?

а не, начудил

0.5+0.1*(ln(x)/ln( (x div 10) +10 ) )

trollface

0.5+0.1*(ln(x)/ln( (x div 10) +10 ) )

trollface

Уже лучше, спасибки

 

А js вообще напрягается когда считает логарифмы?

мне любоытно.

что ты кодишь и зачем на жс?

Да по сути дурью маюсь. Но если тебе интересно эта функция мне нужна чтобы считать прозрачность.

я ж говорю блядь писал на sikuli. Тама вот такой код

прогу то в паблик выложи

 

криво заквотил в первый раз

сделал по простому в автохоткее - по нажатию ф12 каждые 2 сек будет щелкать по кнопке accept

http://www.playdota.com/forums/blog.php?b=146942

угу, я себе в бинд под доту2 давно встроил такое 

мб кто знает ,как записывать данные не в  тхт а в ексель сразу?

с++

мб кто знает ,как записывать данные не в  тхт а в ексель сразу?

с++

кто-то точно знает. гугли екселевское апи.

думаю, что тебе будет проще всё-таки эту хуйню выгружать как .csv файл.

в качестве разделителя ячеек запятые или точки с запятой.

открывает эксель эту байду как таблицу

мб кто знает ,как записывать данные не в  тхт а в ексель сразу?

с++

кто-то точно знает. гугли екселевское апи.

думаю, что тебе будет проще всё-таки эту хуйню выгружать как .csv файл.

в качестве разделителя ячеек запятые или точки с запятой.

открывает эксель эту байду как таблицу

во спасибо

мб кто знает ,как записывать данные не в  тхт а в ексель сразу?

с++

кто-то точно знает. гугли екселевское апи.

думаю, что тебе будет проще всё-таки эту хуйню выгружать как .csv файл.

в качестве разделителя ячеек запятые или точки с запятой.

открывает эксель эту байду как таблицу

суть задачи, генерируется массив вещественных чисел от 0-1 и по ним строится гистограмма, точки на запятые в числах заменить и все окич будет

я ж говорю блядь писал на sikuli. Тама вот такой код

прогу то в паблик выложи

 

криво заквотил в первый раз

сделал по простому в автохоткее - по нажатию ф12 каждые 2 сек будет щелкать по кнопке accept

http://www.playdota.com/forums/blog.php?b=146942

дай исходник плз

лежит в соседней теме про автохоткей

мб кто знает ,как записывать данные не в  тхт а в ексель сразу?

с++

Option Explicit

 

Dim objArgs

Set objArgs = WScript.Arguments

 

If objArgs.Count <> 0 Then

Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim strArg

Dim strFile

Dim strFiles

strFiles = ""

 

For Each strArg in objArgs

Select Case True

Case objFSO.FileExists(strArg):

strFiles = strFiles & ";" & strArg

Case objFSO.FolderExists(strArg):

Dim objFile

Dim objFolder

Set objFolder = objFSO.GetFolder(strArg)

For Each objFile In objFolder.Files

strFiles = strFiles & ";" & objFile.Path

Next

Set objFile = Nothing

Set objFolder = Nothing

Case Else: ' file or folder provided as argument does not exist

End Select

Next

Dim objApp

Set objApp = CreateObject ("Excel.Application")

objApp.Visible = False

objApp.ScreenUpdating = False

objApp.DisplayAlerts = False

Dim objWorkbook

Dim i

Dim objFileCSV

Dim strCSV

Dim strCSV_Field

Dim j

For Each strFile in Split (strFiles, ";")

If strFile <> "" And UCase(Right(strFile, 3)) = "CSV" Then

Set objWorkbook = objApp.Workbooks.Add

i = 0

Set objFileCSV = objFSO.OpenTextFile(strFile)

For Each strCSV in Split(objFileCSV.ReadAll, vbCrLf)

i = i + 1

j = 0

For Each strCSV_Field in Split(strCSV, ";")

j = j + 1

objApp.ActiveWorkbook.Sheets(1).Cells (i, j).Value = Replace(strCSV_Field, """", "")

Next

Next

Set objFileCSV = Nothing

Dim ExcelFileFormat

Select Case objApp.Version

Case "14.0": ExcelFileFormat = 56

Case "11.0": ExcelFileFormat = -4143

Case Else: FileFormat = -4143

End Select

objWorkbook.SaveAs Left(strFile, Len(strFile) - 3) & "XLS", ExcelFileFormat

objWorkbook.Close False

Set objWorkbook = Nothing

Else

'not a CSV file

End If

Next

objApp.Quit

Set objApp = Nothing

Set objFSO = Nothing

Else

'no arguments provided to script

End If

 

Set objArgs = Nothing

 

WScript.Quit

это же вбс, а не с++ :hmm:

 

хотя всегда можно подгрузить либу для WScript-а, я только не помню как