Sir, Please Step Away from the ASR-33 (2010)

Post by quantified » Wed, Jun 30, 2021, 5:12 AM UTC

astrange wrote: post #219

quantified wrote: post #160

Earlier quoted context omitted.

This thread is making the point that the issue isn’t the character set, but rather the keyboards. We’re probably locked in, there is so much inertia around the standard QWERTY with a few arrows and Esc. Maybe an integrated system builder with large scale like Apple could shift things slightly.

CJK users are pretty successful at entering large numbers of Unicode characters with a QWERTY keyboard, and there's more of them than you.

Post by b2gills » Fri, Jul 02, 2021, 5:59 AM UTC

a1369209993 wrote: post #249

azalemeth wrote: post #192

Earlier quoted context omitted.

For me, the biggest problem with the whole maths ---> code mapping is that of nested brackets. For a random quick example, I mean things like (a*(1+exp(1i*theta[0,:]))+foo(x))/((b-cosh(bar(x))+(b+sinh(y[:,-1])). The sort of thing where it just _looks_ far nicer on a page with like _real fractions_ -- where missing a bracket or changing the order of two brackets can _totally_ bugger you. Yes, changing the form of the…

> a nice Euler angle transformation I'd probably go with something like: double cf = cos(phi),sf = sin(phi); double cp = cos(psi),sp = sin(psi); double ct = cos(theta),st = sin(theta); alpha = [ cp*cf-ct*sf*sp cp*sf+ct*cf*sp sp*st; -sp*cf-ct*sf*cp -sp*sf+ct*cf*cp cp*st; st*sf -st*cf ct]; but I agree it would look better with: alpha = [ cψ*cϕ-cθ*sϕ*sψ cψ*sϕ+cθ*cϕ*sψ sψ*sθ; -sψ*cϕ-cθ*sϕ*cψ -sψ*sϕ+cθ*cϕ*cψ cψ*sθ; sθ*sϕ…

    # this assumes that ϕ, ψ, and θ have already been set

    my \cϕ = ϕ.cos; my \sϕ = ϕ.sin;
    my \cψ = ψ.cos; my \sψ = ψ.sin;
    my \cθ = θ.cos; my \sθ = θ.sin;

    my \alpha = [ cψ×cϕ−cθ×sϕ×sψ,   cψ×sϕ+cθ×cϕ×sψ,   sψ×sθ;
               −sψ×cϕ−cθ×sϕ×cψ,  −sψ×sϕ+cθ×cϕ×cψ,   cψ×sθ;
                sθ×sϕ,           −sθ×cϕ,            cθ];

    say "ϕψθ".uniprops;
    # (Ll Ll Ll)

Post by b2gills » Fri, Jul 02, 2021, 6:21 AM UTC

doctor_eval wrote: post #36

benjaminjosephw wrote: post #34

Earlier quoted context omitted.

But "everyone" doesn't have the same keyboard nor does everyone speak the same language. ASCII is not a universal character set and treating it as such is nothing short of cultural imperialism: "If it's good enough for us, it's good enough for everyone". Artificial limits on language and characters sets might sound simple to you but it introduces a lot of complexity for others. Unicode code solves that problem with n…

Not sure why you're downvoted; it's simply true that ASCII is not universal. The "A" in ASCII stands for American. I am a monolingual English speaker but I think I should be able to write ÷, ≤ and ≥ in my Go code, and I think I should be able to do maths using π.

    say π ≤ 3+⅘ ≤ τ
    # True

    say π² ÷ 4
    # 2.4674011002723395

Post by a1369209993 » Sat, Jul 03, 2021, 4:56 AM UTC

b2gills wrote: post #284

a1369209993 wrote: post #249

Earlier quoted context omitted.

> a nice Euler angle transformation I'd probably go with something like: double cf = cos(phi),sf = sin(phi); double cp = cos(psi),sp = sin(psi); double ct = cos(theta),st = sin(theta); alpha = [ cp*cf-ct*sf*sp cp*sf+ct*cf*sp sp*st; -sp*cf-ct*sf*cp -sp*sf+ct*cf*cp cp*st; st*sf -st*cf ct]; but I agree it would look better with: alpha = [ cψ*cϕ-cθ*sϕ*sψ cψ*sϕ+cθ*cϕ*sψ sψ*sθ; -sψ*cϕ-cθ*sϕ*cψ -sψ*sϕ+cθ*cϕ*cψ cψ*sθ; sθ*sϕ…

In Raku you can also use × (U+D7) for multiplication # this assumes that ϕ, ψ, and θ have already been set my \cϕ = ϕ.cos; my \sϕ = ϕ.sin; my \cψ = ψ.cos; my \sψ = ψ.sin; my \cθ = θ.cos; my \sθ = θ.sin; my \alpha = [ cψ×cϕ−cθ×sϕ×sψ, cψ×sϕ+cθ×cϕ×sψ, sψ×sθ; −sψ×cϕ−cθ×sϕ×cψ, −sψ×sϕ+cθ×cϕ×cψ, cψ×sθ; sθ×sϕ, −sθ×cϕ, cθ]; I'm not sure if using × helps or hurts in this case since I'm not really experienced in this area. Thes…

  alpha = [ cψ·cϕ−cθ·sϕ·sψ,  cψ·sϕ+cθ·cϕ·sψ,  sψ·sθ;
           −sψ·cϕ−cθ·sϕ·cψ, −sψ·sϕ+cθ·cϕ·cψ,  cψ·sθ;
            sθ·sϕ,          −sθ·cϕ,           cθ];

Post by b2gills » Thu, Jul 08, 2021, 3:52 PM UTC

a1369209993 wrote: post #288

b2gills wrote: post #284

Earlier quoted context omitted.

In Raku you can also use × (U+D7) for multiplication # this assumes that ϕ, ψ, and θ have already been set my \cϕ = ϕ.cos; my \sϕ = ϕ.sin; my \cψ = ψ.cos; my \sψ = ψ.sin; my \cθ = θ.cos; my \sθ = θ.sin; my \alpha = [ cψ×cϕ−cθ×sϕ×sψ, cψ×sϕ+cθ×cϕ×sψ, sψ×sθ; −sψ×cϕ−cθ×sϕ×cψ, −sψ×sϕ+cθ×cϕ×cψ, cψ×sθ; sθ×sϕ, −sθ×cϕ, cθ]; I'm not sure if using × helps or hurts in this case since I'm not really experienced in this area. Thes…

> × (U+D7) for multiplication Blech; looks like a letter and normalizes cross products. Better to use "·" (U+B7)[0]: alpha = [ cψ·cϕ−cθ·sϕ·sψ, cψ·sϕ+cθ·cϕ·sψ, sψ·sθ; −sψ·cϕ−cθ·sϕ·cψ, −sψ·sϕ+cθ·cϕ·cψ, cψ·sθ; sθ·sϕ, −sθ·cϕ, cθ]; Minus sign is a nice-to-have, though. 0: Also "∧" (U+2227, wedge), the real other vector product[1], but that doesn't matter for scalar multiplication. 1: http://en.wikipedia.org/wiki/Wedge_pro…

  my &infix: = &infix:;

  sub infix: (+@vals)
    is equiv(&[×])       # uses the same precedence level etc.
    is assoc   # may not be necessary given previous line
  {
    [×] @vals            # reduction using infix operator
  }

  # I don't know what precedence level it is supposed to be
  proto infix: (|) is tighter(&[×]) {*}

  multi infix: (
    Numeric $l,
    Numeric $r,
  ) {
    $l × $r
  }

  multi infix: (
    Vector $l, # need to define this somewhere, or use List/Array
    Vector $r,
  ) {
    …
  }

  [[1,2,3],[4,5,6]] »×« [[10,20,30],[40,50,60]]
  # [[10,40,90],[160,250,360]]

  # generate a synthetic `»×«` operator, and give it an alias
  my &infix: = &infix:;

  [[1,2,3],[4,5,6]] ∧ [[10,20,30],[40,50,60]]
  # [[10,40,90],[160,250,360]]