heezor

Vad ca nu sunt bine-venit pe acest forum, asa ca doresc stergerea(Definitiva) a topicului.

Nici un feedback? Ucuma incerc sa fac recunoasterea vocei. (Acuma scriu FFT[Transormata Fourier Discreta Rapid, algoritmul Butterfly) Deci astept feedback!. Offtopic: Scuze pentru dublu post.

Atunci eram la inceput, in clasa a 5-a, te poti uita pe profilul meu, si te poti convinge. Da am fost la faza judeteana de la InfoEducatie, imi aduc aminte(unde am obtinut rezultate mult mai bune la nationala decat la judeteana), oricum a fost frumos! Dar nu imi aduc aminte, ca am sustinut asa ceva, ca ma durea gura!!!... Astept raspunsuri(feedback), asupra proiectului.

Poti face usor cu forma poloneza, numai ca in cazul tau este mult mai simplu. Ca sa implementezi forma poloneza iti va trebui un arbore binar min-max heap. Sursa mea de pe infoarena. Numai ca ia doar 50 de puncte ca nu este rastrans, si atfel ia doar 50 de pct, astfel nu am operati in Log(N). E urat codul l-am scris anul trecut(eram intr-a a 8-a) program Giga_software; type rec = record s:string[11]; v:longint; end; Type REF = ^NOD; NOD = record left,right:REF; index:longint; //s:string; end; var fin,fout:text; nr1,nr2,i,j,n,m,vn,xn,paranteza:longint; f:integer; c:char; root:REF; x:array [1..1000000] of rec; v:array [1..1000000] of string[11]; s:string; {*-----------------------------------------*} procedure introdu; begin inc(xn); x[xn].s:=s; x[xn].v:=paranteza+1000; s:=''; end; {*-----------------------------------------*} procedure cauta(left,right:longint; var nod:ref); var i,min,mini:longint; begin min:=maxint; for i:=left to right do if min >= x[i].v then begin min:=x[i].v; mini:=i; end; if min = maxint then begin nod:=nil; exit; end; new(NOD); NOD^.index:=mini; //NOD.s:=x[mini].s; cauta(left,mini-1,NOD^.left); cauta(mini+1,right,NOD^.Right); end; {*-----------------------------------------*} procedure getNr(i:longint); begin dec(i); while v[i] = '$' do dec(i); val(v[i],nr2,f); v[i]:='$'; dec(i); while v[i] = '$' do dec(i); val(v[i],nr1,f); v[i]:='$'; end; {*-----------------------------------------*} procedure solutie(nod:ref); begin if nod^.left <> nil then solutie(nod^.left); if nod^.right <> nil then solutie(nod^.right); inc(vn); v[vn]:=x[NOD^.index].s; // write(fout,,' '); end; {*-----------------------------------------*} begin assign(fin,'evaluare.in'); reset(fin); assign(fout,'evaluare.out'); rewrite(fout); vn:=0; while not eoln(fin) do begin read(fin,c); case c of '+':begin if s <> '' then introdu; inc(xn); x[xn].s:=c; x[xn].v:=paranteza+1; end; '-':begin if s <> '' then introdu else begin s:='0'; introdu; end; inc(xn); x[xn].s:=c; x[xn].v:=paranteza+1; end; '*':begin if s <> '' then introdu; inc(xn); x[xn].s:=c; x[xn].v:=paranteza+10; end; '/':begin if s <> '' then introdu; inc(xn); x[xn].s:=c; x[xn].v:=paranteza+10; end; '(':begin paranteza:=paranteza+100; if s <> '' then introdu; end; ')':begin paranteza:=paranteza-100; if s <> '' then introdu; end; else begin s:=s+c; end; end; end; if s <> '' then introdu; cauta(1,xn,root); vn:=0; solutie(root); for i:=1 to vn do begin if v[i] = '+' then begin getnr(i); str(nr1+nr2,v[i]); end; if v[i] = '-' then begin getnr(i); str(nr1-nr2,v[i]); end; if v[i] = '*' then begin getnr(i); str(nr1*nr2,v[i]); end; if v[i] = '/' then begin getnr(i); str(nr1 div nr2,v[i]); end; end; writeln(fout,v[vn]); close(fin); Close(fout); end. Trebuie doar sa stergi din cod(adica anumite operati, si sa adaugi ridicarea la patrat), si iti va functiona Din pacate nu am putut sa il modific eu, sunt tare ocupat, sper ca ti-am fost de folos.

Aici este CV-ul meu Eu cu aceasta lucrare o sa particip la Intel ISEEFF, un concurs international de proiecte(si software) in America

Buna ziua, Ma numesc Ionut, am 16 ani, programez de aproape 6 ani in delphi, iar in ultimele 8 luni citesc despre AI. In ultimele 2 luni, m-am chinuit sa fac o aplicatie in Delphi. NeurosLab Este un mic RAD, ce permite crearea,simularea,invatarea si exportarea Retelelor Neuronale Multi Layer Perceptron, in limbajul de programare Pascal[Momentan] Exemplu ce se pot crea [momentan] cu softul NeurosLab -OCR(Optical Character Recognition), pentru scrisul de mana, -Aproximari de functii, continue, elementare -Clasificarea fe?elor umane -Clasificarea amprentelor -Clasificarea retinei -Predictia. Exemplu valorile de la burse Si multe alte exemple. Permite vizualizare 2D si 3D a retelelor create. Versiunea viitoare: Retele Boltzmann, Retele Kohonen(pentru retele nesupervizate), acuma functioneaza doar pentru cele supervizate. Link de download: http://86.122.240.21/download/Proiecte/NeurosLab/Binary1.1.2.rar Imagini Tutoriale pentru cei care nu stiu sa foloseasca softul NeurosLab v1.0 OCR - Demonstration - Trilulilu Video Tehnologie [English] . In acest scurt film se prezinta cum se creaza si invata o retea neuronala, pentru a crea un soft de detecteaza cifrele de la 0 la 9 si chiar stricate(avand zgomote). Arhitectura OCR-ului creat de mine. NeurosLab - FaceRecognition - Trilulilu Video Tehnologie [english] . In acest scurt film se prezinta cum sa cream o retea neuronala, care clasifica fe?ele, si capacitatea retelei neuronale, de a lucra cu zgomot. Spre sfarsit, am aratat cum sa aproximam o functie, cu ajutorul retelelor. NeurosLab - Trilulilu Video Tehnologie . Crearea unui OCR, invatarea, si exportarea ANN-ului, si generarea automata de NeurosLab, a unui cod Delphi, pentru simularea OCR-ului. Imagini Invatare rapida, a cate doua fe?e din fiecare personaj. Eroare =~ 10%. Exportare XML Ca noutate, softul meu, exporta configuratia retelei, si matricile de ponderi(Weight and Bias) antrenate cat si un cod sursa(pentru Pascal, Delphi), si DLL, pentru a permite utilizatorului, sa creeze propiul lui soft cu AI, conform cerintelor lui, in felul acesta, scapa de invatare, care este destul de "dificil" de scris codul, plus faptul, ca algoritmul este la nivel de doctorat, nu suporta imbunatatiri, trebuie lucrat ca la carte. Pentru urmatoarea versiune, o sa incerc sa fac recunoasterea vocala(in loc sa introduc fete la intrare, o sa introduc analizele spectrale, ale cuvintelor, pe care doresc sa le clasifice, in felul acesta cu MLP-uri realizand recunoasterea vocala, a anumitor cuvinte), si sa introduc mai multi algoritmu de invatare(chiar si retele , recurente). Momentan scriu la transformata Fourier, rapida si discreta. Astept opinii, si sugestii, si ce algoritmi sa mai implementez. Versiunea 1.1.2 http://86.122.240.21/download/Proiecte/NeurosLab/Binary1.1.2.rar +Sper ca am scos problema la plotter pentru decimala(daca era diferita de "." atunci, constantele(pi, e ) dadeau erori +Permite sa exporteze in format DLL (Codul sursa pentru DLL) +Exemplu creat cu DLL-ul respectiv. In curand, vor fi versiuni noi. Daca nu merg linkurile(imagini, download) inseamna ca am serverul offline.