Page 1 of 2 12 LastLast
Results 1 to 10 of 12

Thread: wolframalpha project is finally online

  1. #1
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,777
    Rep Power
    10

    wolframalpha project is finally online

    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  2. #2
    Super Moderator Petr Schreiber's Avatar
    Join Date
    Aug 2005
    Location
    Brno - Czech Republic
    Posts
    7,128
    Rep Power
    732

    Re: wolframalpha project is finally online

    Very interesting project,

    Wolfram Mathematica website is good resource for studies, and this "multi tool" looks interesting too.

    I just asked WA for "Milano" and it says 28°C, can you confirm that Eros ?
    Learn 3D graphics with ThinBASIC, learn TBGL!
    Windows 10 64bit - Intel Core i5-3350P @ 3.1GHz - 16 GB RAM - NVIDIA GeForce GTX 1050 Ti 4GB

  3. #3
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,777
    Rep Power
    10

    Re: wolframalpha project is finally online

    Yes, today is very hot !
    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  4. #4

    Re: wolframalpha project is finally online

    No temperature given for Fishguard, but this afternoon it's 14C (361 feet above sea level according to WA) and I am sitting here in my winter gear, listening to the wind howling through the trees.

    Charles

  5. #5
    Super Moderator Petr Schreiber's Avatar
    Join Date
    Aug 2005
    Location
    Brno - Czech Republic
    Posts
    7,128
    Rep Power
    732

    Re: wolframalpha project is finally online

    Hi Charles,

    isn't this your Fishguard?:
    http://www40.wolframalpha.com/input/?i=Fishguard

    They say even 13°C. Unbelieveable, I have 23 here, and you have winter weather!
    Learn 3D graphics with ThinBASIC, learn TBGL!
    Windows 10 64bit - Intel Core i5-3350P @ 3.1GHz - 16 GB RAM - NVIDIA GeForce GTX 1050 Ti 4GB

  6. #6
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,777
    Rep Power
    10

    Re: wolframalpha project is finally online

    Quote Originally Posted by Charles Pegge
    No temperature given for Fishguard, but this afternoon it's 14C (361 feet above sea level according to WA) and I am sitting here in my winter gear, listening to the wind howling through the trees.

    Charles
    I love winter, I love wind.
    I would like to be there !!!

    Instead I'm here: http://www40.wolframalpha.com/input/?i=nova+milanese
    28C
    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  7. #7
    Super Moderator Petr Schreiber's Avatar
    Join Date
    Aug 2005
    Location
    Brno - Czech Republic
    Posts
    7,128
    Rep Power
    732

    Re: wolframalpha project is finally online

    Eros,

    I can't watch you suffer, take first aid here:
    [code=thinbasic]
    '
    ' CPU Friendly Fan
    '

    USES "UI", "TBGL"

    ' -- ID numbers of controls
    Begin Const
    %lblCanvas = 1000
    %btnClose
    %btnSwitch

    %myTimer
    %timeOut = 10 ' -- Determines graphics refresh rate in milliseconds
    End Const

    TYPE tFan
    STATIC eventSwitch AS STRING
    STATIC eventRender AS STRING
    STATIC eventPhysics AS STRING
    running AS LONG
    speed AS SINGLE
    angle AS SINGLE
    END TYPE

    DIM Fan AS tFan
    WITH Fan
    .eventSwitch = "Fan_Switch"
    .eventRender = "Fan_Render"
    .eventPhysics = "Fan_Physics"
    END WITH

    GLOBAL FrameRate AS DOUBLE

    FUNCTION TBMAIN()

    LOCAL hDlg AS DWORD

    DIALOG New 0, "Cooling fan",-1,-1, 320, 230, _
    %WS_POPUP Or %WS_VISIBLE Or _
    %WS_CLIPCHILDREN Or %WS_CAPTION OR _
    %WS_SYSMENU Or %WS_MINIMIZEBOX Or %WS_MAXIMIZEBOX or %WS_THICKFRAME, 0 To hDlg

    ' -- Place controls here
    CONTROL ADD label, hDlg, %lblCanvas, "", 5, 5, 310, 200
    control set color hDlg, %lblCanvas, %BLACK, %BLACK
    control set resize hDlg, %lblCanvas, 1, 1, 1, 1


    CONTROL ADD BUTTON, hDlg, %btnClose, "Close", 255, 210, 60, 14
    control set resize hDlg, %btnClose, 0, 1, 0, 1

    CONTROL ADD BUTTON, hDlg, %btnSwitch, "Switch", 5, 210, 60, 14
    control set resize hDlg, %btnSwitch, 1, 0, 0, 1

    dialog set minsize hDlg, 320, 230
    DIALOG SHOW MODAL hDlg, call dlgCallback

    END FUNCTION


    CALLBACK FUNCTION dlgCallback()
    STATIC hCtrl as dword

    SELECT CASE CBMSG

    CASE %WM_INITDIALOG
    DIALOG SET TIMER CBHNDL, %myTimer, %timeOut, %NULL
    control handle cbhndl, %lblCanvas to hCtrl

    ' -- Init OpenGL
    TBGL_BindCanvas(hCtrl)

    TBGL_UseLighting %TRUE
    TBGL_UseLightSource %GL_LIGHT0, %TRUE
    TBGL_SetLightParameter %GL_LIGHT0, %TBGL_LIGHT_POSITION, 15, 10, 15, 1

    CASE %WM_SIZE, %WM_SIZING
    TBGL_UpdateCanvasProportions(hCtrl)
    RenderMyImage(hCtrl)

    CASE %WM_TIMER
    RenderMyImage(hCtrl)

    CASE %WM_CLOSE
    TBGL_ReleaseCanvas(hCtrl)
    DIALOG KILL TIMER CBHNDL, %myTimer

    case %WM_COMMAND
    SELECT CASE CBCTL

    CASE %btnClose
    if CBCTLMSG = %BN_CLICKED THEN DIALOG End CBHNDL

    CASE %btnSwitch
    if CBCTLMSG = %BN_CLICKED THEN Call Fan.eventSwitch(Fan)

    END SELECT

    END SELECT
    END FUNCTION

    FUNCTION RenderMyImage( hCtrl as dword )
    if TBGL_CanvasBound(hCtrl) then

    FrameRate = TBGL_GetFrameRate

    TBGL_ClearFrame
    TBGL_Camera 5, 5, 5, 0, 1.5, 0

    Call Fan.eventPhysics(Fan)
    Call Fan.eventRender(Fan)

    TBGL_DrawFrame

    end if
    END FUNCTION


    ' -- Functions to manipulate fan
    FUNCTION Fan_Switch( byref property AS tFan )
    property.running = not property.running
    END FUNCTION

    FUNCTION Fan_Physics( property AS tFan )
    if property.running then
    property.speed += 90/FrameRate
    if property.speed > 720 then property.speed = 720
    else
    property.speed -= 180/FrameRate
    if property.speed < 0 then property.speed = 0
    end if
    property.angle += property.speed/FrameRate
    END FUNCTION

    FUNCTION Fan_Render( property AS tFan )
    static i as long
    tbgl_PushMatrix
    tbgl_Color 255, 128, 0
    ' -- Base
    tbgl_PushMatrix
    tbgl_Scale 4, 0.5, 4
    tbgl_Sphere 0.25
    tbgl_PopMatrix

    tbgl_Cylinder 0.125, 0.125, 2
    tbgl_PushMatrix
    tbgl_Translate 0, 2, 0
    tbgl_Scale 0.5, 0.5, 1
    tbgl_Sphere 1
    tbgl_PopMatrix

    ' -- Fan
    tbgl_Color 255, 255, 255
    tbgl_PushMatrix
    tbgl_Translate 0, 2, 0.5
    tbgl_Rotate property.angle, 0, 0, 1
    for i = 1 to 360 step 60
    tbgl_PushMatrix
    tbgl_Rotate i, 0, 0, 1
    tbgl_Translate 0.75, 0, 0
    tbgl_Rotate -45, 1, 0, 0
    tbgl_Box 1, 0.3, 0.01
    tbgl_PopMatrix
    next
    tbgl_PopMatrix
    tbgl_PopMatrix
    END FUNCTION

    [/code]
    Learn 3D graphics with ThinBASIC, learn TBGL!
    Windows 10 64bit - Intel Core i5-3350P @ 3.1GHz - 16 GB RAM - NVIDIA GeForce GTX 1050 Ti 4GB

  8. #8
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,777
    Rep Power
    10

    Re: wolframalpha project is finally online

    thanks for the idea but ...

    it's not going any better here instead it is making more hot because your script is using WHILE/WEND and my computer fan is going at its max while using ... (secret new timing weapon) it would slow down cpu fan and reduce hot air.
    Attached Images Attached Images
    www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
    Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000

  9. #9
    Super Moderator Petr Schreiber's Avatar
    Join Date
    Aug 2005
    Location
    Brno - Czech Republic
    Posts
    7,128
    Rep Power
    732

    Re: wolframalpha project is finally online

    You are right,

    I changed code to use timer ... but what is that? - a wind from future ... it is dragging me to other topic


    Petr
    Learn 3D graphics with ThinBASIC, learn TBGL!
    Windows 10 64bit - Intel Core i5-3350P @ 3.1GHz - 16 GB RAM - NVIDIA GeForce GTX 1050 Ti 4GB

  10. #10

    Re: wolframalpha project is finally online


    Hi Eros & Petr,

    51 deg 59 49.06 N 4 deg 58 40.57 W

    This is the my dome frame on Google Earth. (2006) It does not resolve the struts but you can see a rounded structure.

    I have dismantled it for refurbishment & transport some 100 metres distance to the school grounds,
    when the weather improves!

    51 deg 59 50.65 N 4 deg 58 43.77 W


    Charles

Page 1 of 2 12 LastLast

Similar Threads

  1. Finally an Image Control
    By ErosOlmi in forum thinBasic vaporware
    Replies: 5
    Last Post: 08-11-2008, 22:29

Members who have read this thread: 0

There are no members to list at the moment.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •